VBA macro clic sur une cellule
Résolu
ori05
Messages postés
56
Date d'inscription
Statut
Membre
Dernière intervention
-
ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA macro clic sur une cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
7 réponses
Salut,
En fait, dans ce cas, la macro ne doit pas tester la valeur contenue dans la cellule mais la valeur du combobox.
Double clic sur la liste déroulante donne :
Private Sub ComboBox1_Change()
End Sub
entre ces deux lignes indiquer :
If ComboBox1.Value = "NOK" Then
MsgBox "Add a comment"
End If
à noter toutefois que ComboBox1 est le nom de ta liste déroulante nom susceptible d'être différent chez toi.
En fait, dans ce cas, la macro ne doit pas tester la valeur contenue dans la cellule mais la valeur du combobox.
Double clic sur la liste déroulante donne :
Private Sub ComboBox1_Change()
End Sub
entre ces deux lignes indiquer :
If ComboBox1.Value = "NOK" Then
MsgBox "Add a comment"
End If
à noter toutefois que ComboBox1 est le nom de ta liste déroulante nom susceptible d'être différent chez toi.
En fait ma liste n'est pas faite à partir d'une combobox, mais de données->validation->liste....
Donc ça ne va pas marcher....si ?
Donc ça ne va pas marcher....si ?
Oui non.
Dans ton cas, ta macro est donc la bonne. Il convient de tester la valeur de ta cellule. Alors comment et quand veux tu que la macro se lance?
Dans ton cas, ta macro est donc la bonne. Il convient de tester la valeur de ta cellule. Alors comment et quand veux tu que la macro se lance?
Je voudrais que ma macro se lance dès que je sélectionne NOK dans ma liste. En fait elle marche bien, mais une fois la selection faite il faut que je clique à coté et ensuite que je REclique sur ma cellule pour que le message s'affiche....c'est ça qui m'embete
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonjour
ci dessous la cellule "validation" est E2
ci dessous la cellule "validation" est E2
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$2" Then Exit Sub If Target = "NOK" Then MsgBox "c'est gagné!" End If End Sub
michel_m j'ai testé ta solution mais malheureusement ça ne change rien du tout par rapport à ce que j'avais fait avant il faut également sortir de la case et recliquer dessus pour voir le message....
pijaku j'ai également testé la tienne, là le message s'affiche quand on sort de la cellule, donc c'est déjà mieux on n'a pas besoin de recliquer dessus, cependant le fait d'utiliser ActiveCell m'arrangeait beaucoup, car la liste déroulante OK/NOK je l'ai plein de fois dans ma feuille !
Donc là je ne sais pas trop comment procéder...
pijaku j'ai également testé la tienne, là le message s'affiche quand on sort de la cellule, donc c'est déjà mieux on n'a pas besoin de recliquer dessus, cependant le fait d'utiliser ActiveCell m'arrangeait beaucoup, car la liste déroulante OK/NOK je l'ai plein de fois dans ma feuille !
Donc là je ne sais pas trop comment procéder...