Commentaire "automatique" en fonction d'une saisie

Résolu
Zorbaxx Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
Zorbaxx Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
1
Zorbaxx Messages postés 29 Date d'inscription   Statut Membre Dernière intervention  
 
Cela marche à la perfection merci beaucoup
0
Zorbaxx Messages postés 29 Date d'inscription   Statut Membre Dernière intervention  
 
Re, j'aimerai juste une petite précision, je ne comprend pas ta première ligne de code (le byval target as range) Je ne suis pas un pro en vba et je n'aime pas utiliser quelque chose que je ne comprend pas ^^. Si tu pouvais me détailler un peu ton code cela serai magnifique. Merci
0