En vba, comment faire un tri sur une plage de cellules en ligne?

Staple1600

XLDnaute Barbatruc

• 31 Juillet 2012

• #2

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Bonsoir

Il suffit de faire ton tri ligne par ligne par le biais d'une boucle

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Juillet 2012

• #3

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Re

Comme ceci par exemple (test ok chez moi)

Code:

Sub Macro1()
Dim lig&, i&
lig = Selection.Rows.Count
For i = 1 To lig
Selection.Cells(i, 1).Resize(1, Selection.Columns.Count).Sort Key1:=Selection.Cells(i, 1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
Next i
End Sub

 

Vote positif 0 Vote négatif

T

tarvel

XLDnaute Occasionnel

• 31 Juillet 2012

• #4

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Merci Staple1600 pour ta réponse rapide!
Il n'existe aucune solution de tri sur sur une plage de cellules avec une seule boucle?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Juillet 2012

• #5

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Re,

Il y a une seule boucle dans ma macro précédente, non ? 😉

 

Vote positif 0 Vote négatif

T

tarvel

XLDnaute Occasionnel

• 31 Juillet 2012

• #6

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Dslé Staple1600 ...C'est Ok je voulais dire par 1 plage de cellules (et non boucle)...avec l'objet Range!

Merci pour tes réponses 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Juillet 2012

• #7

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Re

c'est le Selection qui te gêne?

je l'avais laissé exprès pensant que tu saurais adapter mon code avec Range à la place de Selection

c'était une sorte d'invitation implicite à te faire mettre les mains dans le cambouis 😉

Apparemment l'invitation s'est égarée dans les limbes du web 😉

Code:

Sub Macro1a()
Dim lig&, i&, r As Range
Set r = ActiveSheet.Range("B2:F4")
lig = r.Rows.Count
For i = 1 To lig
r.Cells(i, 1).Resize(1, r.Columns.Count).Sort Key1:=r.Cells(i, 1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
Next i
End Sub

 

Dernière édition: 31 Juillet 2012

Vote positif 0 Vote négatif

T

tarvel

XLDnaute Occasionnel

• 31 Juillet 2012

• #8

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Exactement c'était la sélection qui me gênait 😉
Je commençais à mettre les mains dans le camboui..mais ton éclaircissement est venu plus vite que ma recherche de solution 🙂
lig = Selection.Rows.Count ne pouvait pas me convenir dans mon cas car j'avais d'autres données à ne pas trier 😉...
Je vais potasser l'objet Range
Merci bcp pour tout!

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 31 Juillet 2012

• #9

Re : En vba, comment faire un tri sur une plage de cellules en ligne?

Bonsoir,

il y a une solution Le tri rapid QuickSort

je vais essayer

laurent

 

Vote positif 0 Vote négatif