zesuila
XLDnaute Occasionnel
Bonjour à tous
dans mon projet, j'ai dans la colonne A, un liste de validation (en fait de A2 à A20)
Est il possible que lorsque l'utilisateur choisit un mot précis dans la liste de validation (par exemple "divers") que la fenêtre des commentaires apparaisse pour qu'il puisse écrire une précision sur ce "divers. Mais que pour les autres mots eux ne fassent pas apparaitre cette fenetre (en fait dans mon projet il y aurait 3 mots pour faire réagir la fenêtre" (divers, autres, plaque)
sur l'excellent site Formation Excel VBA JB, j'ai trouvé un bout de code mais je ne sais pas l'adapter
le voici :
If ActiveCell.Comment Is Nothing Then
ActiveCell.AddComment ' Création commentaire
ActiveCell.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
ActiveCell.Comment.Shape.OLEFormat.Object.Font.Size = 7
ActiveCell.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
SendKeys "+{F2}"
End If
merci
dans mon projet, j'ai dans la colonne A, un liste de validation (en fait de A2 à A20)
Est il possible que lorsque l'utilisateur choisit un mot précis dans la liste de validation (par exemple "divers") que la fenêtre des commentaires apparaisse pour qu'il puisse écrire une précision sur ce "divers. Mais que pour les autres mots eux ne fassent pas apparaitre cette fenetre (en fait dans mon projet il y aurait 3 mots pour faire réagir la fenêtre" (divers, autres, plaque)
sur l'excellent site Formation Excel VBA JB, j'ai trouvé un bout de code mais je ne sais pas l'adapter
le voici :
If ActiveCell.Comment Is Nothing Then
ActiveCell.AddComment ' Création commentaire
ActiveCell.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
ActiveCell.Comment.Shape.OLEFormat.Object.Font.Size = 7
ActiveCell.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
SendKeys "+{F2}"
End If
merci