Discussion :

[Bolwang]

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,

MPL.xlsm Cordialement, B

[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

[MarcelG]

Bonjour et Bienvenu sur le Forum,

Voir le tutoriel de Philippe sur les filtres élaborés.

[BENNASR]

bonjour
Parce que simplement y a pas un Etape 2PL2C avec une désignation contenant "capot" ou "cornière". non ??

[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.

[patricktoulon]

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

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
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

[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