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:

Discussions similaires

Réponses
6
Affichages
139
Réponses
7
Affichages
263
Réponses
11
Affichages
316

Statistiques des forums

Discussions
297 993
Messages
1 964 947
Membres
200 777
dernier inscrit
BLUMI