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 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT