Tri universel ????

[Sonia]

Bonjour à tous le monde,

Voilà, je voulais savoir s’il n’y avait pas une solution plus simple et surtout plus rapide pour arriver à faire mon tri. Je souhaite trier toutes les cellules contenant le mot « PATTE » qu’il y ait ou pas des caractères avant ou après, soit « … PATTE … « , on tri !

Voilà la macro que j’ai commencé, elle fonctionne, mais il faut que je rentre toutes les possibilités !!!

If ActiveCell.Value = 'PATTE' Or ActiveCell.Value = 'PATTE INFERIEURE COMPRESSEUR' Or ActiveCell.Value = 'PATTE INFERIEURE COMPRES' Then
ActiveCell.EntireRow.Select
Selection.Cut
Sheets('Plat').Select
Range('A65536').End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
' Workbooks('base.Xls').Activate
Sheets('Données Procost').Select
Selection.Delete
End If

Quelqu’un peut-il m’aider ?
Merci par avance.

Sonia

 

[Minick]

Salut sonia, jmps,

Tu peux aussi essayer avec un filtre auto, qui permettra peut etre d'accelerer ta macro:

Sub FiltreTrie()
    With Sheets('Données Procost')
        .UsedRange.AutoFilter Field:=1, Criteria1:='=*PATTE*'
        If .FilterMode = True Then
            .UsedRange.Offset(1, 0).EntireRow.Copy Destination:=Sheets('plat').Range('A' & Sheets('plat').Range('A65536').End(xlUp).Row + 1)
            .UsedRange.Offset(1, 0).EntireRow.Delete
            .UsedRange.AutoFilter
        End If
    End With
End Sub

Il faudra adapter Field:=1 selon la colonne à filtrer

@+

Ps: jmps, je me suis permis d'utiliser ton label Lien supprimé

 

[Sonia]

Super ! Merci bcp bcp !!!!!