Discussion :

[smo8000]

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

[Krovax]

On va commencer par une jolie déclaration de variable

sinon je pense qu'un simple AND devrais suffire et aussi ne pas ajouter la valeur de ta cellule mais 1
Après je ne sais pas comment tu appelles ta fonction

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
 
Public Function cumul_couleur(plage As Range, col As Range) as long
 
Dim elm As range
 
Application.Volatile
cumul_couleur = 0
For Each elm In plage
    If elm.Font.ColorIndex = col.Font.ColorIndex and elm=col Then
        cumul_couleur = cumul_couleur + 1
 
    End If
Next elm
 
End Function

[smo8000]

Perfecto

merci beaucoup

[smo8000]

J'ai peut etre parlé trop vite.

Lorsque je ferme et réouvre mon fichier excel j'ai un message d'erreur

" Microsoft Excel ne parvient pas à calculer cette formule. un claaseur ouvert contient une référence circulaire, mais il est impossible d'afficher les références erronées. Essayer de modifier la dernière formule tapée ou de la supprimer avec la commande Annuler (menu Edition) "

Les endroits ou j'ai appelé ma fonction j'ai du coup #NOM?
=cumul_couleur(E7:E1000;E10) pour additioner les " text1 bleu "
=cumul_couleur(E7:E1000;E12) pour additioner les " text2 bleu "

et comment faire la sommes de deux cellules ou j'appele une fonction ? car le somme automatique ne fonctionne pas et me renvoie la valeur 0

[Krovax]

A mon avis
Tu ne peux pas tester la plage ou tu te trouve. Tu doit mettre ta formule dans une autre colonne. Est ce que tu peux en F1 mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=cumul_couleur(E7:E1000;E10)

[Access Newbie]

Bonjour,

Je pense que le probleme vient du fait que tu écrive le resultat sur la meme ligne que sur laquelle se fait ton calcul.

Qu'en est-il en essayant avec ce code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
=cumul_couleur(E7:E1000;F10) pour additioner les " text1 bleu "
=cumul_couleur(E7:E1000;F12) pour additioner les " text2 bleu "

[smo8000]

Bon c'est a n'y rien comprendre j'ai fais exactement la même chose j'ai juste deplacé la formule et la ca marche, et la sommes se fait bref je vous remercie