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

[Asus13x11]

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:

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

 

[Hervé]

Re : Besoin aide VBA (que les cellules non vide)

salut

à essayer :

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 cellule <> "" Then
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
End If
Next cellule
Nbcoul = nb
End Function

a plus

 

[Asus13x11]

Re : Besoin aide VBA (que les cellules non vide)

Un grand merci ça marche 🙂🙂🙂🙂