Imposser un trie particulier

Geely

XLDnaute Occasionnel
Bonsoir le forum

Est il possible de trier les cellules en lançant une macro, mais que les cellules qui contiennent tel mot soient au début de la liste.

ci-joint le fichier pour plus de clarté.

Geely
 

Pièces jointes

  • geely_c.xlsm
    17.3 KB · Affichages: 29
Dernière édition:

david84

XLDnaute Barbatruc
Re : Imposser un trie particulier

Bonsoir,
à tester :
Code:
Sub tri()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = Range("A" & Rows.Count).End(xlUp).Row
[A:A].EntireColumn.Insert
[B:B].Copy Destination:=[A1]
For i = 2 To DerLig
    If Not LCase(Cells(i, 1)) Like "*zte*" Then Cells(i, 1) = "Z" & Cells(i, 1)
Next i
Range("A2:B" & DerLig).Sort Key1:=[A2], Order1:=xlAscending, Header:=xlGuess
[A:A].EntireColumn.Delete
Application.ScreenUpdating = True
End Sub
A+
 

Pièces jointes

  • geely_c (1).xls
    44 KB · Affichages: 31

Discussions similaires

Réponses
4
Affichages
268

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof