Bonjour Mes amis ;
je cherche à trier un enssembe de valeurs d'un tableau par colonne dans l'ordre de 1.1 à 1.n on se basant sur les valeurs de la ligne 1 ( voir fichier joint) , J'ai développez ce petit bout de code mais çà ne marche plus , il me donne des valeur en désordre ,
Merci de me répondre une solution le plutôt possible . !!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub CommandButton1_Click() Range("B1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveWorkbook.Worksheets("synthése").Sort.SortFields.Clear ActiveWorkbook.Worksheets("synthése").Sort.SortFields.Add Key:=Range("B1:AB1" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("synthése").Sort .SetRange Range("B1:AB13") .Header = xlGuess .MatchCase = True .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With End Sub
Cordialement
Partager