Quelle est la macro pour insérer un commentaire?

[anthoYS]

Bonjour,

Comment faire pour que d'un double clic de la cellule active, colonne A uniquement, on puisse ajouter un commentaire prêt à être saisi?

Merci par avance

Edit ; je ne parviens pas à visualiser mes anciens messages...

 

[tototiti2008]

Re : Quelle est la macro pour insérer un commentaire?

Bonjour anthoys,

pas trouvé comment modifier le commentaire plus proprement qu'avec un sendkeys...

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

 

[anthoYS]

Re : Quelle est la macro pour insérer un commentaire?

Merci tototiti2008, c'est exactement ce que je souhaité.

 

[anthoYS]

Re : Quelle est la macro pour insérer un commentaire?

Re tototiti2008 -et Bonjour à ce qui prennent connaissance de mon sujet-,

Je me suis aperçu que le cadre du commentaire est trop réduit.

Comment faire pour qu'après le double clic les dimensions du cadre soient les suivantes :
-hauteur de 3,49 cm
-largeur de 8,10 cm ??

Merci par avance.

 

[jp14]

Re : Quelle est la macro pour insérer un commentaire?

Bonjour à tous

Ci dessous la procédure modifiée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
    Cancel = True
        If Target.Comment Is Nothing Then
        Target.AddComment
         With Target.Comment.Shape
            .Width = [COLOR="Red"]130[/COLOR] 'Largeur commentaire
            .Height = [COLOR="Red"]90[/COLOR] 'Hauteur
         End With
        End If
    SendKeys "%im"
    End If
End Sub

Valeur à modifier en fonction du résultat à obtenir.
JP

 

[anthoYS]

Re : Quelle est la macro pour insérer un commentaire?

Merci jp14. Un peu tardif désolé... 😱