Tri automatique sur Excel [Résolu]

bonjour

C'est tout à fait possible avec une macro VBA.

Le tableau que tu veux trier, tu le nommes "infos"

la cellule titre de la 1ère colonne de tri est nommée "col1"

la cellule titre de la 2ème colonne de tri est nommée "col2"

la cellule titre de la 3ème colonne de tri est nommée "col3"

tous ces noms sont des exemples utilisés dans la macro bien sûr !


tu mets cette macro dans la feuille concernée et
dès qu'une cellule change de valeur le tableau est trié.

Private Sub Worksheet_Change(ByVal adrcel As Range)
Range("infos").Sort Key1:=Range("col1"), Order1:=xlAscending, _
Key2:=Range("col2") , Order2:=xlAscending, _
Key3:=Range("col3"), Order3:=xlAscending, _
Header:= xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

il est bien évident que c'est un exemple qui fonctionne
mais il peut être amélioré en vérifiant que la cellule modifiée
fait bien partie du tableau par exemple.


toujours zen

bonjour

La dernière contient les noms des lignes,et c'est cette liste de noms que je trie en ordre décroissant,selon les performances

Je suppose que le tri décroissant se fait en fonction du total (colonne précédente) et non sur le nom car celui-ci ne doit pas varier ?

bonjour

Je désire donc automatiser ce tri. Je voudrais une méthode applicable à tous mes tableaux

Pour cela je te propose une macro complémentaire de tri paramétrable pour n'importe quel tableau.

http://www.cijoint.fr/cjlink.php?file=cj200905/cijJzXhlw8.zip

Tu décompresses le fichier tri.xla dans ton dossier

C:\Documents and Settings\mon_nom\Application Data\Microsoft\Macros complémentaires

Ensuite tu lances excel et dans le menu outils / macros complémentaires, tu coches "tri" et ta macro de tri est installée.

Dans tous les classeurs que tu veux trier, tu copies dans la feuille concernée la macro événementielle suivante (mode d'emploi éventuel)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim retour
    retour = Run("trier", 1, "G", "D")
End Sub

En remplaçant éventuellement :
- 1 par le numéro de ligne à partir duquel tu veux trier
- G par la colonne de tri
- D pour tri descendant par A pour tri Ascendant.

Dès que tu modifieras ton classeur, ton tableau concerné sera trié.

bonjour

je suis loin d'avoir pigé le processus

Ce n'est pas forcément évident mais le principe est simple en mettant un module de tri paramétré au niveau d'excel et en interceptant l'événement d'une saisie dans une cellule pour le lancer depuis n'importe quel classeur.

bonjour

Tu es probablement avec 2007 et donc avec le bouton Office en haut à gauche, il faut choisir enregistrer sous puis choisir "classeur excel prenant en charge les macros" et tu auras un fichier .xlsm

Dès que tu introduis les macros il faut cette extension.

bonjour bremic83,

Une macro "automatique" de tri doit être adaptée à ton classeur :

- que veux-tu trier ? une base de données structurée avec les rubriques en ligne 1 ?

- une partie de feuille de classeur ?

- sur combien de rubriques veux-tu trier ?

- as-tu déjà utilisé des macros ?

bonjour

je n'ai pas pu continuer,n'ayant pas trouvé :C:\Documents and Setting\ et la suite .

Tu es sous XP ou Vista ?

en changeant à chaque le n° de ligne

Le numéro de ligne doit rester le même car il n'est là que pour permettre de sauter les premières lignes si tu as un en-tête qui ne doit pas bouger et que le tableau à trier commence en ligne 8 par exemple. Tu peux aussi trier à partir de la colonne D (4) si tu précises le paramètre qui est implicitement 1 (A) :
retour = Run("trier", 1, "H", "D", 4)

Si par exemple tu as :
colonne A nom
colonne B prénom
colonne C age

Pour trier sur age , nom , prénom tu vas mettre les 3 lignes dans l'ordre inverse :

    retour = Run("trier", 1, "B", "A")
    retour = Run("trier", 1, "A", "A")
    retour = Run("trier", 1, "C", "D")

Ainsi ton tableau est trié colonne C puis A puis B

bonjour

Dans ce cas il faut regarder dans c:\users\ etc

mais je n'ai pas vista.

bonjour

a priori il faut libérer les fichiers systèmes :
Démarrer/Ordinateur et avec la touche Alt. afficher la barre d’outils en haut de la fenêtre
Menu Outils/Options des dossiers et onglet Affichage
décoches les cases
- Masquer les extensions des fichiers dont le type est connu
- Masquer les fichiers protégés du système d’exploitation

Bravo tu as fait vite.
J'avais trouvé cette solution sur le forum,je l'ai essayée sans résultat,à chaque fois que je veux ouvrir le dossier,je fais apparaitre la même fenêtre " dossier indisponible accès refusé "
J'ai voulu en essayer une autre:" INPLACE $.~dossier TR " mais je n'arrive pas à trouver le mode d'emploi !
D'ailleurs,je ne sais pas si elle serait valable dans mon cas .
La galère continue .
Comment fais tu pour rester toujours zen ?
A plus !
Bremic83

bonjour

As-tu regardé ceci :
http://www.commentcamarche.net/faq/sujet 6604 vista s approprier un fichier dont l acces est refuse

bonjour

je voudrais la transférer dans le dossier "Documents and Settings"

Attention il me semble que sur Vista ce répertoire est remplacé par "users"

Ensuite tu devrais trouver "Application Data\Microsoft\Macros complémentaires"

bonjour

quand je veux exécuter: Message d'erreur suivant:
"paramètre de tri incorrect".

Tu n'as pas dû lire totalement le message d'erreur car il manque le mot important du message.

Si tu en es arrivé là, c'est très bien car tu as installé ta macro complémentaire et il ne manque qu'une correction aux paramètres : ce devrait être simple.

Si tu pouvais faire un copier/coller de la macro de ton classeur, je pourrais d'aider plus facilement.

Je suis peut-être trop ambitieux pour un débutant

Sûrement pas car si tu n'avais pas aussi été un peu ambitieux pour marcher tu serais toujours assis : il faut bien se lancer et utiliser les outils disponibles surtout lorsqu'ils facilitent la tache.

bonjour

Dans ton paramètre sens de tri, il y a un espace avant le D et comme la macro attend A ou D...

C'est pas méchant, cela va fonctionner mais il faudrait enlever l'apostrophe devant "private".

bonjour

Dans la feuille VBA que tu veux trier, tu ne dois avoir que ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim retour
     retour = Run("trier", 1, "E", "D")
End Sub 

J'ai l'impression que tu as mis ton code dans un module au milieu d'une autre macro.

OK tu es mon sauveur,MERCI

A plus.

Bremic83

Bonjour,

Je reviens sur le tri automatique dans Excel 2007.

Cela fonctionne bien, toutefois le problème que je rencontre est que je ne veux trier une copie de mon tableau d'origine. Mon tableau à trier contient donc les références aux cellules où sont saisies les données, et là la macro ne fonctionne plus.

Exemple :

Valeurs saisies en A1:A30
Cellules G1:G30 égale la plage A1:30 et je veux trier la plage G1:G30

La seule solution que j'entrevois serait de rajouter au début de cette macro, un copier/coller des valeurs de ma colonne A en colonne G, mais je ne sais pas le faire en VBA.

Après il y a peut-être une meilleure solution ?

bonjour

Tu ne peux pas trier des cellules qui font références à une autre plage mais tu peux effectivement faire une copie puis ensuite tu peux trier sans souci et tu fait la copie très simplement avec ce code :

    Range("A1:A30").Copy Range("G1")

Merci beaucoup, toutefois si je peux profiter de tes compétences, quel serait le code à mettre dans ma feuille VBA pour que la copie ne se fasse qu'au changement d'onglet car je l'ai mis dans la macro qui retrie ma liste à chaque modification de cellule, mais du coup le programme tourne en rond ?

bonjour

Il faut le mettre dans worksheet_activate la macro événementielle.