XL 2010 Récupérer commentaire des cellules

[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 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

 

[patricktoulon]

re
Bonjour

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

non c'est faux !!
avant de demander

If Cells(j, i).Comment.Text <> "" Then

assure toi qu'il y en a un

 

[Airone784]

re
Bonjour

non c'est faux !!
avant de demander

If Cells(j, i).Comment.Text <> "" Then

assure toi qu'il y en a un

Bonjour et merci de votre réponse.

Comment je fais ça puisque j'ai déjà un if qui vérifie s'il y a un commentaire ????

 

[patricktoulon]

comme ceci

Sub test()
    Dim i&, j&, t$
    i = 2: j = 1
    Set Commentaire = Feuil1.Cells(i, j).Comment
    If Not Commentaire Is Nothing Then
        t = "oui il y a un commentaire " & vbCrLf
        If Feuil1.Cells(i, j).Comment.Text <> "" Then
            MsgBox t & Feuil1.Cells(i, j).Comment.Text
        End If
    Else
        MsgBox "non pas de commentaire "
    End If
End Sub

 

[Airone784]

comme ceci

Sub test()
    Dim i&, j&, t$
    i = 2: j = 1
    Set Commentaire = Feuil1.Cells(i, j).Comment
    If Not Commentaire Is Nothing Then
        t = "oui il y a un commentaire " & vbCrLf
        If Feuil1.Cells(i, j).Comment.Text <> "" Then
            MsgBox t & Feuil1.Cells(i, j).Comment.Text
        End If
    Else
        MsgBox "non pas de commentaire "
    End If
End Sub

Ah super et bien merci beaucoup je vais mettre ça en application....

Bonne fin de journée

 

[patricktoulon]

re
au fait

Comment je fais ça puisque j'ai déjà un if qui vérifie s'il y a un commentaire ????

pour répondre a ta question
non tu ne testais pas la présence d'un commentaire mais la valeur d'un commentaire c'est pas la même chose
on peut pas tester la valeur de quelque chose avant de savoir si ce quelque chose existe