pour valider des chiffres a la place des lettres code vba

Version imprimable

salut

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

Code:

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

08/05/2017, 21h05
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
08/05/2017, 21h35
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
08/05/2017, 21h49
parmi

Effectivement... ;)

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 8O

Code:

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