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
293 048
Messages
1 928 125
Membres
183 853
dernier inscrit
ali1987