MsgBox s'affiche à chaque fois
Résolu
Steeve999
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
Steeve999 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Steeve999 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
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
- Dell clignote 4 fois blanc 2 fois orange - Forum PC portable
- Téléphone sonne 1 fois puis messagerie - Forum Mobile
- Paypal paiement 4 fois airbnb - Forum Consommation & Internet
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
Date d'inscription
Statut
Membre
Dernière intervention
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