Discussion :

[maxdedomp]

Bonjour,
J'ai un petit souci dans la réalisation d'un planning dans lequel j'utilise des couleurs de cellules pour identifier les clients

Je souhaite appliquer un filtre via VBA pour pouvoir afficher qu'un seul client a la fois et donc qu'une seule couleur de cellule. Les autre cellules seront alors grisées.

Comme il n'est pas possible de cacher une cellule mais seulement une ligne ou une colonne, je ne sais pas comment faire.

Auriez-vous une idée
Merci

[lmb19]

Il serait intéressant que tu fasses une capture d'écran pour comprendre comment est fait ton tableau.

[maxdedomp]

Le planning est en piece jointe. Chaque couleur correspond a un client different. Avec une comboBox, je souhaite faire apparaitre que la couleur rouge par exemple.
Merci

[lmb19]

Il faut créer une macro qui balaye la plage de cellule en détectant la couleur de celle-ci. Si tu choisis de n'avoir que les cellules rouges, tu créés un bouton rouge auquel tu associes une macro du style :

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
 
For l=1 to 10
for c=1 to 10 
 
RetourneCodeCouleur = ActiveSheet.Range(Cells(l, c), Cells(l, c)).Interior.ColorIndex
 
'Sachant que rouge à 3 comme code de couleur
if RetourneCodeCouleur <> 3 then
 
'Si la cellule n'est pas rouge on la grise
Range(Cells(l, c), Cells(l, c)).Interior.TintAndShade = -0.149998474074526
 
end if
 
 
next c
next l

[maxdedomp]

Merci lmb19 mais cela ne marche pas sous Excel 2003. J'obtiens l'erreur:

"Run-time error '438': Object doesn't support this property or method"

[lmb19]

J'ai modifié un peu du 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
17
18
19
For l = 1 To 10
For c = 1 To 10
 
RetourneCodeCouleur = ActiveSheet.Range(Cells(l, c), Cells(l, c)).Interior.ColorIndex
 
'Sachant que rouge à 3 comme code de couleur
If RetourneCodeCouleur <> 3 Then
 
'Si la cellule n'est pas rouge on la grise
Range(Cells(l, c), Cells(l, c)).Interior.Pattern = xlSolid
Range(Cells(l, c), Cells(l, c)).Interior.PatternColorIndex = xlAutomatic
Range(Cells(l, c), Cells(l, c)).Interior.ThemeColor = xlThemeColorDark1
Range(Cells(l, c), Cells(l, c)).Interior.TintAndShade = -0.149998474074526
Range(Cells(l, c), Cells(l, c)).Interior.PatternTintAndShade = 0
End If
 
 
Next c
Next l

J'ai essayé avec Excel 2003 , ça marche.

[maxdedomp]

Merci ton aide en effet ca marche. Par contre si maintenant je veux revenir en arriere pour reafficher les couleur de depart comment je fais. En gros je veux pourvoir voir les clients separement de facon dynamique. Un coup le client 1 donc les autres clients sont grisés puis apres le client 2, donc le client 2 se degrise et le client 1 devient grisé...

Cela est-il possible?

[lmb19]

B'en la solution la plus rapide qui me vient à l'esprit, c'est de garder ton planning original sur une feuille.

De faire un copier/coller de celui-ci sur une 2ème feuille.

Sur ta 2ème feuille tu créés les boutons avec une couleur par client avec pour chaque la macro à modifier en fonction de la couleur.

La modification à apporter dans chaque macro, c'est de consulter l'original et modifier la copie.

Pour résumer:

sur Feuil1 tu mets ton planning original.
sur Feuil2 tu mets la copie du planning original.

Sur Feuil2, tu créés tes boutons par client.

Et pour chaque bouton, la nouvelle macro devient :

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
 
For l = 1 To 10
For c = 1 To 10
 
RetourneCodeCouleur = Sheets("Feuil1").Cells(l, c).Interior.ColorIndex
 
Couleur = 3 ' Rouge
 
If RetourneCodeCouleur <> Couleur Then
 
'Si la cellule n'est pas rouge on la grise
Range(Cells(l, c), Cells(l, c)).Interior.Pattern = xlSolid
Range(Cells(l, c), Cells(l, c)).Interior.PatternColorIndex = xlAutomatic
Range(Cells(l, c), Cells(l, c)).Interior.ThemeColor = xlThemeColorDark1
Range(Cells(l, c), Cells(l, c)).Interior.TintAndShade = -0.149998474074526
Range(Cells(l, c), Cells(l, c)).Interior.PatternTintAndShade = 0
 
Else
 
Range(Cells(l, c), Cells(l, c)).Interior.Pattern = xlSolid
Range(Cells(l, c), Cells(l, c)).Interior.PatternColorIndex = xlAutomatic
Range(Cells(l, c), Cells(l, c)).Interior.ThemeColor = xlThemeColorDark1
Range(Cells(l, c), Cells(l, c)).Interior.ColorIndex = Couleur
Range(Cells(l, c), Cells(l, c)).Interior.PatternTintAndShade = 0
 
End If
 
Next c
Next l

Voilà