OVH Cloud OVH Cloud

Lancement d'une macro lors de la sélection d'une cellule

1 réponse
Avatar
Fredo \(67\)
Bonjour,
Sur le (trés bon) site de Misange, j'ai trouvé cette fonction
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox "c'est partii!"
End Sub
qui, placée dans le module de ma feuille feuil1 devrait afficher une tite
fenetre lors de la sélection de la cellule A1 de ladite feuil1.

Mais rien n'y fait.

j'ai essayé diverses procédures que j'ai utilisé dans dautre cas, et elles
semblent marcher.
j'ai l'impression que c'est la partie >> .Address= "$A$1" << qui semble
poser des probléme à Excel

Ma version : Excel 2003 SP1
Windows XP Pro.

Merci de toue l'aide que vous voudrez bien m'apporter..

1 réponse

Avatar
anonymousA
bonjour,


il n'y a aucune ambiguité sur la validité de cette proc. Si elle ne
fonctionne c(est qu'il y a autre chose.Pour déjà guider le dépannage
insère avant le if l'instruction msgbox target.address et regarde ce
qu'elle te renvoie.Si elle te renvoie $A$1 ce qui devrait être le cas
bien entendu, c'est peu compréhensible que cette proc ne marche pas.

A+

Bonjour,
Sur le (trés bon) site de Misange, j'ai trouvé cette fonction
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox "c'est partii!"
End Sub
qui, placée dans le module de ma feuille feuil1 devrait afficher une tite
fenetre lors de la sélection de la cellule A1 de ladite feuil1.

Mais rien n'y fait.

j'ai essayé diverses procédures que j'ai utilisé dans dautre cas, et elles
semblent marcher.
j'ai l'impression que c'est la partie >> .Address= "$A$1" << qui semble
poser des probléme à Excel

Ma version : Excel 2003 SP1
Windows XP Pro.

Merci de toue l'aide que vous voudrez bien m'apporter..