Tri automatique par ligne

porcinet82

XLDnaute Barbatruc

• 24 Octobre 2006

• #2

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.

@+

 

Vote positif 0 Vote négatif

yaka

XLDnaute Occasionnel

• 25 Octobre 2006

• #3

Re : Tri automatique par ligne

ok... voir exemple ci-joint.

 

Pièces jointes

• tri par ligne.xls

  28.5 KB · Affichages: 66
• tri par ligne.xls

  28.5 KB · Affichages: 66
• tri par ligne.xls

  28.5 KB · Affichages: 67

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Octobre 2006

• #4

Re : Tri automatique par ligne

bonjour YAKA
salut porcinet

vois si cela te convient

 

Pièces jointes

• tri par ligne.xls

  37 KB · Affichages: 88
• tri par ligne.xls

  37 KB · Affichages: 89
• tri par ligne.xls

  37 KB · Affichages: 88

Vote positif 0 Vote négatif

yaka

XLDnaute Occasionnel

• 25 Octobre 2006

• #5

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?

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 25 Octobre 2006

• #6

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

yaka

XLDnaute Occasionnel

• 25 Octobre 2006

• #7

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.

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 25 Octobre 2006

• #8

Re : Tri automatique par ligne

re,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

yaka

XLDnaute Occasionnel

• 25 Octobre 2006

• #9

Re : Tri automatique par ligne

bingo!

merci pour vote disponibilité! A +

 

Vote positif 0 Vote négatif