Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Bonjour,
Remplace le code par :
Function CompteStyle(Plage As Range, Styl As String) As Double
Dim C As Range
Application.Volatile
For Each C In Plage
If C.Style = Styl Then CompteStyle = CompteStyle + 1
Next C
End Function
Il faut entrer en paramètre la plage et le style, par exemple :
=CompteStyle(F6:L20;"Insatisfaisant")
Daniel