Macro : ranger par ordre alphabétique [Résolu]

Réponse 2 / 16

lynkyn
14 déc. 2010 à 10:19

Désolé mais cela ne marche pas. La première partie du texte se met en jaune et dit que ça ne peut pas marcher en "mode arrêt" ou quelque chose comme ça.

Réponse 3 / 16

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
14 déc. 2010 à 10:20

bonjour

Si tu pouvais nous mettre un exemple de classeur, sans données identifiables et privées, mais avec la structure de tes données sur http://www.cijoint.fr/ puis nous mettre le lien généré ici ce serait plus facile.

Réponse 4 / 16

lynkyn
Modifié par lynkyn le 14/12/2010 à 11:26

Je ne sais pas comment générer un tableur sur le topic désolé...

En gros prenons un tableau simple :
dans chaque colonneA,B,C,D ; Nom, Prénom, Age, Ville (cellules avec une liste de choix de 3 réponses)
Je souhaite que lorque l'on trie la colonne A (le Nom), le Prénom,l'Age et la Ville,se trie sur la même ligne que le Nom.

Exemple :

Paul Martin 20 Paris
Henri Dupon 54 Marseille
Jean Bonneau 42 Le Mans

devienne :

Henri Dupon 54 Marseille
Jean Bonneau 42 Le Mans
Paul Martin 20 Paris

Ceci se faisant avec une macro lier a un bouton commande.
Ceci pose un souci si dans la colonnes D (Ville) les cellules sont toutes avec une liste de choix ?

Merci d'avance

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 16

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
14 déc. 2010 à 17:02

bonjour

chaque colonneA,B,C,D ; Nom, Prénom, Age, Ville
devienne :

Henri Dupon 54 Marseille

Tu ne penses pas que tu es un tant soit peu incohérent dans ton exemple

Je souhaite que lorque l'on trie la colonne A (le Nom), le Prénom,l'Age et la Ville,se trie sur la même ligne que le Nom

C'est tout de même la règle de base du tri excel : je ne vois pas où est le problème ?

Donnes nous ta macro et on la corrigera.

Réponse 6 / 16

lynkyn
15 déc. 2010 à 08:47

J'ai trouvé le problème.
Apparamment le tri par ordre alphabétique ne peut se faire quau maximum sur 4 colonnes. (sur mon excel 2000).
Or, j'ai 6 colonnes...

Comment puis-je faire alors ?

Merci

Réponse 7 / 16

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
15 déc. 2010 à 09:56

bonjour

le tri par ordre alphabétique ne peut se faire quau maximum sur 4 colonnes

Ceci n'est pas exact. Tu n'as que 3 critères de tri mais cela ne t'empêche pas de trier sur 20 colonnes si tu veux.

Si tu pouvais nous mettre un exemple de classeur, sans données identifiables et privées, mais avec la structure de tes données sur http://www.cijoint.fr/ puis nous mettre le lien généré ici ce serait plus facile de te corriger ta macro.

Réponse 8 / 16

lynkyn
15 déc. 2010 à 10:48

Voici le lien : http://www.cijoint.fr/cjlink.php?file=cj201012/cijf29pggH.xls

Merci

Réponse 9 / 16

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
15 déc. 2010 à 18:22

bonjour

La macro ne fonctionnait pas car tu as des cellules fusionnées en ligne titre qui sont incompatibles avec le tri.

Voici ta macro modifiée en rajoutant la colonne G car sinon les appréciations ne seraient pas sur la bonne ligne :

ActiveSheet.Cells(2, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 7).Sort _
    Key1:=Range("D2"), Order1:=xlAscending, _
    Key2:=Range("E2"), Order1:=xlAscending, _
    Key3:=Range("F2"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
ActiveSheet.Cells(2, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 7).Sort _
    Key1:=Range("A2"), Order1:=xlAscending, _
    Key2:=Range("B2"), Order1:=xlAscending, _
    Key3:=Range("C2"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Réponse 10 / 16

lynkyn
16 déc. 2010 à 09:05

J'au toujours un souci, la première partie du texte se met en jaune... il y aurait un problème...?

Merci

Réponse 11 / 16

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 déc. 2010 à 09:12

bonjour

Quel est le libellé de l'erreur ?

Réponse 12 / 16

lynkyn
16 déc. 2010 à 09:23

bjr,

le message est :

"erreur d'execution '1004'
erreur definie par l'application ou par l'objet

Réponse 13 / 16

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 déc. 2010 à 09:58

bonjour

Essaies avec ton classeur :

http://www.cijoint.fr/cjlink.php?file=cj201012/cijejamlGA.xls

Réponse 14 / 16

lynkyn
16 déc. 2010 à 10:57

Avec mon classeur du lien, j'ai le même problème, même erreur.
pour ma part, je suis avec excel 2000 et vba version 6.0.

Réponse 15 / 16

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 déc. 2010 à 19:13

bonjour

Effectivement ton ancienne version n'accepte pas tous les paramètres, alors essaies de mettre seulement l'indispensable ordre de tri :

ActiveSheet.Cells(2, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 7).Sort _
    Key1:=Range("D2"), Order1:=xlAscending, _
    Key2:=Range("E2"), Order1:=xlAscending, _
    Key3:=Range("F2"), Order1:=xlAscending 
ActiveSheet.Cells(2, 1).Resize(ActiveSheet.UsedRange.Rows.Count, 7).Sort _
    Key1:=Range("A2"), Order1:=xlAscending, _
    Key2:=Range("B2"), Order1:=xlAscending, _
    Key3:=Range("C2"), Order1:=xlAscending

Réponse 16 / 16

lynkyn
22 déc. 2010 à 10:51

Merci !!!

Ca marche !

Macro : ranger par ordre alphabétique

16 réponses

Discussions similaires

Newsletters