Discussion :

[vincent007]

Bonjour,

Dans un tableau j'ai une formule qui m'aide a comptabiliser les cellules contenant une croix ( =SI(I6="x";1;0) ).

J'aimerais faire de meme avec les cellules en couleur ( ex si la cellule est verte donner la valeur 1 sinon 0

J'ai essaye avec cette formule mais ca ne marche pas. ( =SI(I6="ColorIndex = 4";1;0)

Quelqu'un peut il m'aider?

Merci

[rjamin]

Bonjour,
Avec une procédure VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Cellule_Couleur()
Dim Cellule as Range
For Each Cellule In Range("A1:A10") ' A adapter suivant la plage qui contient les cellules à comptabiliser
If Cellule.Interior.ColorIndex = 4 Then
     Cellule.Value = 1
Else
     Cellule.Value = 0
End If
Next Cellule
End Sub

[vincent007]

Bonjour rjamin,

Merci de m'aider a nouveau !

Cela marche bien mais bon je suis obliger a chaque fois d'executer la macro et de plus il met la valeur 1 dans la cellule en couleur.

j'aimerais que cela se fasse automatiquement des qu'on met une cellule en vert par exemple bien dans une autre cellule que j'ai cache il met la valeur 1 et la somme est directement faite dans une autre cellule comme j'ai fait avec =SI(I6="x";1;0) je ne dois rien executer c'est automatique.

Avec cette formule =SI(I6="ColorIndex"= 4;1;0) il me donne bien la valeur 1
met il l'applique a toute la plage selectionne meme les celulle blanche??? or je devrait avoir la valeur zero

Bien a toi

[Heruvor]

Hello,

Je pense qu'on est obligé de passer par le vba pour vérifier la couleur d'une cellule.

Pour ne plus avoir les 1 dans les cellules vertes, et 0 dans les cellules non vertes, et pour avoir la somme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Cellule_Couleur()
Dim Cellule as Range
Dim compteur as integer
 
compteur =0 'Initialisation du compteur
For Each Cellule In Range("A1:A10") ' A adapter suivant la plage qui contient les cellules à comptabiliser
If Cellule.Interior.ColorIndex = 4 Then
     compteur=compteur+1
End If
Next Cellule
 
Sheets(1).range("A1").value=compteur 'A adapter suivant l'endroit où tu veux mettre le compteur 
 
End Sub

Par contre, on a juste la somme, et il faudra relancer la macro à chaque fois qu'il y aura des modifications dans le fichier, tu peux l'associer à un bouton pour aller plus vite ^^'

[vincent007]

Bonjour,

Merci pour votre aide !

Cela fonctionne mais par contre quand je lance la macro a partir d'une touche de racourci ca marche pas il me met " espace pile insuffisant"

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
21
22
23
24
25
26
27
28
29
30
 
'
' Macro3 Macro
' Macro enregistrée le 23/12/2010 par Admin
'
' Touche de raccourci du clavier: Ctrl+Maj+A
'
 
   Sub Cellule_Couleur()
Dim Cellule As Range
Dim compteur As Integer
 
compteur = 0 'Initialisation du compteur
For Each Cellule In Range("I4:IQ4") ' A adapter suivant la plage qui contient les cellules à comptabiliser
If Cellule.Interior.ColorIndex = 4 Then
     compteur = compteur + 1
End If
Next Cellule
 
Sheets(2).Range("B4").Value = compteur 'A adapter suivant l'endroit où tu veux mettre le compteur
 
    Range("U4").Select
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
    Range("U8").Select
    ActiveWorkbook.Save
    Range("L12").Select
End Sub

[vincent007]

Voici en annexe le fichier qui contient mon tableau.

J'aimerais executer ce type de macro pour chaque personne repris dans le tableau.

Est ce possible?