Compter les cellules coloriées ?

[Matthieu]

Bonjour,

J'aimerai savoir si quelqu'un connait la formule pour compter les cellules coloriées d'une ligne (ou parmi une sélection de cellules)

Je vous remercie d'avance pour votre aide
A+

 

[Jacques87]

Bonjour Mathieu

Une petite macro pourrait faire l'affaire

Dim cell as Range
Dim I as Integer, N as Integer
N = 0
For Each cell in Range('A1:C8')
If Cell.Interior.ColorIndex = 3
Then N = N + 1
End If
Next
MsgBox(N)

tu donneras le nombre de cellules rouges dans la plage (A1:C8)

Bon courage

 

[matthieu]

J'ai tapé ce que tu m'as dit sous VB en rajoutant la 1ère et dernière ligne (couleur)
Mais il trouve une erreur à la ligne en rouge



Sub couleur()
Dim cell As Range
Dim I As Integer, N As Integer
N = 0
For Each cell In Range('A1:C8')
If Cell.Interior.ColorIndex = 3
Then N = N + 1
End If
Next
MsgBox (N)
End Sub

 

[Matthieu]

HELP !!!
Je n'ai pas l'habitude de cérer des macros...
Quelqu'un peut m'aider ?

D'avance merci

 

[Jacques87]

Matthieu toutes mes excuses, une frappe sur la touche entrée de trop

voici le code

Dim cell As Range
Dim I As Integer, N As Integer
N = 0
For Each cell In Range('A1:C8')
If cell.Interior.ColorIndex = 3 Then N = N + 1

Next
MsgBox (N)

 

[Matthieu]

Super ça marche...
Par contre :
-comment on trouve le nombre se rapportant à une couleur?
- comment peut on renvoyer le résultat dabns une cellule?

Encore merci
A+

 

[Jacques87]

Matthieu

pour ta première question, voici un fichier qui devrait t'aider

pour la seconde, il te suffit d'ajouter au bout de cette procédure (juste avant end Sub)

Range('D1').Value = N
à la place de MsgBox(N)

et le nombre s'inscrira en D1

Bon courage [file name=Couleurs_20060227170857.zip size=14426]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Couleurs_20060227170857.zip[/file]

 

[Matthieu]

Super ça marche du feu de dieu....
C'était pour la femme d'un copain!

Sinon tu bosses dans un domaine où tu utiises Excel à fond ou c'est une passion?

 

[Jacques87]

Mathieu

Alors si c'était pour la femme d'un copain, tu me feras un grand plaisir en lui demandant de me remercier en te faisant un énorme bisou que tu me transmettras par mail

Quant à la deuxième question, c'est une passion comme pour grand nombre d'entre nous

Et nous restons à ta disposition

Bonne soirée