Téléchargé 92 fois
Vote des utilisateurs
![Connectez-vous pour voter](/public/images/vote_plus_disabled.png)
![Connectez-vous pour voter](/public/images/vote_moins_disabled.png)
Détails
Licence : Gratuit pour usage non commercial
Mise en ligne le 17 février 2015
Langue : Français
Référencé dans
Navigation
Procédure de tri - VBA Excel 2003-2010
Procédure de tri - VBA Excel 2003-2010
Cette procédure est basée sur l'ancienne méthode SORT de l'objet Range, limitée à 3 niveaux de tri pour garder une portabilité avec la version 2003.
Les arguments
La procédure SortTable (version 5,2) à six arguments dont un seul est obligatoire.
SheetOrRange - (Object) pouvant être une feuille ou un Range.
Si l'objet est worksheet, on considère que la table commence à la cellule "A1" de cette feuille
[SortList] - (String) liste des n° de colonnes à trier séparés par un point virgule
Le n° de colonne correspond au n° de colonne dans la table
Si le n° est négatif le tri est descendant. Exemple SortList:="2;4;-6"
Si le n° contient une décimale et que la ligne ou la colonne à trier contient du texte convertible en nombres (exemple 13.2 4.2 ou '100 / '70050), le tri se fera comme un numérique (option xlSortTextAsNumbers de l'argument DataOptionX de la méthode Sort)
[Header] - (Boolean) Défini si la table à une en-tête. (xlYes pas défaut).
[Extend] - (Boolean). Indique si la référence à la table doit être étendue (Cas de colonne unique contigüe). True par défaut
[Orientation] - (Byte) Tri par colonne [default] (xlSortColumns/xlTopToBottom/1) ou par ligne (xlSortRows/xlLeftToRight/2)
[CustomList] - (String). Permet de faire un tri personnalisé sur la première clé. La liste doit être séparée par des points virgules. Exemple : "Très bon;Bon;Moyen;Pas bon"
Les arguments
La procédure SortTable (version 5,2) à six arguments dont un seul est obligatoire.
SheetOrRange - (Object) pouvant être une feuille ou un Range.
Si l'objet est worksheet, on considère que la table commence à la cellule "A1" de cette feuille
[SortList] - (String) liste des n° de colonnes à trier séparés par un point virgule
Le n° de colonne correspond au n° de colonne dans la table
Si le n° est négatif le tri est descendant. Exemple SortList:="2;4;-6"
Si le n° contient une décimale et que la ligne ou la colonne à trier contient du texte convertible en nombres (exemple 13.2 4.2 ou '100 / '70050), le tri se fera comme un numérique (option xlSortTextAsNumbers de l'argument DataOptionX de la méthode Sort)
[Header] - (Boolean) Défini si la table à une en-tête. (xlYes pas défaut).
[Extend] - (Boolean). Indique si la référence à la table doit être étendue (Cas de colonne unique contigüe). True par défaut
[Orientation] - (Byte) Tri par colonne [default] (xlSortColumns/xlTopToBottom/1) ou par ligne (xlSortRows/xlLeftToRight/2)
[CustomList] - (String). Permet de faire un tri personnalisé sur la première clé. La liste doit être séparée par des points virgules. Exemple : "Très bon;Bon;Moyen;Pas bon"
Bonjour,
Comme expliqué dans ma réponse en MP, sans connaître les lignes de codes utilisées pour appeler cette procédure ainsi que la valeur de chaque paramètre utilisé il est difficile d'apporter une réponse.
Est-ce qu'un tri effectué manuellement avec la même liste de données fonctionne ?
Même si je ne prétends pas que ma procédure est exempte d'un 'bug', c'est tout de même la première fois que je reçois un retour de problème suite à son utilisation après plus de 415 téléchargements de la nouvelle version.
ps : Un peu de patience. Je premier message en MP a été envoyé le hier le 19/3 à 10h9 et un second aujourd'hui déjà à 12h30 et ensuite un message public ce soir à 18h.
Ne pas oublier que nous sommes des bénévoles, que nous avons une vie privée et que c'est le week-end. Nous ne sommes pas scotché sur DVP 24h/24
Comme expliqué dans ma réponse en MP, sans connaître les lignes de codes utilisées pour appeler cette procédure ainsi que la valeur de chaque paramètre utilisé il est difficile d'apporter une réponse.
Est-ce qu'un tri effectué manuellement avec la même liste de données fonctionne ?
Même si je ne prétends pas que ma procédure est exempte d'un 'bug', c'est tout de même la première fois que je reçois un retour de problème suite à son utilisation après plus de 415 téléchargements de la nouvelle version.
ps : Un peu de patience. Je premier message en MP a été envoyé le hier le 19/3 à 10h9 et un second aujourd'hui déjà à 12h30 et ensuite un message public ce soir à 18h.
Ne pas oublier que nous sommes des bénévoles, que nous avons une vie privée et que c'est le week-end. Nous ne sommes pas scotché sur DVP 24h/24
merci beaucoup je m'y mets pour décoder un peu ça me semble assez hard mais bon j'ai le we
merci beaucoup
merci beaucoup
Juste que j'ai beaucoup apprécié le travail. Et je tiens à vous remercier énormément! Merci à vous tous!
merci beaucoup
Super bien comme code, ça m'a enlevé une belle épine du pied.
Facile à utiliser, il suffit de suivre les instructions.![:D](https://www.developpez.net/forums/images/smilies/icon_biggrin.gif)
Facile à utiliser, il suffit de suivre les instructions.
![:D](https://www.developpez.net/forums/images/smilies/icon_biggrin.gif)
Bonjour nonesofar,
Merci pour tes congratulations et ravi que cela ait pu t'aider.
Merci pour tes congratulations et ravi que cela ait pu t'aider.
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.