Comptabilisé les cellules colorés uniquement 2

sebcbien67 Messages postés 22 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 30 mars 2009 - 22 janv. 2009 à 16:00
sebcbien67 Messages postés 22 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 30 mars 2009 - 30 janv. 2009 à 12:55
Bonjour,
je souhaite qu'un résultat s'affiche dans 5 cases (V:4, W:4, X:4, Y:4, Z:4) d'un tableau (Excel 2003), après avoir définie uniquement les 5 couleurs apparaissant sur une colonne T de la ligne 4 à 50.

Voici les codes des couleurs utilisés:
bleu = 34
vert = 35
jaune = 36
gris = 15
orange = 44

Quelqu'un a t'il une solution. Je reste à votre dispostion si vous avez des questions.
Merci

5 réponses

cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
22 janv. 2009 à 17:53
Bonjour sebcbien67

1) je ne vois pas quel résultat tu veux afficher en V4:Z4. Par exemple, en V4, est-ce que tu veux afficher le nombre de cellules bleues de la colonne T ou la somme des valeurs colorées en bleu ... ?

2) petite précision : qu'appelles-tu couleur : avant-plan (couleur de police) ou arrière-plan (remplissage) ?

C tout ce qui me manque pour te répondre

Amicalement
0
sebcbien67 Messages postés 22 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 30 mars 2009
23 janv. 2009 à 10:56
Hello,

je souhaite faire l'addition des cellules de remplissage d'arrière plan bleu V:4, vert W:4, jaune X:4, gris Y:4 et orange Z:4.

Voilà
Merci beaucoup
0
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
23 janv. 2009 à 17:33
ok, je réfléchis et je te dis quoi
0
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
23 janv. 2009 à 18:15
sebcbien67

Peux-tu essayer cette macro ?

Sub addCellulesColorees()
    Dim tabCouleurs As Variant
    Dim r As Range
    Dim i As Integer
    Dim lettreColonne As Byte
    Dim tabCumuls(0 To 4) As Double
    tabCouleurs = Array(34, 35, 36, 15, 44)          ' tableau des index de couleurs de remplissage

    For Each r In ActiveSheet.Range("T4:T50")     ' balaye les cellules T4:T50

        i = 0
        Do Until tabCouleurs(i) = r.Interior.ColorIndex Or _
            i = UBound(tabCouleurs)                      ' recherche l'indice du tableau correspondand à la couleur
            i = i + 1
        Loop

        If tabCouleurs(i) = r.Interior.ColorIndex Then _
             tabCumuls(i) = tabCumuls(i) + r.Value ' cumul
    Next

    For i = 0 To 4                                             ' affiche les totaux en V4:Z4
        Cells(4, i + 22).Value = tabCumuls(i)
    Next i
End Sub

Amicalement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
sebcbien67 Messages postés 22 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 30 mars 2009
30 janv. 2009 à 12:55
Hello,
le prog m'affiche des valeurs erronées qui ne correspondent absolument pas aux montant total de couleurs affichées...
J'ai fait le test sur 10 cases seulement et j'obtient un total de 26 cases vertes et 11 cases orange ??!!! = bugs

Help!
Merci d'avance
0