Extraction des commentaires d'un classeur

[bibendom]

Bonjour à tous,

Je possède un classeur qui contient un certain nombre de feuilles.
Chaque feuille du classeur représente un planning dont certaines cellules contiennent des commentaires.
Je voudrais extraire tous les commentaires provenant de TOUTES les feuilles du classeur pour les intégrer soit dans une nouvelle feuille soit dans un nouveau classeur.

Grand merci à vous pour vos réponses !

 

[BOISGONTIER]

Re : Extraction des commentaires d'un classeur

Bonjour,

Voir PJ

Liste des commentaires d'un classeur

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

JB

 

[bibendom]

Re : Extraction des commentaires d'un classeur

Merci, ça marche Nickel !! 🙂

 

[exene]

Re : Extraction des commentaires d'un classeur

Bonjour,

Je me permets de faire remonter cette discussion car la macro correspond tout à fait à mon besoin. J'aimerais cependant faire apparaitre dans la la feuille commentaire la valeur de la cellule contenant le commentaire (dans mon exemple la date).

Cordialement

 

[Softmama]

Re : Extraction des commentaires d'un classeur

Bonjour, juste une ligne à rajouter :

Sub ListeCommentaires()
  Application.DisplayAlerts = False
  On Error Resume Next
  Sheets("TempNoms").Delete
  On Error GoTo 0
  Sheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = "TempNoms"
  ligne = 2
  For s = 1 To ActiveWorkbook.Sheets.Count
    For Each C In Sheets(s).Comments
     Sheets("TempNoms").Cells(ligne, 1) = Sheets(s).Name
     Sheets("TempNoms").Cells(ligne, 2) = C.Parent.Address
     Sheets("TempNoms").Cells(ligne, 3) = C.Text
     [B]Sheets("TempNoms").Cells(ligne, 4) = IIf(IsDate(C.Parent), Format(C.Parent, "dd/mm/yyyy"), C.Parent)[/B]
     ligne = ligne + 1
    Next C
  Next s
 End Sub

 

[exene]

Re : Extraction des commentaires d'un classeur

Bonjour,

Je te remercie de ta réponse, il y avait une inversion jour mois (corrigée), le 01/06 devenait le 06/01. Par contre saurais tu intégrer à la macro un tri croissant par date.😛 (mais je ne veux pas abuser de ton temps)

Cordialement

 

[Softmama]

Re : Extraction des commentaires d'un classeur

Bonjour,

Une autre ligne à rajouter :

Sub ListeCommentaires()
  Application.DisplayAlerts = False
  On Error Resume Next
  Sheets("TempNoms").Delete
  On Error GoTo 0
  Sheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = "TempNoms"
  ligne = 2
  For s = 1 To ActiveWorkbook.Sheets.Count
    For Each C In Sheets(s).Comments
     Sheets("TempNoms").Cells(ligne, 1) = Sheets(s).Name
     Sheets("TempNoms").Cells(ligne, 2) = C.Parent.Address
     Sheets("TempNoms").Cells(ligne, 3) = C.Text
     Sheets("TempNoms").Cells(ligne, 4) = IIf(IsDate(C.Parent), Format(C.Parent, "dd/mm/yyyy"), C.Parent)
     ligne = ligne + 1
    Next C
  Next s
     [[B]D2].Sort Key1:=[D2], Order1:=xlAscending, Header:=xlNo, DataOption1:=xlSortTextAsNumbers[/B]
 End Sub

 

[exene]

Re : Extraction des commentaires d'un classeur

Bonsoir,

Encore merci pour ton aide

Cordialement

 

[soso3413]

Re : Extraction des commentaires d'un classeur

Bonjour,
ayant trouvé votre algorithme intéressant pour mon projet de stage, je l'ai adapté à une feuille excel mais j'aurais besoin de pouvoir l'expliquer à mon oral de stage. Pourriez vous me dire à quoi ça correspond exactement svp ?

Cordialement

 

[tototiti2008]

Re : Extraction des commentaires d'un classeur

Bonjour soso3413,

Bienvenue sur XLD,

On pourrait peut-être passer l'oral de stage à ta place 😀

Non, sans rire, sur quelle partie bloques-tu ?