Améliorer le listage des commentaires

[herve80]

Bonjour,

Soit la macro suivante insérée dans un module
Son rôle : elle ajoute une feuille et liste tous les commentaires du classeur, en indiquant : la feuille - l'adresse de la cellule - le texte du commentaire :

Sub ExportComment()
Set s = Sheets.Add
n = 2
For Each ws In Worksheets
For i = 1 To ws.Comments.Count
s.Cells(n, 1) = ws.Name
s.Cells(n, 2) = ws.Comments(i).Parent.Address(False, False)
s.Cells(n, 3) = ws.Comments(i).Text
n = n + 1
Next i
Next
s.Range("a1", Cells(n - 1, 3)).Copy
Range("a1").Select
End Sub

Je voudrais (svp ) que vous ajoutiez dans cette nouvelle feuille une cellule avec le contenu de la cellule où il y a un commentaire

Ce qui donnerait par ex: feuil2 - B5 - 3452323 - (commentaire : ventes du mois)

A+

 

[pierrejean]

Re : Améliorer le listage des commentaires

bonjour herve80

A tester:

Sub ExportComment()
Set s = Sheets.Add
n = 2
For Each ws In Worksheets
For i = 1 To ws.Comments.Count
s.Cells(n, 1) = ws.Name
s.Cells(n, 2) = ws.Comments(i).Parent.Address(False, False)
s.Cells(n, 3) = ws.Range(s.Cells(n, 2))
s.Cells(n, 4) = ws.Comments(i).Text
n = n + 1
Next i
Next
[COLOR=blue]s.Range("a1", Cells(n - 1, 3)).Copy
Range("a1").Select
[/COLOR]End Sub
 
Note : les lignes en bleu peuvent etre supprimées

 

[herve80]

Re : Améliorer le listage des commentaires

pierrejean,

J'ai 9 classeurs de 5 feuilles pour le calcul de salaires, alors crois-moi, ta macro me fait gagner un temps précieux.

Je te souhaite une belle journée l'ami