Statistiques

Bonjour

J’aimerai que cet UserForm m'affiche le nombre de fois que le mot "fille" et le mot "garçon" apparait dans tout le classeur.

Merci

15statistiques.xlsm (21.99 Ko)

Bonjour Toze666,

Et hop une petite function qui va bien :

Function compteur(mot As String) As Long
    Dim cpt As Long
    'boucle sur toutes les feuilles du classeur
    For Each sht In ThisWorkbook.Worksheets
        With sht.Cells
            Set c = .Find(mot, LookIn:=xlValues, lookAt:=xlWhole)
            If Not c Is Nothing Then
                firstAddress = c.Address
                'boucle tant qu'on trouve le mot recherché
                Do
                    cpt = cpt + 1
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
    Next sht
    compteur = cpt
End Function

Bonjour

Bonjour vba-new

Un essai (un peu long)

Bonjour Banzai,

Un peu long ? Ça m'a l'air plus rapide comme code non ?

merci a tout les deux, ça marche nikel..

Bonjour

Je ne sais pas

Quand je l'exécute, je trouve qu'il traine (ma version d'excel ?)

Il y a un temps entre le clic sur le bouton et l'affichage

C'est pour cela que j'ai marqué qu'il était long, comme je n'ai comparé à rien, c'est un sentiment personnel

Edit

Et maintenant que j'ai testé ton code, le mien est lent

chez moi, ça va rapide.... .........encore une fois merci

Bonjour Bonzai64 (et tous les autres), ton code marche à merveille, sur ça il ne faut rien changer, mais j’aimerai encore savoir si c’es possible de savoir combien de fois le mot « Oui » apparait dans le même classeur, mais cette fois juste dans les cellules « E2 », est’ il possible de rajouter cette fonction dans le même code?

merci

Bonjour

Dans le même style

Nikel, merci

Rechercher des sujets similaires à "statistiques"