Ajouter un commentaire à une cellule collée

[nicxls]

bonjour au forum,

Après avoir copier un ligne entière d'une feuille bordereau vers une feuille récap, je voudrais ajouter un ligne de code dans ma macro (module2) avant la boucle, qui ajoute un commentaire dans la première cellule de chaque ligne collée, celui-ci doit indiquer le nom du bordereau(ex du texte commentaire : "le n° du bordereau est" &sheets.name ou "cette ligne vient du bordereau" & sheet.name) !!! .
extrait du module2

c.EntireRow.Copy 
            ActiveCell.EntireRow.PasteSpecial Paste:=xlPasteValues
            ActiveCell.Select
'c'est ici que je voudrais ajouter ma ligne de code !
'ActiveCell.AddComment
'ActiveCell.Comment.Visible = False
'ActiveCell.Comment.Text Text:="Username:" & Chr(10) & "Cette ligne vient du borerau n° 3" !!!
        Else

Mon fichier est dispo
Cijoint.fr - Service gratuit de dépôt de fichiers

Merci d'avance pour votre aide précieuse.
@ bientôt

 

[Staple1600]

Re : Ajouter un commentaire à une cellule collée

Bonsoir


Essaies d'adapter la macro ci-dessous à tes besoins

Sub atest()
Dim rngS As Range, rngD As Range, nBu$
With ActiveCell
    Set rngS = .EntireRow: nBu = .Parent.Name
End With
Set rngD = Sheets("Feuil2").Range("A65536").End(xlUp)(2)
rngS.Copy rngD
rngD.AddComment "Ce bordereau vient de :" & Chr(10) & nBu
End Sub

 

[nicxls]

Re : Ajouter un commentaire à une cellule collée

Bonjour à tous,

Merci Staple1600, je suis un peu à labour, je vais tester ton code et je reviendrai rapidement pour le résultat.

@ bientôt