Signaler

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

Posez votre question Steeve999 5Messages postés lundi 17 juillet 2017Date d'inscription 20 juillet 2017 Dernière intervention - Dernière réponse le 17 juil. 2017 à 12:11 par Steeve999
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 
Utile
+0
plus moins
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 5Messages postés lundi 17 juillet 2017Date d'inscription 20 juillet 2017 Dernière intervention - 17 juil. 2017 à 12:10
Merci :)
Répondre
Donnez votre avis
Utile
+0
plus moins
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 5Messages postés lundi 17 juillet 2017Date d'inscription 20 juillet 2017 Dernière intervention - 17 juil. 2017 à 12:11
Merci beaucoup
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !