boucle avec rangement alphabétique

[gerard55]

Bonjour à tous
Ce code ci-dessous permet de ranger par ordre alphabétique sur la ligne (d4:l4). Je voudrais qu'il effectue ce rangement sur plusieurs lignes. (d5: L5) etc ... Mais la boucle que j'ai mis ne fonctionne pas.Visblement, c'est le range d4 qui semble poser problème
Merci pour votre aide
a+

Sub ClassAlpha()
Dim numlig As Byte
numlig = i
For i = 1 To 5
Range("d4:l4").Offset(i, 0).Select

Selection.Sort Key1:=Range("D4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
End Sub

 

[Spitnolan08]

Re : boucle avec rangement alphabétique

Bonjour,

Une proposition non testée :

 Sub ClassAlpha()
Dim numlig As Byte
numlig = i
For i = 1 To 5
   Range(cells(i,"D"),Cells(i,"L")).Sort Key1:=Range("D4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
Next
End Sub

Cordialement

 

[gerard55]

Re : boucle avec rangement alphabétique

Merci Spitnoman08 de t'intéresser à mon problème mais, ça ne fonctionne pas
a+

 

[Spitnolan08]

Re : boucle avec rangement alphabétique

Re,

Juste une question qui ne m'a pas sauté aux yeux tout à l'heure : Tu arrives à trier tes données sur une ligne avec le code transmis ? i.e. ça fonctionne avec la ligne 4 ?
Et même en manuel ?

Cordialement

 

[gerard55]

Re : boucle avec rangement alphabétique

ce code range les données de la zone d4:l4

Range("d4:l4").Offset(0, 0).Select
Selection.Sort Key1:=Range("D4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal

 

[Spitnolan08]

Re : boucle avec rangement alphabétique

Re,

Bon ben alors ceci devrait marcher :

 Sub ClassAlpha()
Dim numlig As Byte
numlig = i
For i = 1 To 5
   Range(Cells(i, "D"), Cells(i, "L")).Sort Key1:=Range("D" & i), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
Next
End Sub

Cordialement

 

[gerard55]

Re : boucle avec rangement alphabétique

Cette fois ça fonctionne très bien
Merci pour tout
Cordialement