Affichage VBA avec lien d'une feuille à l'autre

PB

unread,

Mar 30, 2010, 5:12:02 PM3/30/10

to

Bonsoir,
Sur excel 2003; je voudrais savoir comment peut-on en VBA lire une
cellule sur la feuille 1 et �crire le lien qui s'y rapporte dans une
autre feuille 2 pour que ce qu'elle contient s'affiche et se mette
toujours � jour sur la feuille 2
Merci

michdenis

unread,

Mar 30, 2010, 6:30:36 PM3/30/10

to

Bonjour,

Fais un clic droit sur l'onglet de la feuille source (où sont
tes données), choisis la commande "Visualiser le code"
et copie la procédure suivante.

La procédure copie le contenu de la cellule A1 de la feuille
où tu as écrit le code vers la feuille dont l'onglet est "Feuil2"
dans la cellule A1

Tu peux modifier la cellule A1 par la cellule ou la plage
de cellules de ton choix ainsi que le nom de la feuille
de destination et la plage de cellules de destination.

'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
Application.EnableEvents = False
Worksheets("Feuil2").Range("A1") = Range("A1")
Application.EnableEvents = True
End If
End Sub
'-----------------------------

"PB" <p...@merci.fr> a écrit dans le message de groupe de discussion :
Oq6We2E0...@TK2MSFTNGP05.phx.gbl...

Bonsoir,
Sur excel 2003; je voudrais savoir comment peut-on en VBA lire une

cellule sur la feuille 1 et écrire le lien qui s'y rapporte dans une

autre feuille 2 pour que ce qu'elle contient s'affiche et se mette

toujours à jour sur la feuille 2
Merci

PB

unread,

Mar 31, 2010, 1:18:02 PM3/31/10

to

Merci pour ces infos

PB

unread,

Mar 31, 2010, 7:08:38 PM3/31/10

to

Bonsoir,
je me suis mal exprimé, je voudrais lire en feuil2 dans la cellule b3
par exemple le lien comme ceci : =feuil1!a3
car sinon quand j'aurais des chiffres partout je ne pourrais pas savoir
d'où ils proviennent si je veut en faire varier dans un tableau de
présentation en feuil2
Merci

michdenis

unread,

Mar 31, 2010, 8:03:55 PM3/31/10

to

Je ne sais trop ce que tu désires... mais si tu veux obtenir
la formule indiquant l'adresse de la cellule source ...

'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
Application.EnableEvents = False

Worksheets("Feuil2").Range("A1").Formula = "=" & _
Range("A1").Parent.Name & "!" & _
Range("A1").Address

Application.EnableEvents = True
End If
End Sub
'-----------------------------

"PB" <p...@merci.fr> a écrit dans le message de groupe de discussion :

e5qKScS...@TK2MSFTNGP06.phx.gbl...

michdenis

unread,

Mar 31, 2010, 8:44:46 PM3/31/10

to

Ce serait mieux comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
Application.EnableEvents = False

Worksheets("sheet2").Range("A1").Formula = "=" & _
Target.Parent.Name & "!" & _
Target.Address

PB

unread,

Apr 1, 2010, 12:28:49 PM4/1/10

to

C'est exactement cela.
Tu es excellentissime
Merci