MsgBox s'affiche à chaque fois
Résolu
Steeve999
Messages postés
16
Statut
Membre
-
Steeve999 Messages postés 16 Statut Membre -
Steeve999 Messages postés 16 Statut Membre -
Bonjour,
Je fais un MsgBox mais le problème il s'affiche à chaque fois que je sélectionne une case dans la feuille.
C'est quoi la solution pour qu'il s'affiche qu'une seule fois après chaque changement de valeur de la case M26.
Merci d'avance.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Variant
Valeur = Range("M26")
If Valeur = 2 Then
MsgBox ("Il faut calculer K2A")
End If
Je fais un MsgBox mais le problème il s'affiche à chaque fois que je sélectionne une case dans la feuille.
C'est quoi la solution pour qu'il s'affiche qu'une seule fois après chaque changement de valeur de la case M26.
Merci d'avance.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Variant
Valeur = Range("M26")
If Valeur = 2 Then
MsgBox ("Il faut calculer K2A")
End If
2 réponses
-
Bonjour
C'est l'évènement Change qu'il te faut traiterPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("M26")) Is Nothing Then Exit Sub
If Target.Value = 2 Then MsgBox ("Il faut calculer K2A")
End Sub
Cdlmnt -
Bonjour Steeve, bonjour le forum,
Tu n'as pas choisi la bonne événementielle. Si tu veux agir au changement c'est Change qu'il faut choisir et pas SelectionChange (qui elle agit chaque fois que tu sélectionnes une cellule). Ensuite il faut limiter son étendue (voir premiere ligne du code ).
Le code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$M$26" Then Exit Sub If Target.Value = 2 Then MsgBox "Il faut calculer K2A" End Sub
