Récupérer un commentaire d'une cellule

Bonsoir,

J'ai un fichier Excel dans lequel un utilisateur a mis plein de commentaires (petit triangle rouge en haut à droite de la cellule).

Je voudrais savoir s'il est possible de récupérer ces commentaires.

Je m'explique :

si A1 a un commentaire alors mettre dans B1 le commentaire sinon passer à A2

et on continue comme cà de A1 jusqu'à A15000

Par avance merci si vous pouvez m'orienter

Nini

Bonjour

Sub ExtraitCommentaire()
  For Each c In Range("A1", [A65000].End(xlUp))
    c.Offset(0, 1) = c.Comment.Text
    Next c
End Sub

Cordialement

Merci pour la réponse, je vais essayer demain avec mon fichier

Dans le même genre, est ce que l'on peut mettre un texte précis dans la cellule d'à côté en fonction de la couleur du fond de la cellule

Si en A1 le fond est vert alors ok dans B1

Si en A1 le fond est rouge alors "pas ok" dans A1

Si en A1 le fond est jaune alors "bof" dans A1

Si en A1 pas de fond alors rien sen A1

Ca jusqu'à A15000

Merci

Bonjour

Voir nouveau fichier

Cordialement

Bonjour

Un grand merci car le code m'a permis d'y arriver

Le seul problème venant du fait qu'en l'absence de commentaire, le code plantait

Je me suis débrouillé et voici le code :

Sub ExtraitCommentaire()
  For Each c In Range("E2", [E5000].End(xlUp))
    If Not c.Comment Is Nothing Then
    c.Offset(0, 2) = c.Comment.Text
    End If
    Next c
End Sub

Sub valeur_couleur()
Dim cell As Range

For Each c In Range("E2", [E5000].End(xlUp))
If c.Interior.ColorIndex = 3 Then c.Offset(0, 1) = "Non acceptable"  'rouge.non conforme
If c.Interior.ColorIndex = 6 Then c.Offset(0, 1) = "Acceptable" 'jaune.acceptable
If c.Interior.ColorIndex = 43 Then c.Offset(0, 1) = "Conforme" 'vert.conforme
Next c

End Sub

Encore merci

Nini