Lancement de macro par clic dans une cellule

Est-il possible de lancer une macro en cliquant dans une cellule d'une plage déterminée ?

Private sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$A$1" Then MsgBox "c'est partii!"
 end sub

Auteur :

Mots clefs associés à cette page : , , , , ,

Target.Adress

Par daguise.francois, le mar 01/03/2011 - 16:40.

Pourquoi la macro suivante ne fonctionne-t-elle pas ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$U$22" Then MsgBox "c'est partii!"
End Sub

Quand je click sur U22, elle passe sur la condtion mais ne la valide pas.

Daguisé François

u22

Par Misange, le mar 01/03/2011 - 17:57.

Bonjour

Chez moi cela fonctionne parfaitement. Que veux tu dire par "elle passe sur la condtion mais ne la valide pas" ? Tu as enregistré ton classeur ?

Misange

Lancement d'une macro par click dans une cellule

Par daguise.francois, le jeu 03/03/2011 - 18:18.

Je veux dire : elle passe sur la condition "If" mais ne reconnaît que c'est la bonne cellule et donc ne donne pas suite à "then"

J'ai remplacé cette condition qui ne fonctionne pas par celle-ci :

If Target.Row = 22 And Target.Column = 21

et ça marche. Donc tout va bien quand même.

En revanche, je cherche à faire un complément à cette macro : au lieu de la déclencher par un click dessus, je voudrais la déclencher par la touche "enter", c'est-à-dire après avoir saisi mon texte et non avant.

Daguisé François

surprenant

Par Misange, le ven 04/03/2011 - 08:01.

Je ne comprends pas du tout pourquoi ça ne marche pas avec address chez toi. Tu es sur de ne pas faire une faute d'orthographe dans address ? 
Remplace Private Sub Worksheet_SelectionChange(ByVal Target As Range) par
Private Sub Worksheet_Change(ByVal Target As Range)
Pour les autres questions, je t'invite à les poser sur le forum microsoft answers et pas ici qui n'est pas un forum.

Misange