Discussion :

[Daejung]

Bonjour,

Quelle fonction ou code VBA me permettrait de compter les occurences d'une chaîne dans une feuille?

Je ne souhaite pas les rechercher (ni déplacer le curseur sur les cellules concernées) mais seulement les compter en VBA

Merci

[Daranc]

regardes du coté de find
le code de l'aide te donnes:

Code :

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

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

remplace le 2 par ta chaine vire le c.value=5 et remplace par t=t+1
insere un code pour ta chaine
un peu comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub comptage()
a$ = "bourdon"
With Worksheets(1).Range("a1:a500")
    Set c = .Find(a$, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        t = 1
        Do
            t = t + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    Range("a1") = t
End With
End Sub

la chaine a$ est dans le cas présent bourdon mais bourdonnement la contient et sera compter pour 1 la phrase "un coup de bourdon" également