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"
 

david84

XLDnaute Barbatruc
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+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas