Liste de tri en ordre alphabétique

[Rick@]

Bonjour "le forum",

Je dois ajouter un tris par ordre alphabétique dans cette macrocomande.

Sub Liste1()
With Sheets("Feuil1")
.Range("D4😀65536").ClearContents
For lg = 4 To .Range("A65536").End(xlUp).Row
If .Cells(lg, 2) = 1 Then
.Cells(.Range("D65536").End(xlUp).Row + 1, 4) = .Cells(lg, 1)
End If
Next
End With
End Sub
Merci pour aide🙂

 

[Banzai64]

Re : Liste de tri en ordre alphabétique

bonjour
Après le Next et avant le End With insère

.Range("D4: D" & .Range("D65536").End(xlUp).Row).Sort _
Key1:=Range("D4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Merci à l'enregistreur de macro

penses à enlever l'espace dans .Range("D4: D"

 

[Rick@]

Re : Liste de tri en ordre alphabétique

Gros merci Banzai64!

Quel expertise!

Çà marche!

Au plaisir!!!