Discussion :

[maleo833]

Re bonjour,

Existe-t-il un moyen de tester si une cellule contient un commentaire ?

Merci d'avance.

[LeForestier]

Bonjour,
Je ne connai pas de moyen direct pour cela, mais tu peu essayer avec ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub VoirSiCommentaire()
Dim Txt As String
    On Error GoTo Non
    Txt = Range("C8").Comment.Text
    MsgBox Txt
Exit Sub
Non:
    MsgBox "Pas de commentaire"
End Sub

A+

[ouskel'n'or]

Je n'ai pas mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Trouver()
On Error Resume Next
Blabla = Worksheets("Feuil1").Range("A2").Comment.Text
If Err = 91 Then MsgBox "Pas de commentaire"
End Sub

Pour savoir si tu as des commentaires dans ta feuille, tu peux mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox Worksheets("Feuil1").comments.count

[maleo833]

Un grand merci a tous les 2

[fred65200]

bonsoir,

tu peux aussi utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("Feuil1").Range("A2").Comment Is Nothing Then MsgBox "Pas de commentaire"

cordialement