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

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

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

Réponse 1 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
17 juil. 2017 à 11:49

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 Messages postés 16 Date d'inscription lundi 17 juillet 2017 Statut Membre Dernière intervention 24 avril 2018
17 juil. 2017 à 12:10

Merci :)

Réponse 2 / 2

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

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 Messages postés 16 Date d'inscription lundi 17 juillet 2017 Statut Membre Dernière intervention 24 avril 2018
17 juil. 2017 à 12:11

Merci beaucoup

Discussions similaires

programme qui n'affiche pas le mot secret

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

paiment 4x nickel sur top achat

Alerte de siréne de mairie

PowerPoint - affichage progressif du texte ?

Discussions similaires

Newsletters