Nombre d'occurence dans classeur

Bonjour,

je cherche une fonction qui me permet de comptabiliser le nombre de cellule A6 Ayant "pierre" dans mes 73 feuilles.

Merci d'avance pour votre aide

Salut

essayer ce code :

Sub Recherche()

    Dim sh As Worksheet, x As Integer
    For Each sh In Sheets
    If CStr(sh.Range("A6")) = "pierre" Then x = x + 1
    Next
    MsgBox x

End Sub

ton code marche bien en macro, mais je n'arrive pas à le mettre en fonction personnalisée car le critère "pierre" peut changer.

merci d'avance

voici le début de la fonction qui ne marche pas...

Function SEARCH(Critère As Range)

Sub Recherche()

Dim sh As Worksheet, x As Integer

For Each sh In Sheets

If CStr(sh.Range("A6")) = "" Then x = x + 1

Next

MsgBox x

End Sub

Bonjour,

une piste, sans formule ni macro... http://www.pcastuces.com/pratique/astuces/2537.htm

Je n'ai pas personnellement testé...

ton lien ne m aide pas, c'est bien une fonction personnalisé que j'ai besoin.

merci comme meme

Bonjour,

en quoi il ne t'aide pas? puisque avec ce lien, c'est l'utilisateur qui tape les caractères a chercher dans tout le classeur...?

C'est pas que je suis borné, mais c'est pour que derriere, les autres qui passent par ici puissent comprendre davantage ta recherche, et ce qui va pas...