Commentaire "automatique" en fonction d'une saisie

Résolu/Fermé
Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018 - Modifié le 25 janv. 2018 à 18:34
Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018 - 25 janv. 2018 à 20:53
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 14399 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 16 avril 2024 2 701
25 janv. 2018 à 18:53
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 mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018
25 janv. 2018 à 19:02
Cela marche à la perfection merci beaucoup
0
Zorbaxx Messages postés 29 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 8 novembre 2018
Modifié le 25 janv. 2018 à 20:30
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