Recopie de commentaires dans feuille 2

[pascal21]

bonsoir
je suis à la recherche du moyen de recopier des commentaires dans une autre feuille afin de faire une recap
voir le fichier joint pour mieux comprendre
merci

 

[pascal21]

Re : Recopie de commentaires dans feuille 2

re
j'ai trouvé ça sur le site de boisgontier que je suis bien incapable de modifier pour mon cas

Liste des commentaires d'un classeur

CommentairesListeClasseur

Sub ListeCommentaires()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Commentaires").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Commentaires"
ligne = 2
For s = 1 To ActiveWorkbook.Sheets.Count
For Each C In Sheets(s).Comments
Sheets("Commentaires").Cells(ligne, 1) = Sheets(s).Name
Sheets("Commentaires").Cells(ligne, 2) = C.Parent.Address
Sheets("Commentaires").Cells(ligne, 3) = C.Text
ligne = ligne + 1
Next C
Next s
End Sub

je pense qu'il faut modifier ce qui est en rouge pour que ça donee le contenu de la colonne A et le contenu de la ligne 3 pour mon tableau
si vous avez une idée
merci

 

[BOISGONTIER]

Re : Recopie de commentaires dans feuille 2

Bonjour,

voir pj

Private Sub Worksheet_Activate()
 Set f = Sheets("feuil1")
 ligne = 2
 For Each c In f.Comments
   adr = c.Parent.Address
   Cells(ligne, 1) = f.Cells(Range(adr).Row, 1)
   Cells(ligne, 2) = f.Cells(3, Range(adr).Column)
   Cells(ligne, 3) = f.Range(adr)
   temp = c.Text
   Cells(ligne, 4) = Mid(temp, InStr(temp, ":") + 2)
   ligne = ligne + 1
 Next c
End Sub

JB

 

[pascal21]

Re : Recopie de commentaires dans feuille 2

bonjour et merci pour ton aide
c'est tout à fait ce que je voulais faire
bonne journée
edit en plus ça se range par dates, la cerise sur le gateau quoi!!!!!