Discussion :

[exelan]

salut

quoi mettre pour modifier ce code qui marche avec des lettres dans la colonne mais pas avec des chiffres merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton5_Click()
''Tri (N° Bon) de la colonne A "suivant" la colonne E
ActiveWorkbook.Worksheets("Mémo").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mémo").Sort.SortFields.Add Key:=Range("e6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mémo").Sort
        .SetRange Range("a6:d50000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[parmi]

Bonjour,

Qu'est-ce que tu entends par "ne marche pas avec des chiffres" ?
Ça devrait fonctionner aussi bien, sauf que les chiffres se retrouvent en haut des lettres s'il y a les deux dans la plage.

Attention toutefois aux adresses de plages.
Tu fais le filtre en mentionnant E6 et tu filtres la plage a6:d50000

[unparia]

Bonjour parmi
Gaffe aux réactions de VBA/Excel avec des "nombres" décimaux dans une colonne formatée en texte (surprises à la clef)
Amitiés

[parmi]

Effectivement...

[exelan]

merci Parmi et Unparia de m avoir aider l erreur est de moi g rajouter une colonne et pas modifier la ref de la colonne
le bon code et celui la après avoir supprimer cette colonne

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
Sub Bouton1_N°deBons_Mémo_Clic()
 
''Tri (N° Bon) de la colonne A "suivant" la colonne E
ActiveWorkbook.Worksheets("Mémo").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mémo").Sort.SortFields.Add Key:=Range("e6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mémo").Sort
        .SetRange Range("a6:I50000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub