Msg box _ change

Fermé
cs_yoker Messages postés 3 Date d'inscription mercredi 21 janvier 2009 Statut Membre Dernière intervention 21 décembre 2014 - 19 déc. 2014 à 21:50
jordane45 Messages postés 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 - 22 déc. 2014 à 11:03
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 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 3 291
20 déc. 2014 à 09:24
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 mercredi 21 janvier 2009 Statut Membre Dernière intervention 21 décembre 2014
21 déc. 2014 à 18:49
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 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 3 291
22 déc. 2014 à 10:51
Bonjour,

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

0
jordane45 Messages postés 37253 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 mars 2023 4 551
22 déc. 2014 à 11:03
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