Tri sur plusieurs colones et par ligne

[Michel68000]

Bonjour,

Il me faudrait pouvoir trier toutes les lignes non vides d'une feuille par colonne de B a H par ordre croissant. J'y arrive pour une ligne mais dès qu'il y a une ligne vide c'est mort.
Si quelqu'un a déjà eu ce problème ça me ferais gagner du temps.
Merci pour vos réponses

 

[Modeste]

Re : Tri sur plusieurs colones et par ligne

Bonjour Michel68000,

Si j'ai bien compris "l'affaire", tu peux essayer le code suivant (qui me semble fonctionner avec l'exemple fourni):

Sub Tri()
With Worksheets("Feuil1")
For lig = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
    If .Cells(lig, 1) <> "" Then
        .Cells(lig, 2).Resize(1, 7).Sort Key1:=.Cells(lig, 2), order1:=xlAscending, Header:=xlNo, Orientation:=xlLeftToRight
    End If
Next lig
End With
End Sub

 

[Michel68000]

Re : Tri sur plusieurs colones et par ligne

Merci beaucoup Modeste ça fonctionne impec, maintenant si mes colonnes à trier vont de I2 à M251 que dois je modifier à ton code?
J'ai essayé mais ça détruit toute ma première zone de tri qui est en A2:H251
Merci encore pour ton aide

 

[Modeste]

Re : Tri sur plusieurs colones et par ligne

Re,

Je dois partir, mais ... moi pas comprendre quoi toi vouloir dire

Enfin, en réalité, je crains de comprendre (la question étant: pourquoi le problème dans son ensemble n'était-il pas exposé dès le départ? )

 

[Michel68000]

Re : Tri sur plusieurs colones et par ligne

Tout simplement parce que je dois trier une deuxième liste de chiffres que j'ai collé dans ma feuil1

 

[Modeste]

Re : Tri sur plusieurs colones et par ligne

[Juste pour montrer que je peux faire des réponses lapidaires, moi aussi]:

Ben, colle-la en-dessous, plutôt qu'à côté!

Et bonne soirée