[XL-2003] Compter une valeur dans un classeur

Compter une valeur dans un classeur

Bonjour
Je souhaite créer un code VBA qui permet de compter le nombre de fois qu'une valeur apparait dans un classeur( plusieurs feuilles de noms distincts) la valeur se trouve dans la colonne D de chaque feuille.
NB: j'apprends encore le VBA
Merci pour votre aide

Bonsoir,

Avec la fonction COUNTIF (NB.SI) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub NBFoisMot()
 
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Mot As String
    Dim Total As Long
 
    'mot à trouver, à adapter
    Mot = "sevy1"
 
    For Each Fe In Worksheets
 
        With Fe
 
            'plage en colonne D de D1 à Dx
            Set Plage = .Range(.Cells(1, 4), .Cells(.Rows.Count, 4).End(xlUp))
 
        End With
 
        'totalise le nombre de fois où est trouvé le mot (fonction NB.SI)
        Total = Total + Application.WorksheetFunction.CountIf(Plage, Mot)
 
    Next Fe
 
    'affiche le résultat
    MsgBox Total
 
End Sub

Hervé.

Bonjour
C'est bon
Mille mercis