Ajouter un commentaire à une cellule collée

nicxls · 20 Janvier 2011

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

Code:

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 · 23 Janvier 2011

Re : Ajouter un commentaire à une cellule collée

Bonsoir

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

VB:

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 · 24 Janvier 2011

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

Ajouter un commentaire à une cellule collée

nicxls

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

nicxls

XLDnaute Nouveau

Discussions similaires