Créer macro Excel 2003

Question

Bonjour &#224; tous,
J'aimerais avoir une macro qui permettrait de compter combien de fois qu'on retrouve le mot  EX : "cuisson" dans les commentaires d'une feuille Excel 2003.
Je suis nul en programmation  Est-ce qu'il aurait une personne qui serait assez charitable pour me la cr&#233;er. J'ai cherch&#233; sur le site mais j'ai pas trouver. 
Merci.
Bye.

michelxld · Answer

bonjour

j'espere que cet exemple pourra t'aider

Sub compterMot_Commentaires()
Dim Cmnt As Comment
Dim Cible As String
Dim i As Integer, Valeur As Integer, Resultat As Integer


If ActiveSheet.Comments.Count = 0 Then Exit Sub


For Each Cmnt In ActiveSheet.Comments
Cible = Cmnt.Text


For i = 1 To Len(Cible)
Valeur = InStr(i, Cible, "cuisson", vbTextCompare)
    If Valeur = 0 Then
    Exit For
    Else
    Resultat = Resultat + 1
    i = Valeur + 7
    End If
Next i


Next Cmnt
MsgBox Resultat
End Sub

bonne soiree
michel

michelxld · Answer

rebonjour

Oouuppss... j'ai &#233;t&#233; un peu vite ci joint la macro modifi&#233;e

Sub compterMot_Commentaires()
Dim Cmnt As Comment
Dim Cible As String
Dim i As Integer, Valeur As Integer, Resultat As Integer


If ActiveSheet.Comments.Count = 0 Then Exit Sub


For Each Cmnt In ActiveSheet.Comments
Cible = Cmnt.Text


For i = 1 To Len(Cible)
Valeur = InStr(i, Cible, "cuisson", vbTextCompare)
    If Valeur = 0 Then
    Exit For
    Else
    Resultat = Resultat + 1
    i = Valeur + 8
    End If
Next i


Next Cmnt
MsgBox Resultat
End Sub

bonne soiree
michel

Gervaisb · Answer

Super ! &#231;a fonctionne, super bien, mille fois mercis.
Salut.

Créer macro Excel 2003

3 réponses

Discussions similaires