XL 2010 Récupérer commentaire des cellules

Airone784 · 1 Juillet 2021

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 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 · 1 Juillet 2021

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

VB:

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

assure toi qu'il y en a un

Airone784 · 1 Juillet 2021

patricktoulon à dit:
re
Bonjour

non c'est faux !!
avant de demander

VB:

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 · 1 Juillet 2021

comme ceci

VB:

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 · 1 Juillet 2021

patricktoulon à dit:

comme ceci

VB:

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 · 1 Juillet 2021

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

XL 2010 Récupérer commentaire des cellules

Airone784

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Airone784

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Airone784

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires