Discussion :

[Harry Covair]

Bonjour à tous

Dans une procédure événementielle, comment récupérer la valeur d’une variable lors d’une réexécution.
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_SelectionChange()
Dim sw_row, sw_col as integer
If sw_row = 0
Call test_row (sw_row)
End if
If sw_col = 0
Call test_col (sw_col)
End if
If sw_row = 1 and sw_col = 1 then
Msgbox “bonne ligne et bonne colonne”
End if
End sub
 
Sub Test_row(sw_row)
If activecell.row = 4 then
Msgbox “c’est la bonne ligne”
Sw_row = 1
End if
End sub
 
Sub Test_col(sw_col)
If activecell.col = 10 then
Msgbox “c’est la bonne colonne”
Sw_col = 1
End if
End sub

Je souhaiterais éviter l’appel de la routine « test_row » lors de la réexécution de l’événement si la ligne sur laquelle je clique est toujours la ligne 4.
Est-ce possible ? Quelqu’un a-t-il une expérience qui pourrait m’éclairer ?

D’avance merci

Harry

[Fvandermeulen]

Salut,
Théoriquement sur l'évènement tu aurait du avoir "ByVal Target as range"; Target étant la "variable" qui récupère l'adresse de la cellule sur la quelle on est.
En fait voici ce que ça donne:

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Row <> 4 Then Exit Sub
    MsgBox "C'est la bonne ligne (4)"
 
End Sub

A+

[ucfoutu]

Bonjour, Fvandermeulen,

Tu devrais lire le reste du code ... tu y découvrirais en plus des If sans Then

Maintenant, je crois par ailleurs deviner (va donc savoir pourquoi) que le but est mal expliqué...
Si ma boule de crystal ne m'a pas trahi, il sera peut-être bon de penser à l'utilisation d'une variable static.

[Harry Covair]

Grand merci.
J'avais recopié l'instruction de l'aide VBA sans faire attention. Et en plus c'est précisé.
Harry

Bonjour UCFOUTU,

Le code est plus complexe. Je n'y ai mis - en pseudo - que la partie qui me posait un problème. Et elle est résolue. Comme je ne suis pas expert en VBA, je vais creuser la notion de variable statique. Merci pour ton intervention

Harry