Imposser un trie particulier

[Geely]

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

 

[david84]

Re : Imposser un trie particulier

Bonsoir,
à tester :

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+

 

[Geely]

Re : Imposser un trie particulier

Bonsoir david84

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

 

[david84]

Re : Imposser un trie particulier

Re

judicieux de donner la valeur Z aux cellule contenant "ZTE"

Non, c'est l'inverse sinon ça ne fonctionnerait pas...
A+