Sujet Précédent Sujet Suivant

Macro Excel - Tri en ligne

Fermé
lavjau - 4 août 2011 à 17:07
 lavjau - 5 août 2011 à 18:42
Bonjour à tous,

Je sollicite votre aide car je me prends la tête sur une macro Excel (le dev c'est pas trop mon point fort). ;(
J'ai un tableau rempli de chiffres que j'aimerai trier du plus petit au plus grand en ligne (sachant que je peux avoir des milliers de lignes et des dizaines de colonnes).

Je me suis inspiré d'une macro que j'ai trouvé sur le net pour faire une macro qui trie mais en colonne (qui fonctionne très bien d'ailleurs) : 

Sub Tri()
'
' Tri Macro
'

'
Dim maplage As Range, i As Byte
For i = 1 To 50
    If ActiveCell = "" Then
      i = i + 1
    Else
      Set maplage = Range(Cells(2, i), Cells(Cells(65536, i).End(xlUp).Row, i))
      maplage.Sort Key1:=Cells(2, i), Order1:=xlAscending, _
      Orientation:=xlTopToBottom
    End If
Next i
End Sub


Le soucis est que je n'arrive pas à l'adapter pour un tri en ligne.
Je pensais modifier la "xlTopToBottom" en "xlLeftToRight" puis jouer sur les "Range" mais je n'y arrive pas...

Pouvez-vous m'aiguiller ou m'aider à la modifier svp?

Merci !!
A voir également:

4 réponses

Réponse 1 / 4
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
4 août 2011 à 17:17
Bonjour,

d'après cette astuce, on peut définir le tri selon les lignes au lieu des colonnes.

Le mieux pour réussir ton code serait d'utiliser l'enregistreur de macro et de faire un simple tri en ligne de tes données. Ca te permettrait déjà d'avoir une bonne base pour réaliser le tri que tu souhaites faire.

Cordialement.
0
Réponse 2 / 4
lavjau
4 août 2011 à 17:47
Merci de ta réponse rapide.

J'ai testé en utilisant l'enregistreur de macros (Excel 2010):
1 - Je sélectionne mon tableau
2 - Tri personnalisé
3 - Options
4 - Tri de gauche à droite
5 - Ok

Mais le tri ne fonctionne que sur la première ligne et en plus je trouve que c'est un peu le "bordel" niveau code et j'ai dû mal à comprendre les fonctions.

Je pense que je dois voir autour de "Range(Cells(2, i)" mais pas facile à adapter quand on commence...
0
Réponse 3 / 4
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
4 août 2011 à 21:54
Bonsoir,

Mais le tri ne fonctionne que sur la première ligne
C'est normal, la ligne est triée et les valeur qui correspondent en dessous suivent
Comme quand tu tries des colonnes, tu as une clé de tri et les données correspondantes suivent...

Si tu veux trier individuellement les lignes il faut les faire une par une

eric
0
Réponse 4 / 4
lavjau
Modifié par lavjau le 5/08/2011 à 18:42
En "farfouillant" sur le net, j'ai trouvé une macro qui fonctionne très bien (je me suis finalement laissé tenter par la facilité :| )

Je vous laisse le code si ça peut aider quelqu'un d'autre : 

Sub test() 
Dim DerLig As Long, DerCol As Integer 
Dim Rg As Range, R As Range 
With Feuil1 
If Not IsEmpty(.UsedRange) Then 
DerLig = .Cells.Find(What:="*", _ 
LookIn:=xlFormulas, _ 
SearchOrder:=xlByRows, _ 
SearchDirection:=xlPrevious).Row 

DerCol = .Cells.Find(What:="*", _ 
LookIn:=xlFormulas, _ 
SearchOrder:=xlByColumns, _ 
SearchDirection:=xlPrevious).Column 
End If 
Set Rg = .Range("A2", .Cells(DerLig, DerCol)) 
End With 

Application.ScreenUpdating = False 
Application.EnableEvents = False 
For Each R In Rg.Rows 
LeTriHorizontal R 
Next 
Application.EnableEvents = True 
Application.ScreenUpdating = True 

End Sub 
'---------------------------------------- 
Sub LeTriHorizontal(Plg As Range) 
With Plg 
.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlNo, _ 
OrderCustom:=1, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal 
End With 
End Sub 
'----------------------------------------


Merci à tous pour votre aide !
0

Discussions similaires

Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses