Discussion :

[Thierryco]

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

[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/

[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

[unparia]

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à ...

[Thierryco]

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

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

[unparia]

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 :

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

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

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

[Thierryco]

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

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

[unparia]

Est-il vraiment si difficile de comprendre que :

Code :

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

Range("A2:A2395")

devient :

Code :

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

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 ...

[Menhir]

Est-il vraiment si difficile de comprendre que :

Code :

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

Range("A2:A2395")

devient :

Code :

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

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

Ou, encore mieux :

Code :

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

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

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.