Exécution de code suite au changement de focus de cellule

Bonjour à tous.

J'ai besoin d'aide pour traduire en VBA une simple manœuvre... mais je n'y arrive tout simplement pas.

Je cherche à exécuter un code une fois que le focus de la ligne 13 n'est plus actif (ou si ça peut être uniquement sur C13 si c'est possible, ça serait encore bien mieux !).

Je cherche via "Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)" mais le code se déclenche lors de l'activation de C13 (ou de la ligne 13). Moi, c'est à la sortie de cette ligne (ou cellule)

Je suis preneur pour des pistes de solutions avant que je devienne :marteau:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then If Target.Row = 13 Then MsgBox "allo" End If End If End Sub

---

Merci à l'avance

Bonjour,

une possibilité :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static c As String If c = "$C$13" Then Stop ' ton code End If c = Target.Address End Sub

---

eric

Bonsoir Dlight, bonsoir le forum,

Peut-être comme ça (à la sortie de C13) :

Code:

---

1 2 3 4 5 6 7 8 9

Private TEST As Boolean   Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$13" Then TEST = True If Target.Address <> "$C$13" And TEST = True Then MsgBox "Sortie de C13 !" TEST = False End If End Sub

---

[Édition]
Bonsoir Éric nos posts se sont croisés...

Merci à vous deux.

Merci Éric pour votre réponse. Ça ne fonctionne pas dans la forme actuelle mais je suis certain qu'avec un peu de travail de ma part j'aurais été en mesure d'adapter votre code pour que ça fonctionne dans mon projet.

Merci également Thauthème. Votre code a tout simplement fonctionné du premier coup dans mon projet.

:hola: à vous deux


Dlight

Citation:

---

Merci Éric pour votre réponse. Ça ne fonctionne pas dans la forme actuelle

---

Si, si...
Il faut bien entendu enlevé le Stop, il est là juste pour te montrer qu'on passe au bon endroit en quittant C13...
Si tu regardes bien tu ne verras pas beaucoup de différence entre les 2 codes.
eric

Bonjour le fil, bonjour le forum,

Arf ! Je te recommande vivement le code d'Éric...

? Il n'a rien de plus que le tien :-)
A moins qu'il n'y ait une ironie sur une erreur que je ne vois pas ?
eric

Re,

Aucune ironie Éric, juste un remerciement car depuis le temps que je me demandais comment utiliser Static, tu m'en as fait une brillante démonstration. Avec en plus, une variable en moins...

Ah ok.
Je commençais à me poser des questions comme il avait dit qu'il n'y arrivait pas avec.
Comme des fois l'évidence ne saute pas au yeux... :-)
eric

Merci à nouveau.

J'ai pris le code d'Éric qui m'a chaudement été recommandé... et fonctionne parfaitement.



:merci: à nouveau à vous deux !

Dlight