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 38437 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 23 février 2025 - 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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
22 déc. 2014 à 10:51
Bonjour,

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

0
jordane45 Messages postés 38437 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 23 février 2025 4 737
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