Discussion :

[atk_49]

Bonjour à tous !

Je souhaiterais automatiser en vba (via CommandButton1_Click) le tri d'une base de données qui sera complété régulièrement par des utilisateurs, voici mon cahier des charges :

- La première ligne de la base de données est une ligne d'en tête et ne doit pas faire parti du tri.
- Ce tri doit s'effectuer dans la colonne A, cette dernière contenant uniquement des formules, j'aimerais que le tri prennent en compte le résultat et non la formule.
- Il faut également que le tri soit étendu aux autres colonnes afin que les lignes ne soient pas mélangées pendant le tri (imaginez le drame ^^) , contrainte supplémentaire, le nombre de colonnes sera amené à bouger régulièrement.

J'ai fais pas mal de recherches et d'essais mais les quelques contraintes que j'ajoute me poussent à venir chercher de l'aide sur votre forum.

Voila, je vous remercie par avance de votre aide, et bon appétit !

[Marc-L]

Bonjour, bonjour,

utilisation de base d'Excel, donc réalisable aisément manuellement en utilisant l'Enregistreur de macros,
fournissant ainsi le code sur un plateau !

[atk_49]

Bonjour Marc,

L'enregistreur de macro faisait parti de mes tests précédents, mais il ne prends pas en compte les dimensions dynamique du tableau, voici le code obtenu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Range("A2:AD416").Select
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:= _
        Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A3:AD416")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Merci en tout cas pour ta réponse, il est vrai que cet enregistreur est très pratique quand on débute !

[Philippe Tulliez]

Bonjour,
J'ai développé et mis en ligne une fonction de tri avec de multiples arguments permettant de trier verticalement ou horizontalement, liste personnalisée avec ou sans titre, une ou plusieurs colonnes avec tri ascendant et ou descendant dont tu trouveras le lien dans cette contribution.

[atk_49]

Bonjour,

C'est une procédure très complète qui peut certainement faire l'affaire dans mon cas, mais en me penchant sur le code proposé, j'admets ne pas avoir le niveau pour mettre en pratique ta méthode.

[atk_49]

Voila, j'ai finis par trouver la solution, je la partage pour les intéressés :

Pour ceux qui n'ont pas d'en-tête dans leur base, il suffit de remplacer A2 par A1 et Range("2:" par Range("1:" à la ligne 6 du code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:= _
        Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveSheet.Sort
        .SetRange ActiveSheet.Range("2:" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Si quelqu'un à plus simple, je suis preneur !

Bonne journée et merci à Marc et Philippe pour leur participation !