sebcbien67
Messages postés22Date d'inscriptionmardi 24 juin 2008StatutMembreDernière intervention30 mars 2009
-
22 janv. 2009 à 16:00
sebcbien67
Messages postés22Date d'inscriptionmardi 24 juin 2008StatutMembreDernière intervention30 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
cs_Orohena
Messages postés577Date d'inscriptionvendredi 26 septembre 2008StatutMembreDernière intervention20 novembre 20104 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) ?
cs_Orohena
Messages postés577Date d'inscriptionvendredi 26 septembre 2008StatutMembreDernière intervention20 novembre 20104 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
Vous n’avez pas trouvé la réponse que vous recherchez ?
sebcbien67
Messages postés22Date d'inscriptionmardi 24 juin 2008StatutMembreDernière intervention30 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