Tri selon critère

Victor21

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2011

• #2

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.

 

Vote positif 0 Vote négatif

azerty67

XLDnaute Occasionnel

• 10 Septembre 2011

• #3

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2011

• #4

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

Cliquez pour agrandir...

A recopier vers le bas, filtrer sur les VRAI


Pour évaluer la 2° condition :

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

Cliquez pour agrandir...

A recopier vers le bas, filtrer sur les VRAI

 

Vote positif 0 Vote négatif

azerty67

XLDnaute Occasionnel

• 10 Septembre 2011

• #5

Re : Tri selon critère

Merci Victor je regarde et je te tiens au courant

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 10 Septembre 2011

• #6

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

Code:

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

 

Vote positif 0 Vote négatif

azerty67

XLDnaute Occasionnel

• 11 Septembre 2011

• #7

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

 

Vote positif 0 Vote négatif