Msg box _ change

cs_yoker Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

j'ai un msg box qui se répète 2 fois car je suis sous l'événement change

voici une partie du code :

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If plage Is Nothing Then Range("B9").Select
MsgBox "test"
Exit Sub

End sub



y a t-il une solution :)

Merci d'avance

A voir également:

2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

Plage: ??? merci d'^tre exhaustif dans ta demande

autrement c'est normal tu es en selection change et tu fais un select dans ton code--> la macro recommence
0
cs_yoker Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Michel_m
Merci pour ta réponse.
par contre moi je sais que je suis sur une proc Change.

Moi je demande est qu'il y a une solution pour le msgbox qui se répète deux fois suite à sa insertion dans cette procédure.

Un astuce par exemple de mettre le msgbox tout seul et répond à ces critères :)
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

RAPPEL
Plage: ??? merci d'^tre exhaustif dans ta demande

0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention  
 
Bonjour,

Vu que la macro se déclenche à CHAQUE changement de cellule dans ta feuille..il est normal que ton message apparaisse AUSSi lorsque tu fais un Range("B9").select...

Tu peux éviter cela en regardant si tu te trouves en B9 ou pas..
Par exemple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B9")) Is Nothing Then
 Debug.Print "Je suis sur la cellule B9"
Else
 Debug.Print "Je suis sur une autre cellule que B9"
End If

End Sub



0