Exécuter une macro en quittant une cellule

Bonjour le forum

Sur une feuille précise, je souhaite quand on quitte la cellule A232, que la macro sup s'exécute automatiquement.
Merci de vos réponses
Lenul

Bonjour lenul78570,

Essaie comme cela

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static cp As Range If cp.Address = "$A$232" Then sup Set cp = Target End Sub

---

bonjour a tout les deux

cette action est possible a condition de declarer que tu est rentre dans la celule a32

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Address = "$G$232" Then TextBox1 = "oui" If Selection.Address <> "$A$232" And TextBox1 = "oui" Then Call mamacroperso: TextBox1 = ""   End Sub Sub mamacroperso() MsgBox "la macro s'est declenchée parceque tu viens de quitter la celule a32"   End Sub

---

autrement dis quand tu rentre dans la celule a232 le textbox 1 prend la valeur "oui"
quand tu en sort la macro verifie si le texbox1 ="oui",lance la macro et remet le textbox1 a "" pour la prochaine fois

voila
au plaisir

Bonjour patrick,

J'ai oublié quelque chose & surtout de tester :oops: cela devrait mieux marcher en quittant la cellule A232

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static cp As Range If Not cp Is Nothing Then If cp.Address = "$A$232" Then sup End If Set cp = Target End Sub

---

bonjour tout le monde

ok laetitia je l'admet beaucoup lourd que mon code

chapo bas je plie devant cette evidence bravo!!!

au plaisir

Bonjour à vous Deux

Merci de votre aide
Laetitia, j'ai placé ton second code dans l'onglet VBA de la feuille concernée, ma macro est dans un module (le 3).
Lorsque je quitte la cellule A232 j'ai le message d'erreur suivant :
"erreur de compilation Sub ou Fonction non définie"
A te lire
Lenul

bonjour
moi j'ai essayé le code laetitia ca fonctionne parfaitement bien

regarde si tu a bien recopier le code ?

Bonjour Patricktoulon

J'ai vérifié la copie du code .....c'est ok
Précision sur "l'erreur" rencontrée :
Dès que je clic sur une cellule (n'importe laquelle) dans la feuille à qui j'ai affecté le code, le message d'erreur :
"erreur de compilation Sub ou Fonction non définie"
apparait.....
Lenul

A vous Deux :

J'ai trouvé une solution qui répond à mon attente pour info la voici :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a232")) Is Nothing Then Macro1 End If End Sub

---

Encore merci de votre aide
Lenul

C'est loin de l'intitulé du sujet.
différence entre "en quittant" et "en changeant"

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Target.address="$A$232" Then Macro1 End Sub

---

bonjour a tous

oui effectivement ca n'est pas ce que tu avais demandé dailleur je ne suis pas sur que ca fasse ce que tu avais demandé mais bon si ca te conviens apres tout


pour ma part je garde la solution de laetita qui me semble tres bien

au plaisir....