Discussion :

[argaz01]

Bonjour,

J'essaye de compter le nombre de cellules de fond rouge dans une colonne, mais sans résultat mis àpart qu'excel me renvoie une erreur de #nom: la formule contient du texte non reconnu. Voici ma formule:

Code :

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

=Compte_Couleurs(DECALER($P$8;;;NBVAL(P:P));3)

Mes cellules commencent à la ligne 8 et se termine à la ligne 128.


En vous remerciant d'avance

Cordialement

[larryj]

Bonjour,

Est-ce que la fonction "Compte_Couleurs" est bien déclarée en "Public" ?

Code :

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

Public Function Compte_Couleurs(...) as Integer

[argaz01]

Oui, la fonction est bien déclarée et j'arrive maintenant à la faire fonctionner sauf qu'elle donne 0 comme résultat, alors que j'ai 5 cellules de fond rouge!!

voici mon code:

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
Function Compte_Couleurs(cell_range As Range, color_cell_index) As Integer
Dim rCell As Range
Dim cell_count As Integer
cell_count = 0
   For Each rCell In cell_range
    If rCell.Interior.ColorIndex = color_cell_index Then
         cell_count = cell_count + 1
    End If
   Next rCell
Application.Volatile
   Compte_Couleurs = cell_count
End Function
 
Function Color_index(cell_range As Range) As Integer
  Color_index = cell_range.Interior.ColorIndex
End Function

Merci larryj d'y jeter un coup d'oeil

Cordialment

[Daranc]

le fond rouge est donné par la couleur de la cellule ou par une mise en forme conditionnelle ?.dans ce dernier cas il est possible que le compte ne se fasse pas. une macro évènementielle pourrait changer le fond de la cellule. à voir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
Dim cell As Range
Set plage = ActiveSheet.Range("c1:c100") 'plage à adapter 
For Each cell In plage
If cell.Value > 20 Then 'condition à adapter
cell.Interior.ColorIndex = 3
End If
Next
Calculate
End Sub

ceci détermine les cellule devant être à fond rouge dans la plage c1:c107

[argaz01]

Bonjour tout le monde,

ça ne fonctionne pas du tout, et je confirme la couleur rouge de mes cellules sont issues d'une MFC. Laquelle utilise la condition suivante pour prendre la dite couleur:

Code :

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

=OU(ET($N8<2,5%;$P8>5%);ET($N8>2,5%;$N8<5%;$P8>2,5 %);ET($N8>5%;$N8<10%;$P8>1%);ET($N8>10%;$P8>0,5%))

. Puis-je faire autrement?

Merci
Cordialement

[Daranc]

oui le code présenté ci dessus a mettre dans le code de la feuille . à développer pour remettre le colorindex à rien si la condition n'est plus remplie

[argaz01]

Ok merci. Par contre j'aimerais bien savoir comment tu fais pour intégrer la MFC: en effet, cette dernière est issues de plusieurs conditions remplies par les colonnes P et N à la fois! et intégrant les condition OU et ET en même temps.


Cordialment

[Daranc]

le plus simple est de faire une colonne test ou tu retournes une valeur 1 ou 0 ce qui alimenteras ta macro en valeur de test

Code :

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

1
2
if cells(x,x)=1 then
cells(x,x).offset(0,-n).interior..colorindex=3

tu testes une cellule qui contient ta condition et tu reportes la valeur du fond de cellule sur celle qui doit être colorée
(en fait ce système de couleur ne sers que de repère la macro pourrait faire elle même le comptage des condition remplies) .
Quelle est le but final du prog? juste trouvé le nombre de résultats correspondant à certain critères ou le nombre + la mise en valeurs des résultat?

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
Dim cell As Range
Set plage = ActiveSheet.Range("p1:p100")
plage.Interior.ColorIndex = xlNone 'effacement des MFC précédentes
For Each cell In plage
If ((cell > 0.05 And cell.Offset(0, -2) < 0.025) _
Or (cell < 0.05 And cell.Offset(0, -2) > 0.025 And cell.Offset(0, -2) < 0.05) _
Or (cell > 1 And cell.Offset(0, -2) > 0.05 And cell.Offset(0, -2) < 0.1) _
Or (cell > 0.005 And cell.Offset(0, -2) > 0.1)) Then
cell.Interior.ColorIndex = 3
End If
Next
Calculate
End Sub

attention cependant
le code tel quel ne fonctionnera qu'à la rentrée de données