Tri de gauche a droite

1

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.


Posté le 11 septembre 2014, 06:08
par mic6259
Répondre
1

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
mariowilli Posté le 11 septembre 2014, 07:48
par mariowilli
  • nota : il faut enlever le <pre> au début et le </pre> à la fin...

    mariowilli 11 septembre 2014, 07:48
-1

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) ?

Vince Posté le 11 septembre 2014, 10:09
par Vince
-1

Super ça marche et ça va me faire gagner du temps.

Merci – mariowilli


Posté le 12 septembre 2014, 06:57
par mic6259
1

Ah oui

Posté le 19 septembre 2014, 00:13

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :