J'ai plusieurs mots de 10 lettres que j'ai converti su 10 cellules de A1 a J1-de A2 a J2 ainsi de suite.Quand je sélectionne plusieurs lignes, la première ligne est bien trie mais pas les autres.
Y-aurait-il une solution ou Macro pour corriger cela.
J'ai plusieurs mots de 10 lettres que j'ai converti su 10 cellules de A1 a J1-de A2 a J2 ainsi de suite.Quand je sélectionne plusieurs lignes, la première ligne est bien trie mais pas les autres.
Y-aurait-il une solution ou Macro pour corriger cela.
Hello, voilà un truc fait à la volée, donc dégueux point de vue code et pas optimisé, mais pour ce que tu veux faire, ça fonctionne.
Sub TrierLignes() For i = 1 To 1000000 If Cells(i, 1).Text = "" Then Exit Sub Rows(Trim(Str(i)) & ":" & Trim(Str(i))).Select ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range("A" & Trim(Str(i)) & ":D" & Trim(Str(i))), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort .SetRange Range("A" & Trim(Str(i)) & ":J" & Trim(Str(i))) .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With Next i End Sub
nota : il faut enlever le <pre> au début et le </pre> à la fin...
Désolé je ne comprend pas du tout ce que tu veux faire, tu veux trier les lignes par ordre alphabétique (donc trier verticalement), ou trier, pour chaque ligne, les colonnes de la plus petite à la plus grande (donc trier horizontalement) ?