Coucou C@thy, José, Pascal, le Forum.
Arf, on s'est fait tous zopper alors !!!!
J'avais bien lu "Formule" dans le titre !
Pour une Function VBA c'est simple :
Option Explicit
Option Compare Text
Public Function COMPTECODE(ByRef Cell As Range) As Byte
Dim SearchedString As String, TheCell As String
Dim WS As Worksheet
Dim i As Byte
Application.Volatile
TheCell = "D2"
SearchedString = Cell.Value
For Each WS In ThisWorkbook.Worksheets
If WS.Range(TheCell).Value = SearchedString Then
i = i + 1
End If
Next WS
COMPTECODE = i
End Function
Que tu pourras appeller depuis une feuille comme ceci par exemple :
=COMPTECODE(A1)
(A1 étant la cellule contenant le code à scruter sur toutes les feuilles)
Mais par contre que ce soit des Sub ou des Function, le niveau de sécurité haut ne devrait pas laisser passer...
Maintenant dans le style usine à gaz, il faudrait ajouter une feuille qui reprendrait en lien toutes les cellule D2 que tu cacherais, et une formule COUNTIF (NB.Si en FR) qui pointerait sur cette feuilles... Mais maintenance lourde à assumer aussi...
Bon Courage
@+Thierry