Discussion :

[jonathanoudelet]

Bonjour à tous,

Voila, je cherche à compter le nombre de ligne d'une couleur selon leur couleur dans un tableau en feuille 4.
Dans mon tableau, j'ai 5 possibilités de couleur:
rouge= Interior.ColorIndex = 45
orange=Interior.ColorIndex = 19
Blanc=Interior.ColorIndex = 2
Bleu=Interior.ColorIndex = 37
Vert=Interior.ColorIndex = 35

Je souhaite donc, qu'à l'ouverture d'une feuille (7), il me compte le nombre de ligne pour chacun des critères, et que les résultats soient affichés dans des cellules de cette feuille.

J'ai bien commencé à faire un test avec un seul critère, mais ca fonctionne pas, car il m'affiche 0... erreur de code très très probablement

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
17
18
19
20
 
Dim r As String
Dim d As Integer
Private Sub Worksheet_Activate()
 
r = 0
Feuil4.Unprotect (123)
For d = Feuil4.Cells.SpecialCells(Type:=xlCellTypeLastCell).Row To 1 Step -1
If Feuil4.Cells(d, 1) = Feuil4.Cells(d, 1).Interior.ColorIndex = 45 Then
r = r + 1
End If
Next
Feuil7.Range("G" & 13).Value = r
Feuil4.Protect (123)
 
 
' rafraichir
ThisWorkbook.RefreshAll
 
End Sub

Merci par avance de votre aide

[Godzestla]

Bonjour,

vu que ton code est plutot spécial, par exemple ceci est très singulier

Code :

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

1
2
If Feuil4.Cells(d, 1) = Feuil4.Cells(d, 1).Interior.ColorIndex = 45 Then

je ne peux que te conseiller de faire une recherche dans ce forum sur ton thème.
La réponse y est.

Tu pourras en même temps améliorer ta syntaxe de codage.

Bonne après-midi.

[jonathanoudelet]

Bonjour,

J'ai beau effectuer de nouveau une recherche, je ne trouve rien...
Si tu pouvais m'indiquer la méthode de recherche; mots clé que tu as utilisé, ou meme le lien directement, j'essaierai alors de me débrouiller avec ca.

Merci par avance

[zazaraignée]

Ce code

Code :

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

If Feuil4.Cells(d, 1) = Feuil4.Cells(d, 1).Interior.ColorIndex = 45 Then

veux dire

Si la cellule A4 est égale à la couleur de fond de la cellule A4 est égale à la couleur numéro 45 alors

et n'a de sens ni en français ni en VB.

Il y a un = de trop.

Code :

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

If Feuil4.Cells(d, 1).Interior.ColorIndex = 45 Then

devrait donner de meilleurs résultats.

[jonathanoudelet]

Génial ca marche !
J'était pas loin...mais effectivement, en traduisant en francais...ben ca ressemblais à rien ma ligne de condition ...
M'enfin...
En tout cas merci à vous deux de vous être penchés sur mon cas