probleme pour les bons

[Oudjat]

Voici mon probleme (dont j'ai pas la reponse)


sur une feuille

j'ai dans des cellules , des chiffres de 1 a 200

de 5 couleurs differentes

je voudrait savoir combien de fois j'ai

le chiffre 1 en rouge, en Bleu , en vert .....
le chiffre 2 en rouge, en Bleu , en vert .....
le chiffre 3 en rouge, en Bleu , en vert .....
le chiffre 4 en rouge, en Bleu , en vert .....

et ainsi de suite.....

Grand Merci d'avance car je suis bloqué.....

 

[pat5]

Bonjour
Je ne sais pas si ça t'ira
Sélectionne d'abord la plage

Sub Couleurs()
' Initilisation de la variable Somme
Dim Somme(56)
Dim cell As Object
' Somme pour chaque couleur
For Each cell In Selection
cell.Select
If cell.Font.ColorIndex > 0 Then
Somme(cell.Font.ColorIndex) = Somme(cell.Font.ColorIndex) + 1
End If
Next
' Activation de la cellule à partir duquel le sommes seront affichées
Selection.Offset(2, 0).Select
' Insertion des sommes
For i = 0 To 56
If Somme(i) <> 0 Then
ActiveCell.Font.ColorIndex = i
ActiveCell.Value = Somme(i)
ActiveCell.Offset(1, 0).Select
End If
Next

End Sub

 

[sousou]

Copie ce code
Lance le à partir de la feuille ou sont tes nombres.
Le résultat affiche pour chaque nombre , et pour chaque couleurs le nombre de fois où elle est utilisée.
Sub test()
'exemple pour les nombres de 0 a 100 avec 5 couleurs
Dim nb(100, 5)
'Initialisation de l'index couleur exemple 1 est l'index de la couleur un
'suivant les couleurs que tu utilises'
un = 1
deux = 2
trois = 3
quatre = 4
cinq = 5


Set maplage = ActiveSheet.UsedRange
For Each i In maplage
'MsgBox i.Value & "/" & i.Font.ColorIndex
If i.Font.ColorIndex < 0 Then GoTo suite
If i.Font.ColorIndex = un Then c = 1
If i.Font.ColorIndex = deux Then c = 2
If i.Font.ColorIndex = trois Then c = 3
If i.Font.ColorIndex = quatre Then c = 4
If i.Font.ColorIndex = cinq Then c = 5
nb(i.Value, c) = nb(i.Value, c) + 1
suite:
Next
For n = 0 To 100
For c = 1 To 5
If nb(n, c) <> "" Then
MsgBox "Chiffre " & n & " Couleur" & c & " " & nb(n, c)
End If
Next
Next
End Sub