Bonjour,
Une petite aide pour intégrer une commande dans mon VBA.
je voudrais que mon VBA fonctionne seulement sur les cellules non vide.
Voici:
Cdt
Une petite aide pour intégrer une commande dans mon VBA.
je voudrais que mon VBA fonctionne seulement sur les cellules non vide.
Voici:
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
Cdt
Dernière édition: