[Résolu] Besoin aide VBA (que les cellules non vide)

Function Nbcoul(plage As Range, couleur As Variant) As Double
Application.Volatile True

Dim cellule As Range, nb As Long
Application.Volatile True
nb = 0
For Each cellule In plage
If couleur = "rouge" Then couleur = 3
If couleur = "vert" Then couleur = 10
If couleur = "orange" Then couleur = 46
If couleur = "rose" Then couleur = 7
If couleur = "bleu" Then couleur = 33
If cellule.Font.ColorIndex = couleur Then
nb = nb + 1
End If
Next cellule
Nbcoul = nb
End Function

Cliquez pour agrandir...