tri

[babou466]

Bonjour à tous, je cherche une procédure toute simple de tri par ordre croissant des x valeurs d’une colonnes, est ce que quelqu’un pourrait me venir en aide ? je n’arrive pas bien à gérer la variable de stockage et le fait de faire remonter progressivement toutes les valeurs de ma colonne…
merci

 

[kllmoon]

Re : tri

https://www.excel-downloads.com/threads/tri-automatique-chiffres-ordre-croissant.38292/

 

[babou466]

Re : tri

en fait j'ai tenté ce code...qui ne fonctionne absolument pas...
Sub tri_par_ordre_croissant()

Dim vlNbLigne As Integer
Dim vlLigne As Integer
Dim vlStockage As Integer
Dim tableau(1 To 5) As Variant

vlLigne = 1
vlNbLigne = 0

While Cells(vlLigne, 1).Value <> ""
vlNbLigne = vlNbLigne + 1
Wend

For vlLigne = 1 To vlNbLigne
If Cells(vlLigne, 1).Value < Cells(vlLigne - 1, 1).Value Then
vlStockage = Cells(vlLigne, 1).Value
tableau(vlLigne) = tableau(vlLigne - 1)
vlNbLigne = vlNbLigne - 1
End If
Next vlLigne

End Sub

 

[babou466]

Re : tri

enfin plutôt de cette façon:
Sub tri_par_ordre_croissant()

Dim vlNbLigne As Integer
Dim vlLigne As Integer
Dim vlStockage As Integer
Dim tableau(1 To 5) As Variant

vlLigne = 1
vlNbLigne = 5


For vlLigne = 1 To 5
If Cells(vlLigne, 1).Value < Cells(vlLigne - 1, 1).Value Then
vlStockage = Cells(vlLigne, 1).Value
tableau(vlLigne) = tableau(vlLigne - 1)
vlNbLigne = vlNbLigne - 1
End If
Next vlLigne

End Sub

 

[keepcool183]

Re : tri

Bonjour,

Tu veux trier des données dans un tableau (avec ou sans entête) ou dans un contrôle ?

 

[babou466]

Re : tri

en fait je voudrait trier une colonne que je n'ai pas définie comme un tableau, mais ça semble nécesaire non?
et pardon dans mon dernier code je pensais plutôt:
For vlLigne = 1 To vlNbLigne

 

[keepcool183]

Re : tri

Sub Tris()
Range("ta plage").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End Sub

Essaie ça

 

[babou466]

Re : tri

merci beaucoup, c'est impecable; cependant est ce que dans un programme je peux m'exprimer en range("cells( ...).value:cells(...).value").select pour la plage sélectionnée à trier?

 

[ROGER2327]

Re : tri

Bonjour.

À babou466 : pour sélectionner une plage selon votre principe, je pense que la syntaxe correcte est :

Range(Cells([I]l1[/I], [I]c1[/I]), Cells([I]l2[/I], [I]c2[/I])).Select

où l1 est le rang de la première ligne à sélectionner, c1 celui de la première colonne, l2 celui de la dernière ligne et c2 celui de la dernière colonne.​

Bon courage !
ROGER2327

 

[keepcool183]

Re : tri

Re,

Je ne comprend pas l'utilité du "value" dans ce que tu as écris 🙂

Si tu pouvais étoffer un peu 😀

Edit : En effet comme l'as dis ROGER2327 c'est la syntaxe à utiliser

 

[babou466]

Re : tri

en fait j'ai utilisé le .value car je pensais à la plage de la valeur... à la valeur...,
merci à vous

 

[babou466]

Re : tri

si je souhaite maintenant trier des lignes d'un tableau(X,3), de façon décroissante, suivant le critère de ma troisième colonne comment dois je procéder?

est ce que la sélection se fait de cette façon:
Range(Cells(dernière ligne, dernière colonne), Cells(première ligne , première colonne)).Select
et après comment faire?

merci