Besoin aide, insertion de commentaire dans zone fusionnée

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

paul87

XLDnaute Impliqué
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..
 
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à 😉

Bon Reveillon.jpg
 

Pièces jointes

  • Bon Reveillon.jpg
    Bon Reveillon.jpg
    49.2 KB · Affichages: 101
  • Bon Reveillon.jpg
    Bon Reveillon.jpg
    49.2 KB · Affichages: 103
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour