Discussion :

[manuhell60]

Bonjour,

Dans mon tableau, plusieurs cellules comportent un commentaire.

Je dois permette à l'utilisateur de ce tableau d'imprimer les commentaires de ces différentes Cellules.

Hors je ne trouve pas sur le net et n'ai pas trouvé dans ce forum la réponse à cette question :

Comment imprimer uniquement et seulement les commentaires des cellules qui en contiennent ?

Merci de votre aide.

Cordialement.

[jurassic pork]

hello,
sous quelle forme l'impression ?
Faire un tour ici pour voir comment sélectionner les commentaires en VBA.
Ami calmant, J.P

[BENNASR]

Bonjour à tous
proposition :
envoyer dans une feuille en colonne A la valeur de la cellule et en colonne B le commentaire associé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testtt()
Dim co As Comment
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil2")
L = 2
    For Each co In F1.Comments
      F2.Cells(L, 1) = co.Parent
      F2.Cells(L, 2) = co.Text
      L = L + 1
    Next co
End Sub