Commentaire "automatique" en fonction d'une saisie Résolu

Question

Bonjour à  tous,
J'ai un tableau à remplir avec des lettres qui correspondent à des statuts et j'ai besoin d'inscrire des commentaires sur certains d'entre eux. 

J'aimerai que quand je rentre la lettre "p" par exemple, il m'ouvre automatiquement la boite de dialogue pour écrire un commentaire. Sans devoir faire "clic droit" "insérer un commentaire". Pensez vous que cela soit possible?

Merci

via55 · Answer

Bonjour

Une possibilité par VBA
ALT+F11 pour ouvrir éditeur VBA
Sélectionner par clic droit  la feuille concernée dans l'arborescence affichée
Copier-coller la macro suivante dans la page blanche puis fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "p" Then
com = InputBox("Commentaire accompagnant la cellule:")
Target.AddComment
Target.Comment.Text Text:=com
End If
End Sub
Cdlmnt
Via

via55 · Answer

Re

La 1ere ligne n'est pas de moi elle est automatiquement mise par Excel quand dans l’éditeur en haut de la page au lieu de General tu vas dans Worksheet et quand à côté tu choisis l'évenement Change
La macro s'appliquera alors dans tout changement dans une cellule ou plage (range) cible (target)
 Le code que j'ai écrit ensuite pourrait se traduire  ainsi
Si la valeur de la cellule cible est "p" alors
Boite de dialogue pour demander  le commentaire à inscrire (réponse mise dans une variable com)
Ajout de commentaire à la cellule cible
Texte du commentaire = le texte entré dans la boite de dialogue (variable com)
Fin du Si

Commentaire "automatique" en fonction d'une saisie

2 réponses

Discussions similaires

Newsletters