Discussion :

[dlight]

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

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)
If Target.Count = 1 Then
    If Target.Row = 13 Then
        MsgBox "allo"
    End If
End If
End Sub

Merci à l'avance

[eriiic]

Bonjour,

une possibilité :

Code :

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

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

[Thautheme]

Bonsoir Dlight, bonsoir le forum,

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

Code :

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

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

[dlight]

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.

à vous deux


Dlight

[eriiic]

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

[Thautheme]

Bonjour le fil, bonjour le forum,

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

[eriiic]

? 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

[Thautheme]

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

[eriiic]

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

[dlight]

Merci à nouveau.

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



à nouveau à vous deux !

Dlight