Besoin aide, insertion de commentaire dans zone fusionnée

paul87 · 31 Décembre 2012

Bonjour à tous,
Bonjour le Forum,

dans une macro liée à un CommandButton, je souhaite faire ajouter un commentaire dans une zone fusionnée.
Je n'y arrive pas avec le code ci dessous,
Pourriez vous m'aider, svp

Code:

 With .Range(Cells(LgTrav, ColDebut), Cells(LgTrav, ColFin))
        .Interior.ColorIndex = 1
        .Interior.Pattern = xlSolid
        .Font.ColorIndex = 2
        .FormulaR1C1 = TextBox2.Value & "   Status: CANCELLED / ABORTED"

        LgTx3 = TextBox2.TextLength

       '.Range(Cells(LgTrav, ColDebut), (Cells(LgTrav, ColFin))).AddComment
    
       '.Range(Cells(LgTrav, ColDebut), Cells(LgTrav, ColFin)).Comment.Visible = False
       '.Range(Cells(LgTrav, ColDebut), Cells(LgTrav, ColFin)).Comment.Text Text:="bla...bla" & Chr(10) & ""

End With

en déboguage, les valeurs du range LgTrav, ColDebut, ColFin sont bien récupérée..

Compte Supprimé 979 · 31 Décembre 2012

Re : Besoin aide, insertion de commentaire dans zone fusionnée

Bonjour Paul87

Si tu lances l'enregistrement d'une macro en insérant un commentaire dans une zone de cellules fusionnées,
tu remarqueras qu'Excel n'inscrit le commentaire que dans la 1ère cellule en fait

Donc :

Code:

.Cells(LgTrav, ColDebut).AddComment

Voili, voilà

paul87 · 31 Décembre 2012

Re : Besoin aide, insertion de commentaire dans zone fusionnée

Merci++..!!
Bonnes Fêtes.
Merci !!

Besoin aide, insertion de commentaire dans zone fusionnée

paul87

XLDnaute Impliqué

Compte Supprimé 979

Guest

Pièces jointes

paul87

XLDnaute Impliqué

Discussions similaires