Tri automatique sur ExcelRésolu/Fermé

Question

Bonjour,

J'ai un tableau sous excel dont les données sont alimentée par des formules.

J'aimerais savoir s'il est possible que le tri des des lignes soit réalisé automatiquement à la modification d'une valeur sans avoir à passer par Données/trier...

Merci.

bremic83 · Accepted Answer

Bonjour,je vois dans ce forum,la solution à un problème identique à celui que je cherche à résoudre,mais la solution proposée,je n'arrive pas à la mettre en application !
Il s'agit de la macro proposée par gbinforme ,le mardi 25 janvier 2005,figurant dans le forum "tri automatique sur Excel"
Pourrait-on me donner la marche à suivre pour appliquer cette macro sur Excel 2007 ?
Merçi à l'âme charitable qui voudra bien se pencher sur mon problème.

gbinforme · Answer

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

youyou · Answer

Bonjour, 
C top merci

gbinforme · Answer

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 ?

gbinforme · Answer

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 ?

gbinforme · Answer

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

gbinforme · Answer

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.

gbinforme · Answer

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

gbinforme · Answer

bonjour

Dans ce cas il faut regarder dans c:\users\ etc

mais je n'ai pas vista.

gbinforme · Answer

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

Bremic83 · Answer

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

gbinforme · Answer

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

gbinforme · Answer

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"

gbinforme · Answer

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.

gbinforme · Answer

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

gbinforme · Answer

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.

gbinforme · Answer

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.

Bremic83 · Answer

OK tu es mon sauveur,MERCI

A plus.

Bremic83

StDark · Answer

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 ?

gbinforme · Answer

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

StDark · Answer

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 ?

gbinforme · Answer

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

StDark · Answer

Bonjour,

Merci pour ces renseignements, je go tester.

++

azzou92 · Answer

BONSOIR
j'ai besoin d'une aide sur un tri automatique c urgent 
alors je vous explique 
j'ai 3 colonnes sur mon tableau 
col1: nom 
col2: prenom
col3: date et heure de naissance jj/Mm/aaaa hh:mm
je veux trier mes lignes selon la col3 par ordre croissant je sais y ala commande tri mais je veux qu'a chaque fois que j'insere une nouvelle ligne il se reactualise automatiquement 
qq1 a une piste je bloque merci à vous

gbinforme · Answer

bonjour

Il suffit de mettre le tri dans la macro événementielle de change.

azzou92 · Answer

JE ne vois pas ce que tu veux dire peux tu me donner le code ? je suis 0 en vb
merci

gbinforme · Answer

bonjour

Tu te mets en enregistrement de macro, tu effectues ton tri, tu arrêtes l'enregistrement et tu transfères le code dans la macro événementielle worksheet_change et le tour est joué.

Tri automatique sur Excel

27 réponses

Discussions similaires

Newsletters