Discussion :

[amandon]

bonjour j'ai fait un code VBA pour filtrer un tableau sur plusieurs critère sur plusieurs colonnes et mon code est ci dessous et il marche bien. Mais dans une des colonnes ou je filtre j'ai en résultats des cases ou le texte est noir et d'autres ou le texte est rouge et je voudrais seulement les lignes ou dans cette case le texte est en noir

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
Sub liste_arn()
' Export Macro
 
 ActiveSheet.AutoFilterMode = False
 '' selection de la cellule de la condition du filtre
Sheets("LISTE").Activate
' Filtre en LISTE, sur la colonne 4 et 8 , avec comme critère une formule en S2
With Sheets("LISTE")
Range("A9:I1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("S1:S2"), Unique:=False
'sélectionne et copie les cellules à coller
Sheets("liste").Select
    Range("A10").Select
    dl = Range("A10").CurrentRegion.End(xlDown).Row
    Range(Selection, Selection.End(xlDown)).Select
    Range("A10:D" & dl).Select
        Selection.Copy
End With
End Sub

[Thautheme]

Bonjour Amandon, bonjour le forum,

Dans ton code tu utilises With (et un onglet) et ensuite tu ne mets pas le point qui indique que la plage est reliée à cet onglet. Puis tu refais référence à ce même onglet à l'intérieur du With ?!... J'aurais écris ton code comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub liste_arn()
Dim DL As Integer
 
With Worksheets("LISTE")
    .AutoFilterMode = False
    .Range("A9:I1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("S1:S2"), Unique:=False
    DL = .Range("A10").End(xlDown).Row
    DL.Range("A10:D" & DL).Copy
End With
End Sub

Et, cerise sur la macro, je ne vois pas le rapport entre ton code et ta requête...

La règle d'or en VBA, il te faut toujours éviter autant tu le peux les Select et autres Activate qui ne font que ralentir l'exécution du code et sont source de plantage !

[amandon]

merci beaucoup je vais tester.

en faite j'ai mon filtre avancé qui renvoi en criteriarange la formule suivant en S2 :

Code formule :

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

=ET(SI(H10=serie;VRAI;FAUX);SOMMEPROD(ESTNUM(CHERCHE(liste;D10))*(liste<>""))>0)

pour filtre suivant un chiffre (n°de série de travail) dans une colonne (H) et une liste de terme dans une colonne (D) sauf que dans cette colonne D j'ai des mots qui sont bien filtrer et certain sont écrit en rouge d'autre en noir et pour des raisons technique je souhaiterai aussi filtrer pour ne garde que les case écrite en noir.

j'ai trouvé ce code la en auto filter mais je ne peux pas le compiler a l'autre ou autre solution

Code :

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

Range("A9").AutoFilter Field:=4, Operator:=xlFilterFontColor, Criteria1:=RGB(0, 0, 0), Operator:=xlAnd

[Thautheme]

Re,

Désolé Amandon, je passe la main... Trop nul en formules pour pouvoir t'aider...

[Philippe Tulliez]

Bonjour,
La méthode AdvancedFilter ne peut filtrer les couleurs sauf si tu passes par une fonction personnalisée et que tu utilises le critère calculé. C'est l'option que j'avais prise chez un de mes clients pour exporter toutes les lignes dont les cellules avaient une certaine couleur.

Code de la fonction personnalisée IsSameColor

Code :

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

1
2
3
4
5
6
7
8
9
Function IsSameColor(rng As Range, CodeRGB As Long, Optional CheckInterior As Boolean) As Boolean
  ' Arguments
  '   orng (Range)    Cellule concernée
  '   Code RGB        Code RGB à tester
  '   [CheckInterior] Si True vérifie la propriété Interior et sinon la propriété Font (défaut)
  With rng
   If CheckInterior Then IsSameColor = .Interior.Color = CodeRGB Else IsSameColor = .Font.Color = CodeRGB
 End With
End Function

et comme critère calculé écrire simplement (ne pas oublier le titre). 65535 est le code RGB pour le jaune

Code :

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

=IsSameColor(E2;65535;VRAI)

Attention la couleur générée par la mise ne forme conditionnelle ne fonctionne pas avec cette fonction car la propriété DisplayFormat ne fonctionne pas avec les fonctions personnalisées

Le filtre simple (AutoFilter) tient compte des couleurs créées par la MFC

[amandon]

bonjour merci pour cette réponse mais je ne voit pas du tout comment l’intégrer dans mon code plus haut .

et quelle code couleur pour le noir ?

[Philippe Tulliez]

Bonjour,

je ne voit pas du tout comment l’intégrer dans mon code plus haut

Il suffit d'ajouter une colonne dans la zone des critères avec le critère que j'ai édité dans ma précédente réponse et dans ton code tu modifies l'adresse de la zone de critères soit S1:T2
Tu peux également conserver la même zone des critères mais alors tu dois ajouter le critère que j'ai édité dans le ET de ton critère calculé

et quelle code couleur pour le noir ?

Il suffit de faire un code VBA rapide dans la fenêtre d'exécution (Raccourci Ctrl + G) de VBE (Editeur VBA)
Par exemple si la cellule A2 a sa police en noire, écrire

Code :

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

? Range("A2").Font.Color

et tu verras le code s'afficher dans la fenêtre

Pour en savoir plus sur les filtres avancés d'excel, à lire éventuellement Les filtres avancés ou élaborés dans Excel