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
A voir également:
- MsgBox s'affiche à chaque fois
- Le clavier de mon telephone ne s'affiche plus - Guide
- Signe fois clavier iphone ✓ - Forum Word
- Téléphone sonne 1 fois puis messagerie - Forum Mobile
- Comment savoir quand une personne nous bloque sur portable - Forum Samsung
- Un seul bip quand j'appelle quelqu'un - Forum Mobile
2 réponses
Bonjour
C'est l'évènement Change qu'il te faut traiter
Cdlmnt
C'est l'évènement Change qu'il te faut traiter
Private 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
Steeve999
Messages postés
16
Statut
Membre
Merci :)
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 :
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