Tri selon critère

[azerty67]

Bonjour à tous,

Dans mon fichier en colonne B et D je souhaiterai filtrer les valeurs contenant seulement B et sa valeur numérique.
Par exemple: B20, B2, etc..

Ainsi que les valeurs contenant -PAV exemple: B1-PAV

J'ai tenté avec le tri personnalisé mais je n'arrive pas à mes fins, si quelqu'un a un début de solution ça m'aiderai, merci

 

[Victor21]

Re : Tri selon critère

Bonjour, azerty67

La question manque de précision :
Trier ou filtrer, colonnes B ou D ou colonnes B et D
Les exemples : contenant ou commençant par ?
Si tu fournissais un début d'exemple de résultat souhaité, on pourrait sûrement proposer un début de solution, si elle existe.

 

[azerty67]

Re : Tri selon critère

Dans mon fichier pour les colonnes B et D, je souhaiterai filtrer les valeurs commençant seulement par B et sa valeur numérique.
Par exemple: commençant par B20, B2, etc..

Ainsi que les valeurs contenant l’appellation -PAV exemple: B1-PAV

Afin de pouvoir les recopier dans une autre colonne

Désolé de l'imprécision

 

[Victor21]

Re : Tri selon critère

Re,

C'est beaucoup plus clair maintenant (ou pas)...

A tout hasard :
Pour évaluer la 1° condition :

=ET(STXT(B2;1;1)="B";ESTNUM(STXT(B2;2;1)*1))

A recopier vers le bas, filtrer sur les VRAI


Pour évaluer la 2° condition :

=ESTNUM(TROUVE("PAV";D2))

A recopier vers le bas, filtrer sur les VRAI

 

[azerty67]

Re : Tri selon critère

Merci Victor je regarde et je te tiens au courant

 

[mth]

Re : Tri selon critère

Bonsoir azerty, Victor 🙂

Même genre d'idée (sourire .. mais en beaucoup beaucoup plus lent ... ) avec le filtre élaboré:

Sub Macro1()
Dim derlig As Long
With Sheets("Voiture1")
    .Columns("H:L").ClearContents
    derlig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("F2").FormulaR1C1 = _
       "=OR(AND(LEFT(RC[-4])=""B"",ISNUMBER(MID(RC[-4],2,1)*1)),ISNUMBER(SEARCH(""PAV"",RC[-4])))"
    .Range("A1:E" & derlig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
        "F1:F2"), CopyToRange:=.Range("H1:L1"), Unique:=False
   .Range("F2").ClearContents
End With
End Sub

Bonne soirée à tous 🙂

mth

 

[azerty67]

Re : Tri selon critère

Bonjour Victor et MTH,🙂

Merci pour vos soluces, ça fonctionne bien je travaille sur la compréhension de celles-ci

Bonne journée
Jmarc