Discussion :

[lenul78570]

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

[laetitia]

Bonjour lenul78570,

Essaie comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour a tout les deux

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

Bonjour patrick,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour tout le monde

ok laetitia je l'admet beaucoup lourd que mon code

chapo bas je plie devant cette evidence bravo!!!

au plaisir

[lenul78570]

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

[patricktoulon]

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

regarde si tu a bien recopier le code ?

[lenul78570]

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

[lenul78570]

A vous Deux :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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....