Msgbox et menu déroulant

Bonjour,

Je suis débutante en macro et j'ai essayé de reprendre celle-ci mais je n'arrive pas à l'adapter correctement.

If Target.Column = 1 Then

If Target.Value = "Terminé" Then

Msgbox "Penser à clôturer les accès"

End If

Je voudrais que quand je sélectionne "Terminé" dans mon menu déroulant qu'une msgbox apparaisse en indiquant "Penser à clôturer les accès".

Merci de votre aide

Il faut mettre le code dans le code de la feuille :

Clique droit sur ton onglet en bas > Visualiser le code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Value = "Terminé" Then MsgBox "Penser à clôturer les accès"
End Sub

Merci pour le retour rapide,

cela fonctionne quand "terminé" est déjà sélectionné, mais ne fonctionne pas quand je sélectionne "terminé" sur la ligne 6 par exemple. Je voudrais que le message s'affiche uniquement quand je fais le changement dans le menu déroulant, Est-ce possible ?

Mettez donc ça à la place :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value = "Terminé" Then MsgBox "Penser à clôturer les accès"
End Sub

Super, merci beaucoup ça marche.

Rechercher des sujets similaires à "msgbox menu deroulant"