Filtre sur couleur ?

Plus la peine, j'ai trouvé tout seul :-D

Je donnes le code pour ceux que ça intéresse

1) Créer une feuille "Résultats du filtre"

2)Le Code :

Sub filtrecouleur()
Dim c
For i = 1 To 30
Sheets("Feuil1").Select
c = ActiveCell.Column
Range(Selection, Selection.End(xlDown)).Select
Cells(i, c).Select
If Cells(i, c).Interior.ColorIndex = 6 Then
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Sheets("Résultats du filtre").Select
ActiveSheet.Range("A65536").End(xlUp).Offset(1).Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Cells(i + 1, c).Select
End If
Next i
End Sub

PS: J'peux être un MPFien moi aussi ? ;-)
PPS : Si vou plé ....

-----Message d'origine-----
Bonjour,

Peut on par un filtre automatique, filtrer toutes les
cellules jaunes (par exemple) d'une colonne ?

Merci
.

Bonjour,
si la solution de rajouter une colonne convient alors :

creer une fonction personnalisée:

Function Icouleur(reference)
Application.Volatile
Icouleur = reference.Interior.ColorIndex
End Function

puis dans la nouvelle colonne
ecrire =icouleur(A1) ' par exemple pour tester la couleur
de A1
le résultat sera l'index couleur de la cellule A1
recopier la cellule autant de fois qu'il convient vers le
bas

puis filtrer selon les valeurs de cette nouvelle colonne

@+

-----Message d'origine-----
Bonjour,

Peut on par un filtre automatique, filtrer toutes les
cellules jaunes (par exemple) d'une colonne ?

Merci
.

Tssss.....tssss Modeste (reprise de ton expression ;-)
M'est avis que, la modification du format d'une cellule n'entrainant pas de
recalcul (à moins de bégayer sur le F9), la volatilité de ta fonction n'est que
très théorique !
;-)
AV

Avis perso :
Le formatage des cellules (couleurs), mis à part pour une finalité artistique,
gagne à être le résultat d'un mise en forme conditionnelle
Le filtrage se faisant ensuite, non point sur la couleur, qui ne sera que
l'épiphénomène d'un calcul, mais à l'aide du(des) test(s) logique(s) contenu(s)
dans le dit-calcul

Fermez le ban !

;-)
AV

;-)))
ton avis est tout a fait pertinent .....
mais c'est un aspect qui m'avait échappé eu égard de la possibilité
d'appliquer successivement le filtre sur des couleurs differentes
ou bien possibilité d'utiliser le filtre personnalisé.
le fait d'activer le filtre , activant alors le recalcul ....'après :-(

j'attendais plutot les foudres des utilisateurs de MFC
;-)))

Et bien là, c'est dans une plus pure finalité artictico-
esthétique que des cellules furent parées de mille
couleurs chatoyantes.

Ces pastels égayant la feuille Excel, mon collègue eut la
riche idée de colorer moult endroits.

...

Et après, c'est à moi, qu'il demande pour lui créer un
filtre....j'vous jure... ;-)

PS : l'est pas mal mon code, non ? (améliorable, cependant)

-----Message d'origine-----
Avis perso :
Le formatage des cellules (couleurs), mis à part pour une
finalité artistique,

gagne à être le résultat d'un mise en forme conditionnelle
Le filtrage se faisant ensuite, non point sur la couleur,
qui ne sera que

l'épiphénomène d'un calcul, mais à l'aide du(des) test(s)
logique(s) contenu(s)

dans le dit-calcul

Fermez le ban !

;-)
AV


.

PS : l'est pas mal mon code, non ? (améliorable, cependant)

Qques "Select" à expurger mais pourvu qu'il te convienne, c'est bien là
l'essentiel

AV