Detecter un commentaire dans une cellule

Bonsoir,

Avec une plage de cellules de sélectionnée, une piste qui pourrait faire
l'affaire:
'----------
Sub jj()
For Each c In Selection
If Range(c.Address).NoteText <> "" Then MsgBox "la cellule " & c.Address
& " contient un commentaire"
Next
End Sub
'----------
Salutations
JJ

"Valéry" <Valry@discussions.microsoft.com> a écrit dans le message de
news:F3A7D23D-6E53-462A-9CAF-1AC06139885A@microsoft.com...

Bonjour, après de vaines recherches, j'aurais besoin de savoir s'il existe
une commande permettant de détecter si une cellule contient ou non un
commentaire.

Je vous remercie par avance
Cordialement
Valéry POLLET

Bonjour Valéry,

Voici une petite fonction basée sur la gestion d'erreur :

Sub toto()
MsgBox IsCommented(Cells(1, 1))
End Sub


Function IsCommented(bil As Range) As Boolean
On Error GoTo Err:

IsCommented = True

Untest = bil.Comment.Text

Err:
If Err.Number = 91 Then
IsCommented = False
Else
If Err.Number <> 0 Then
MsgBox Err.Number
Stop
End If
End If

End Function


Poulpor

Bonjour, après de vaines recherches, j'aurais besoin de savoir s'il existe
une commande permettant de détecter si une cellule contient ou non un
commentaire.

Je vous remercie par avance
Cordialement
Valéry POLLET

Merci beaucoup, ca marche. trop fort, ca va bien m'aider.
@+

Bonjour Valéry,

Voici une petite fonction basée sur la gestion d'erreur :

Sub toto()
MsgBox IsCommented(Cells(1, 1))
End Sub


Function IsCommented(bil As Range) As Boolean
On Error GoTo Err:

IsCommented = True

Untest = bil.Comment.Text

Err:
If Err.Number = 91 Then
IsCommented = False
Else
If Err.Number <> 0 Then
MsgBox Err.Number
Stop
End If
End If

End Function


Poulpor

Bonjour, après de vaines recherches, j'aurais besoin de savoir s'il existe
une commande permettant de détecter si une cellule contient ou non un
commentaire.

Je vous remercie par avance
Cordialement
Valéry POLLET