commentaire suivant le contenu

[Sarlone]

Bonjour
est il possible de faire un commentaire (lié a la cellule)
si le contenu de la cellule est "A" alors le commentaire est "bonjour"
si le contenu est "B' alors le commentaire est "bonsoir"
merci pour votre aide
Cordialement

 

[soenda]

Re : commentaire suivant le contenu

Bonjour le fil, Sarlone

Un exemple qui prend en compte les cellules de la colonne A.

Dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A:A]) Is Nothing Then _
        If Target.Value = "A" Or Target.Value = "B" Then Commentaire Target, Target.Value = "A"
End Sub

Dans un module

Sub Commentaire(c As Range, b As Boolean)
    On Error Resume Next
    c.Add.Comment
    c.Comment.Text "" & IIf(b, "Bonjour", "Bonsoir")
End Sub

A plus

 

[Sarlone]

Re : commentaire suivant le contenu

merci pour cette reponse qui fonctionne bien
je pose une question complémentaire:
est-il possible par un doubleclic sur une cellule d'ouvrir la bulle commentaire et donc de la compléter?
merci

 

[Pierrot93]

Re : commentaire suivant le contenu

Bonjour Sarlone, Soenda

Regarde le lien ci-dessous, pas mal d'exemples vba sur les commentaires..

http://boisgontierjacques.free.fr/pages_site/commentaire.htm

bonne journée
@+

 

[BOISGONTIER]

Re : commentaire suivant le contenu

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Target.Comment Is Nothing Then
     SendKeys "%IM"
     Cancel = True
  End If
End Sub

JB

 

[Sarlone]

Re : commentaire suivant le contenu

merci bcp
cordialement

 

[chris]

Re : commentaire suivant le contenu

Bonjour

Shift F2 permet aussi d'accéder au commentaire sans macro...

 

[Tibo]

Re : commentaire suivant le contenu

Bonsoir Chris,

Bonjour

Shift F2 permet aussi d'accéder au commentaire sans macro...

Merci Chris pour ce raccourci dont j'ignorais l'existence.

Et hop, un de plus dans ma besace

Bises

@+