JofK
XLDnaute Nouveau
Bonjour à tous,
Je vous sollicite une fois de plus car mes compétences sont encore bien trop limitées.
Je souhaiterai activer un msgbox lorsque la cellule AL101=5, idem pour la cellule AM101=2
Voici ma macro à l’heure actuelle se trouvant sur mon thisworkBook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Apparition message quand 5 numéro ont été sélectionnés
If Sheets("Page du client").Range("AL101") = 5 Then
MsgBox "Vous avez sélectionné tous vos numéros"
Exit Sub
End If
'Apparition message quand 2 étoiles ont été sélectionnées
If Sheets("Page du client").Range("AM101") = 2 Then
MsgBox "Vous avez sélectionné toutes vos étoiles"
Exit Sub
End If
End Sub
Mon problème est qu’une fois ce nombre atteint mon Msgbox s’affiche à chaque action. Comment faire pour qu’il ne s’affiche qu’une seule fois ?
Merci par avance à vous
Je vous sollicite une fois de plus car mes compétences sont encore bien trop limitées.
Je souhaiterai activer un msgbox lorsque la cellule AL101=5, idem pour la cellule AM101=2
Voici ma macro à l’heure actuelle se trouvant sur mon thisworkBook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Apparition message quand 5 numéro ont été sélectionnés
If Sheets("Page du client").Range("AL101") = 5 Then
MsgBox "Vous avez sélectionné tous vos numéros"
Exit Sub
End If
'Apparition message quand 2 étoiles ont été sélectionnées
If Sheets("Page du client").Range("AM101") = 2 Then
MsgBox "Vous avez sélectionné toutes vos étoiles"
Exit Sub
End If
End Sub
Mon problème est qu’une fois ce nombre atteint mon Msgbox s’affiche à chaque action. Comment faire pour qu’il ne s’affiche qu’une seule fois ?
Merci par avance à vous