[XL-2010] Compter nombre occurrences

Version imprimable

Bonjour à tous,

J'ai un petit souci, j'ai un classeur excel avec pas mal de feuilles, et je voudrais savoir combien de fois un certain mot est présent, j'ai tenté ce code mais sans succès :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub REcherche()
Dim Texte As String
Dim Cel As Range
Dim Compteur As Long
Dim Ws As Worksheet
 
       Texte = InputBox("Entrer le nom", "Recherche")
        For Each Ws In ThisWorkbook.Worksheets
           For Each Cel In Ws
            If UCase(Cel) = UCase(Texte) Then Compteur = Compteur + 1
 
        Next
    Next
    MsgBox "Le texte " & Texte & " a été trouvé " & Compteur & " fois"
End Sub

Comment je peux faire ? Merci d'avance

20/05/2015, 16h12
joe.levrai

Bonjour,

un petite recherche sur le forum t'aurai déjà orienté sur des solutions adaptables

http://www.developpez.net/forums/d12...r/#post6836301

Ah oui merci !!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each Ws In ThisWorkbook.Worksheets
          With Ws
            Set c = .Columns("A:Z").Find(What:=Texte, LookIn:=xlValues, LookAt:=xlPart)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Compteur = Compteur + 1
                    Set c = .Columns("A:Z").FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
            Next Ws
    MsgBox "Le texte " & Texte & " a été trouvé " & Compteur & " fois"