Besoin d'aide sur le tri d'un fichier Excel en VBA

Version imprimable

03/07/2017, 20h30
Thierryco

Besoin d'aide sur le tri d'un fichier Excel en VBA

Bonsoir
je débute avec les macro Excel et mon besoin doit être si simple que je n'ai pas trouvé la solution......
Dans mon classeur, dans l'onglet Fournisseurs j'ai 10 colonnes de A à J et je souhaite organiser ma page par le tri de la 1er colonne nommé "Fournisseur" en A1
Merci pour votre aide
03/07/2017, 20h34
unparia

Bonjour
L'utilisation toute bête de l'enregistreur de macro te permettra de connaître ce code ...
A lire :
http://fauconnier.developpez.com/tut...istreur-macro/
03/07/2017, 20h50
Thierryco

Bonsoir
J'ai essayé mais le problème est que chaque jour j'ajoute des lignes et la macro doit déterminer la fin de ma colonne A pour lancet le tri
03/07/2017, 20h53
unparia

Citation:

J'ai essayé mais le problème est que chaque jour j'ajoute des lignes et la macro doit déterminer la fin de ma colonne A pour lancet le tri

Oui ? Et alors ?
L'enregistreur de macros te montre le code à écrire.
Ce code est ensuite à adapter pour coller très exactement à ta situation.
Montre le code obtenu par l'enregistreur de macros, déjà ... ;)

'Merci pour ton aide Le problème c'est comment définir la dernière ligne et non A2395

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Tri_Données_Fournisseur()
'
' Tri_Données_Fournisseur Macro
 
 
'
    Range("A2").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A2395" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:J2395")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

03/07/2017, 21h18
unparia

Citation:

Le problème c'est comment définir la dernière ligne et non A2395

Si tel est finalement ton unique problème résiduel --->>

Code:

Range("A" & rows.count).end(xlup).row

est le rang de la dernière ligne remplie de la colonne A

J'ai un message d'erreur, je dois mal positionner Range("A" & Rows.Count).End(xlUp).Row.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro27()
'
' Macro27 Macro
'
 
'
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A" & Rows.Count).End(xlUp), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A" & Rows.Count).End(xlUp).Row
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

03/07/2017, 21h45
unparia

Est-il vraiment si difficile de comprendre que :

Code:

Range("A2:A2395")

devient :

Code:

Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)

Quand même ! il ne s'agit là que de concaténation d'éléments d'une chaîne de caractères (ce qu'est une adresse) !
Hmmm ...
04/07/2017, 09h47
Menhir

Citation:

Envoyé par unparia

Est-il vraiment si difficile de comprendre que :

Code:

Range("A2:A2395")

devient :

Code:

Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)

Ou, encore mieux :

Code:

Range("A2", Range("A" & Rows.Count).End(xlUp))

Citation:

Dans mon classeur, dans l'onglet Fournisseurs j'ai 10 colonnes de A à J et je souhaite organiser ma page par le tri de la 1er colonne nommé "Fournisseur" en A1

En VBA, il y a deux méthodes pour faire un tri :
Par Range : https://msdn.microsoft.com/library/e...ice.15%29.aspx

Par Worksheet :
https://msdn.microsoft.com/library/2...ice.15%29.aspx
https://msdn.microsoft.com/fr-fr/library/ff821877.aspx

La première correspond à ce qui se faisait dans Excel 2007 et précédents, avec 3 critères maximum. Elle est plus simple mais offre moins de possibilités.
La seconde correspond à la façon de faire des tris dans les Excel récent. Elle permet de faire plus de chose mais est plus complexe à gérer.

Comme tu n'as qu'un seul critère, je te conseille de t'orienter vers la première.