Bonjour à tous, en tant que débutant sur VBA je viens demander votre aide.

Je souhaite renvoyer le nombre de cellule ayant un texte et couleur identique dans une cellule.

Par exemple, compter dans une colonne le nombre de OUI bleu et le nombre de NON bleu et renvoyer chacune des valeurs dans une cellule. malheureusement je n'y arrive pas

J'ai trouvé un morceau de code qui sommes les cellules de couleur identique je voulais l'adapter à ce que je désire mais cela aboutie à chaque fois à un echec donc je demande votre aide

Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function cumul_couleur(plage As Range, col As Range)
 
Dim elm As Object
Application.Volatile
cumul_couleur = 0
For Each elm In plage
    If elm.Font.ColorIndex = col.Font.ColorIndex Then
        cumul_couleur = cumul_couleur + elm.Value
 
    End If
Next elm
 
End Function
 
'placé dans une cellule pour me renvoyer la valeur
'=cumul_couleur(E7:E1000;E15)



merci pour vos réponses