Tri sous VBA

[DAFFY]

Bonjour à tous

je possede une liste de 4000 lignes environ et dont je souhaite effcetuer un tri croissant ligne par ligne (donc à répéter 4000 fois)

j'ai essayer sous VBA de nommer la plage et de faire de boucle mais ma selection de cellule : cells(a,1);cells(a,6) ne fonctionne pas. Si quelqu'un qui maitrise mieux que moi VBA sous excel à une solution cela me sera d'un grand secours

Daffy

 

[dg62]

bonjour Daffy


Sélectionner ta liste, Données Trier, définir les critères du tri et valider.

 

[Daffy]

Re Bonjour

J'ai du mal rediger ma demande car je souhaite trier dans l'ordre croissant les cellules A1 à A10 puis toujours dans l'odre croissant B1 à B10 et ainsi de suite. La solution proposée sous Excel ne marche pas pour l'ensemble des 4000 lignes

merci pour cette reponse

 

[dg62]

re

Pourquoi cela ne fonctionne pas sur 4000 lignes ?

si tu as 4000 lignes à trier, pourquoi tu parle de A1:A10 puis de B1:B10...


Tes explications ne sont pas claires.

 

[daffy]

tout simplement parce que les cellules A1 à A10 et B1 à B10 etc ...n'ont rien à voir entre elles et le tri doit se faire par ligne c'est à dire de la gauche vers la droite

A+

Daffy

 

[Marc_du_78]

Bonjour le forum, Dg62, Daffy

Sélectionner zone à trier puis , Données, Trier, Options, De la gauche vers la droite devrait fonctionner
En vous souhaitant une bonne journée

 

[dg62]

re

dans données/trier, tu vas dans option s et tu changes l'orientation du tri. Tu coches de la gauche vers la droite.

 

[daffy]

Ou ca ne marche pas et dans ce cas c'est sur mes 2 pc ou alors je dois tres mal m'expliquer car il n'est pas possible de faire un tri sur plusieurs lignes ou plusieurs colonnes à la fois avce le MEME critère

C'est pour cette raison que la solution se trouve dans une macro visual basic

A+

 

[jeanpierre]

Bonjour daffy
Bonjour dg62,
Bonjour Marc,

Un petit fichier exemple avec ta première situation et à côtè, ce que veux obtenir. Eventuellement, quelques explications ciblées.
Car les réponses déjà données semblent correspondre.....

Bonne aprem. à tous.

Jean-Pierre

 

[daffy]

Bonjour à toutes les bonnes volontés

Ci joint un fichier des données de départ et ce que je souhaite obtenir mais pour 4000 lignes

A+

Daffy

 

[daffy]

Bonjour à toutes les bonnes volontés

Ci joint à la demande de Jean Pierre un fichier des données de départ et ce que je souhaite obtenir mais pour 4000 lignes

A+

Merci par avance

 

[dg62]

re

Sub trilignes()
Dim i As Integer

For i = 1 To 10
    Range(Cells(i, 1), Cells(i, 5)).Select
    Selection.Sort Key1:=Range('A' & i), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
Next i
End Sub

à adapter

 

[daffy]

Merci sincèrement à dg62 qui m'a apporté la réponse après beaucoup d'échanges d'explications

A plus tard sur le forum

Daffy