MsgBox s'affiche à chaque fois
Résolu/Fermé
Steeve999
Messages postés
16
Date d'inscription
lundi 17 juillet 2017
Statut
Membre
Dernière intervention
24 avril 2018
-
17 juil. 2017 à 11:37
Steeve999 Messages postés 16 Date d'inscription lundi 17 juillet 2017 Statut Membre Dernière intervention 24 avril 2018 - 17 juil. 2017 à 12:11
Steeve999 Messages postés 16 Date d'inscription lundi 17 juillet 2017 Statut Membre Dernière intervention 24 avril 2018 - 17 juil. 2017 à 12:11
A voir également:
- MsgBox s'affiche à chaque fois
- Le clavier de mon telephone ne s'affiche plus - Guide
- Signe fois clavier iphone ✓ - Forum Word
- Signe fois ✓ - Forum Windows
- Ou trouvé la touche multiplié??? ✓ - Forum Clavier
- Comment faire le signe de multiplication sur mon clavier - Forum Windows
2 réponses
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
17 juil. 2017 à 11:49
17 juil. 2017 à 11:49
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
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
17 juil. 2017 à 11:52
17 juil. 2017 à 11:52
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
Steeve999
Messages postés
16
Date d'inscription
lundi 17 juillet 2017
Statut
Membre
Dernière intervention
24 avril 2018
17 juil. 2017 à 12:11
17 juil. 2017 à 12:11
Merci beaucoup
17 juil. 2017 à 12:10