Filtre et exception

Version imprimable

31/01/2019, 09h21
Bolwang

1 pièce(s) jointe(s)

Filtre et exception

Bonjour,

Dans le fichier Excel (MPL) ci joint j'effectue un tri dans la colonne "Etape" uniquement sur "2CL2A". Ensuite dans la colonne "désignation" je souhaite garder uniquement les "capot" et "cornière". J'ai donc effectuer un tri textuels avec : contient : capot ou contient : cornière.

MAIS je souhaite également avoir également toutes les lignes de "Etape 2PL2C". Or elles ne s'affichent pas, j'imagine que mon filtre textuels prend le dessus et donc ne m'affiche pas les lignes de ''2PL2C".

J'ai essayer plusieurs manip avec copier/coller mes cornières et capot dans un nouvel onglet et après et copier/coller mes lignes de 2PL2C à la suite mais je n'y arrive pas via VBA.

Quelqu'un à une solution ?
Merci,

Pièce jointe 446165 Cordialement, B
31/01/2019, 09h30
Trystan441

Bonjour,

Si tu fais un premier tri uniquement sur 2CL2A c'est normal que tu n'ais pas 2PL2C non ? Ou alors j'ai mal compris

Ps : Je n'ouvre pas les fichiers comme beaucoup de personnes sur ce forum
31/01/2019, 09h34
MarcelG

Bonjour et Bienvenu sur le Forum,

Voir le tutoriel de Philippe sur les filtres élaborés.
31/01/2019, 09h37
BENNASR

bonjour
Parce que simplement y a pas un Etape 2PL2C avec une désignation contenant "capot" ou "cornière". non ??
31/01/2019, 09h44
Bolwang

Re,

Trystan441, BENNASR, dffectivement il est normal que j'ai pas 2PL2C si j'applique mon filtre "contient dans "2CL2A", c'est la mon problème, je reformule ma question:

Est il possible d'afficher mon filtre sur 2CL2A ET les lignes de la colonnes 2PL2C en même temps ?

peut être via une macro ? un autre moyen ?

Merci pour votre réactivité.

B.

avec l'enregistreur de macro tu a presque un code tout cuit qu'il faut netoyer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    With ActiveSheet
        With .Range("A7:J" & .Cells(Rows.Count, 1).End(xlUp).Row)
            .AutoFilter Field:=8, Criteria1:="=2CL2A", Operator:=xlOr, Criteria2:="=2PL2C"
            .AutoFilter Field:=7, Criteria1:="=*Cornière*"
            Set plagefiltréecorniere = .SpecialCells(xlVisible)
            .AutoFilter Field:=7, Criteria1:="=*Capot*"
            Set plagefiltréecapot = .SpecialCells(xlVisible)
            .AutoFilter
        End With
 
    End With
    MsgBox "pour corniere " & Replace(plagefiltréecorniere.Address, plagefiltréecorniere.Areas(1).Address, "")
    MsgBox "pour Capot " & Replace(plagefiltréecapot.Address, plagefiltréecapot.Areas(1).Address, "")
End Sub

si tu veut vraiment distinguer les 2CL2A avec corniere et celles avec capot et (pareil pour 2PL2C)la!! oui il te faudra utiliser les filtres elaborés

sinon a l'ancienne dans une boucle

31/01/2019, 10h53
Bolwang

Re,

Merci Patricktoulon,

Je vais essayer les filtre élaborer car je n'arrive pas à avoir mon filtre textuels sur 2CL2A et les lignes de 2PL2C en même temps.

Cordialement,

B