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

Airone784

XLDnaute Occasionnel
Bonjour à tous,

Voici mon code pour lequel j'ai un pb :

VB:
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

XLDnaute Barbatruc
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 :rolleyes:
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()"
VB:
Cells(1, 1).Copy
Cells(1, 2).PasteSpecial Paste:=xlPasteComments
 
Dernière édition:

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088