text dans les comment

[daniel]

Bonjour,

je ne trouve pas de solution, pour parcourir les commentaires d'une feuille de calcul afin de calculer l'occurence d'un mot.

merci de votre aide,

cordialement,

Daniel.

 

[Hervé]

bonjour

La macro ci -dessous, calcul le nombre de fois que le mot daniel à été trouvé dans les commentaires des cellules de la plage a1:m30 :

Public Sub vev()
Dim c As Range
Dim n As Integer
For Each c In Range("a1:m30")
If Not c.Comment Is Nothing Then
If c.Comment.Text Like "*daniel*" Then n = n + 1
End If
Next c
MsgBox n

End Sub

Est-ceci que tu voulais ?

Salut
Hervé

 

[daniel]

herve,

ca me parait une bonne solution pour mon probleme,
je vais derechef l'essayer.

un grand merci,

daniel.

 

[Hervé]

re

Suite à ta demande via ma bal :

For Each c In sheets("nomdetafeuille").Range("taplage")

salut
Hervé