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
 

Fichiers joints

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+
 

Fichiers joints

Geely

XLDnaute Occasionnel
Re : Imposser un trie particulier

Bonsoir david84

ça fonctionne merci bien
judicieux de donner la valeur Z aux cellule contenant "ZTE"
 

Discussions similaires


Haut Bas