XL 2010 Récupérer commentaire d'une cellule

[Airone784]

Bonjour à tous,

Voici mon code pour lequel j'ai un pb :

sub commentaire

[ABX2:ACB10000].ClearContents


jour = Application.Match(CDbl(Date), Range("1:1"), 0)

For i = jour To 744 Step 2

For j = 5 To [A4].End(xlDown).Row

'If j = 89 And i = 606 Then
'a = a
'End If

If Cells(j, i) <> "" Then
Range("ABY10000").End(xlUp).Offset(1, 0) = Cells(j, i)
Range("ABX10000").End(xlUp).Offset(1, 0) = CDate(Cells(3, i))
Range("ABZ10000").End(xlUp).Offset(1, 0) = Cells(j, 2)
Range("ACA10000").End(xlUp).Offset(1, 0) = Cells(j, 3)

    If Cells(j, i).Comment.Text <> "" Then
    Range("ACB10000").End(xlUp).Offset(1, 0) = Cells(j, i).Comment.Text
    Else
    Range("ACB10000").End(xlUp).Offset(1, 0) = "-"
    End If
End If

Next j

Next i
end sub

Sauf que cela ne fonctionne pas car la propriété comment n'est pas compatible avec cells mais uniquement avec range.

Je ne vois pas ce que je peux faire pour récupérer mon commentaire du coup.

Merci d'avance pour votre aide

 

[Jacky67]

Bonjour à tous,

Sauf que cela ne fonctionne pas car la propriété comment n'est pas compatible avec cells mais uniquement avec range.

Bonjour,
Cette affirmation est fausse
Pour copier un commentaire d'une cellule vers une autre avec "Cells()" (ou autre), on peut (doit) procéder de cette manière.
Exemple pour copier le commentaire de la cellule A1 vers la cellule B1 avec "Cells()"

Cells(1, 1).Copy
Cells(1, 2).PasteSpecial Paste:=xlPasteComments