Msg box _ change

cs_yoker Messages postés 3 Statut Membre -  
jordane45 Messages postés 30427 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

2 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. cs_yoker Messages postés 3 Statut Membre
       
      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
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Bonjour,

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

      0
  2. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 831
     
    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