boucle avec rangement alphabétique

Spitnolan08

XLDnaute Barbatruc

• 14 Novembre 2007

• #2

Re : boucle avec rangement alphabétique

Bonjour,

Une proposition non testée :

Code:

 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

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 14 Novembre 2007

• #3

Re : boucle avec rangement alphabétique

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 14 Novembre 2007

• #4

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

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 14 Novembre 2007

• #5

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 14 Novembre 2007

• #6

Re : boucle avec rangement alphabétique

Re,

Bon ben alors ceci devrait marcher :

Code:

 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

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 14 Novembre 2007

• #7

Re : boucle avec rangement alphabétique

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

 

Dernière édition: 14 Novembre 2007

Vote positif 0 Vote négatif