Tri automatique par ligne

[yaka]

Bonjour cher forum

j'ai un tableau avec plusieurs colonnes (colonnes C à M) et plusieurs lignes (lignes 2 à 20)
je souhaite classer mes colonnes en fonction soit des résultats de la ligne 2 soit des résultats de la ligne 5 soit des résultats de la ligne 10... au choix.

Je n'arrive pas à rendre mon code dynamique en fonction de la ligne choisie :


mon code (j'espére qu'il suffira) :
(...)
Num_Ligne = MsgBox(Sheets("liste").Range("g20")) 'c'est le numéro de la ligne que j'ai préalablement choisi via une listbox

Selection.Sort Key1:=Range("C" & Num_Ligne), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight

'c'est là que ça bloque

une lumiére pour m'éclairer?

par avance merci

yaka

 

[porcinet82]

Re : Tri automatique par ligne

Salut Yaka,

Perso, je ne comprends pas tres bien comment tu veux trier une colonne a partir d'une ligne 😕 .
Ne pourrais-tu pas nous mettre un petit exemple en pièce jointe avec ce que tu as au départ et ce que tu souhaites obtenir apres trie selon le choix de telle ou telle lignes.

@+

 

[yaka]

Re : Tri automatique par ligne

ok... voir exemple ci-joint.

 

[pierrejean]

Re : Tri automatique par ligne

bonjour YAKA
salut porcinet

vois si cela te convient

 

[yaka]

Re : Tri automatique par ligne

oui PierreJean!

pour corser le tout j'aimerai non pas avoir dans la combobox les n° de lignes mais les libellés de ligne...
it's possible?

 

[porcinet82]

Re : Tri automatique par ligne

re, Salut Pierrejean,

Comme mon ami Pierrejean a l'air de s'etre absenté pour le moment, je me permet de modifier son code pour faire ce que tu veux. Il te suffit donc de modifier le code suivant :

Private Sub UserForm_Initialize()
Dim n%
For n = 2 To Range("B65536").End(xlUp).Row
  ComboBox1.AddItem (Cells(n, 1).Value)
Next n
End Sub

@+

 

[yaka]

Re : Tri automatique par ligne

ça va dans le sens de ma question mais

... en faisant comme cela le classement plante... puisqu'il n'y a plus de chiffre pour identifier (et classer) les lignes mais des libellés.

 

[porcinet82]

Re : Tri automatique par ligne

re,

Désolé, je n'avais pas regardé le reste du code. Modifie de la manière suivante :

Private Sub ComboBox1_Change()
Range("B1:E" & Range("E65536").End(xlUp).Row).Select
    Selection.Sort Key1:=Range("B" & ComboBox1.ListIndex + 2), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Unload Me
End Sub

@+

 

[yaka]

Re : Tri automatique par ligne

bingo!

merci pour vote disponibilité! A +