Compter le nombre de fois qu'une valeur apparait dans un classeur (vba)

[sevy1]

Bonjour le forum
J'ai un classeur dont j'ai renommé les feuilles; dans chaque feuille à la colonne C je saisis les numéros de dossiers, je souhaiterai saisir un numéro de dossier dans une cellule A1 par exemple , le rechercher dans tous le classeur et me renvoyer le nombre de fois qu'il l'a trouvé dans ce classeur.
Une solution VBA serait préferable.
Merci d'avance pour vos contributions

 

[job75]

Re : Compter le nombre de fois qu'une valeur apparait dans un classeur (vba)

Bonsoir sevy1,

Dans un module standard coller cette fonction VBA :

Function Compte(valeur, colonne)
Application.Volatile
Dim w As Worksheet
For Each w In Worksheets
  Compte = Compte + Application.CountIf(w.Columns(colonne), valeur)
Next
End Function

A coté de la cellule A1 contenant le numéro de dossier entrer la formule :

=Compte(A1;3)

3 correspond bien sûr à la colonne C.

Edit : ajouté Application.Volatile pour que la fonction se recalcule si l'on modifie les valeurs dans les feuilles.

Bonne fin de soirée.

 

[sevy1]

Re : Compter le nombre de fois qu'une valeur apparait dans un classeur (vba)

Bonjour
Une fois de plus merci pour votre aide et pour vos explications limpides (lication.Volatile).
Votre solution marche. Bonne journée