Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de fond

D

djodjodjo

XLDnaute Occasionnel

• 25 Novembre 2011

• #2

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Petit up 🙂 personne n'a une idée ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2011

• #3

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Bonjour,

djodjodjo à dit:

personne n'a une idée ?

Cliquez pour agrandir...

On en a tous plein mais sans fichier aucune raison de se fatiguer 😎

A+

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 25 Novembre 2011

• #4

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

C'est juste, voici un exemple de ce que je souhaite 🙂

 

Pièces jointes

• Classeur1.xlsx

  9.4 KB · Affichages: 45
• Classeur1.xlsx

  9.4 KB · Affichages: 45
• Classeur1.xlsx

  9.4 KB · Affichages: 43

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 25 Novembre 2011

• #5

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Je précise que c'est la couleur de fond de cellule qui importe, et non sa valeur (ça peut être "e" comme ça aurait pu être "x" ou "154165" ou autre)

 

Vote positif 0 Vote négatif

S

STephane

XLDnaute Occasionnel

• 25 Novembre 2011

• #6

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Ce sujet a déjà été traité sur le forum. il faut faire une fonction personnalisée et donc rajouter une colonne utilisant cette fonction.

 

Pièces jointes

• xld_djodjodjo_2321111.xls

  35 KB · Affichages: 35

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2011

• #7

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Re, salut STephane,

Voyez le fichier joint, les 3 boutons et les 3 macros dans Module1.

Il faut savoir qu'il n'est pas possible (sauf à créer une usine à gaz) de repérer la couleur des cellules colorées par MFC.

On repère les cellules en testant la formule de la MFC. Le test est ici une égalité :

Code:

If Evaluate(Cells(lig, col).FormatConditions(1).Formula1) = Cells(lig, col) Then

A+

 

Pièces jointes

• Filtre MFC(1).xls

  55.5 KB · Affichages: 40

Dernière édition: 25 Novembre 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2011

• #8

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Re,

Si la MFC est définie avec une formule, il faut évaluer (VRAI ou FAUX) cette formule pour chaque cellule.

Et donc sélectionner chaque cellule :

Code:

Cells(lig, col).Select
If Evaluate(ActiveCell.FormatConditions(1).Formula1) Then _

Fichier (2).

A+

 

Pièces jointes

• Filtre MFC(2).xls

  56 KB · Affichages: 30

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2011

• #9

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Re,

Sélectionner les cellules ralentit beaucoup la macro.

On peut l'éviter en faisant une double conversion de la formule :

Code:

F = Cells(lig, col).FormatConditions(1).Formula1
F = Application.ConvertFormula(F, xlA1, xlR1C1, , ActiveCell)
F = Application.ConvertFormula(F, xlR1C1, xlA1, , Cells(lig, col))
If Evaluate(F) Then...

Fichier (3).

A+

 

Pièces jointes

• Filtre MFC(3).xls

  56.5 KB · Affichages: 37

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Novembre 2011

• #10

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Bonjour le fil, le forum,

Avant de partir dans la Dombes, une version (4) plus rapide.

La formule (R1C1) est mémorisée dans FR1C1.

A+

 

Pièces jointes

• Filtre MFC(4).xls

  56.5 KB · Affichages: 48

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 26 Novembre 2011

• #11

Re : Filtrer toutes les lignes dont au moins une cellule possède une telle couleur de

Waow quel engouement pour mon topic!! Je vais regarder tout ça dès que j'ai du temps!

Merci en tout cas

 

Vote positif 0 Vote négatif