Menu

MsgBox s'affiche à chaque fois [Résolu]

Steeve999 16 Messages postés lundi 17 juillet 2017Date d'inscription 24 avril 2018 Dernière intervention - 17 juil. 2017 à 11:37 - Dernière réponse : Steeve999 16 Messages postés lundi 17 juillet 2017Date d'inscription 24 avril 2018 Dernière intervention
- 17 juil. 2017 à 12:11
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
Afficher la suite 

4 réponses

Répondre au sujet
ccm81 8346 Messages postés lundi 18 octobre 2010Date d'inscription 26 avril 2018 Dernière intervention - 17 juil. 2017 à 11:49
0
Utile
1
Bonjour

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 16 Messages postés lundi 17 juillet 2017Date d'inscription 24 avril 2018 Dernière intervention - 17 juil. 2017 à 12:10
Merci :)
Commenter la réponse de ccm81
ThauTheme 4338 Messages postés mardi 21 octobre 2014Date d'inscription 6 septembre 2017 Dernière intervention - 17 juil. 2017 à 11:52
0
Utile
1
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

Steeve999 16 Messages postés lundi 17 juillet 2017Date d'inscription 24 avril 2018 Dernière intervention - 17 juil. 2017 à 12:11
Merci beaucoup
Commenter la réponse de ThauTheme