Autres Mon verrou technique - trier des infos

Dudu2

XLDnaute Barbatruc

• 27 Mars 2020

• #2

Bonjour,
Un exemple de code dans le fichier joint.
Attention ! Le tri ne porte que sur la colonne 1. Si tu veux qu'une autre colonne prévale dans l'ordre du résultat il faut modifier la fonction de tri pour prendre en compte une 2ème colonne de tri.

 

Pièces jointes

• Classeur1.xlsm

  20.1 KB · Affichages: 9

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Mars 2020

• #3

Bonsoir @Autobiome, @Dudu2 ,

Une autre macro sous format de fonction Concat() : voir la fonction dans module1.
Voir son utilisation dans la fonction Test dans le module de Feuil1.

Attention!

• on ne tient pas compte des cellules vides
• ça ne fonctionne que sur PC. Si vous avez un MAC, revenir le signaler (le mieux c'est de l'indiquer dans votre profil)

edit : une v1a débarassée de quelques scories laissées lors des tests.

 

Pièces jointes

• Autobiome- concat- v1a.xlsm

  21.4 KB · Affichages: 5

Dernière édition: 27 Mars 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mars 2020

• #4

@mapomme,

Intéressant, je ne connaissais pas le Range.Sort que j'ai donc utilisé dans ma macro pour éviter une fonction de tri et qui permet une plus grande souplesse sur l'utilisation des clés.

Je n'ai jamais utilisé les VBA Dictionnary ayant jusque là placé les valeurs en table directement à partir des Range.Value. Je suppose que l'intérêt dans ce cas est l'unicité de la clé pour éviter les doublons.

Je ne comprends pas pourquoi, dans le tableau fourni par Autobiome, les valeurs @1, @2, etc... me posent des problèmes en manipulation Excel.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Mars 2020

• #5

Re Dudu2 ,

Le .Sort que j'utilise dans mon code est un reliquat des anciennes versions de VBA avant que Microsoft ne sorte l'objet Sort. Le .Sort a plus de limitations que l'objet Sort (en premier lieu, on ne peut utiliser qu'au maximum trois clef : key1 , key2 , key3). Mais dans 99% des cas de tri que j'ai rencontré, c'est suffisant. L'avantage c'est que ça tient en une seule instruction.

Les Dictionary sont pratiques mais interdits aux possesseurs de MAC. Ils ne sont pas forcément plus rapides que d'autres méthodes par tableaux. Souvent, ils simplifient le code et limite sa taille.

Dudu2 à dit:

Je ne comprends pas pourquoi, dans le tableau fourni par @Autobiome, les valeurs @1, @2, etc... me posent des problèmes en manipulation Excel.

Cliquez pour agrandir...

Peux-tu préciser ?

 

Dernière édition: 27 Mars 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mars 2020

• #6

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Mars 2020

• #7

Re @Dudu2,

Quand Excel voit un @ dans une saisie, il l'interprète comme une adresse mail de type xxxx@yyyy.
Quand on saisit @2, il manque le xxxx, donc il trouve une erreur. Vous pouvez :

• soit saisir '@2
• soit préformater la cellule au format texte

Soit autre chose que je ne connais pas encore ou que j'ai oubliée

 

Dernière édition: 27 Mars 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mars 2020

• #8

Ah ok, bien sûr un mail !
Merci pour l'explication.

 

Vote positif 0 Vote négatif

A

Autobiome

XLDnaute Nouveau

• 30 Mars 2020

• #9

Bonjour et merci à vous pour vos réponses !

Dudu2 : Ta réponse ne semble pas fonctionner chez moi :-/ :


Mapomme : ça marche bien merci !
Par contre mes données vont par block de 3 cases (B1,C1,D1 par exemple) donc il le fait de d'exclure les cases vides du tri ne m'arrange pas plus que ça.
Mais bon normalement je ne dois pas en avoir (normalement !) donc ça va le faire

Merci beaucoup

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Mars 2020

• #10

Bonjour @Autobiome

Par contre mes données vont par block de 3 cases (B1,C1,D1 par exemple) donc il le fait de d'exclure les cases vides du tri ne m'arrange pas plus que ça.

Cliquez pour agrandir...

Dans ce cas utilisez la version du fichier joint.

 

Pièces jointes

• Autobiome- concat (avec vide)- v1.xlsm

  21.4 KB · Affichages: 1

Dernière édition: 30 Mars 2020

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 30 Mars 2020

• #11

Bonjour le fil , Autobiomen, Dudu2, mapomme

J'essaie de faire cette manip (flat table => cross table) avec PowerQuery
Et je sèche
Quelqu'un pour me monter la voie?

PS: J'y arrive avec d'autres données mais pas ici.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Mars 2020

• #12

Re Staple1600,

Staple1600 à dit:

Quelqu'un pour me monter la voie?

Cliquez pour agrandir...

Certainement pas moi (ce qui ne t'aide en aucune manière de le savoir ). Je sors de 5 mois de Excel 2007 et mon nouveau micro (avec Excel 2010) est assez verrouillé donc pour l'instant pas de PQ. J'en reste au clou avec les feuilles découpées dans un journal comme jadis - notons qu'à cette fin, les feuilles Excel ne sont, walou, d'aucune utilité.

@chris pourrait sans doute t'aider...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Mars 2020

• #13

Re

•>mapomme
Merci d'être passé mapomme
Si tu croises chris ou Amilo à l'agence des amants de Mme Muller, dis leurs bien qu'un animal en quarantaine est bloqué avec son PQ , son X et sa Table

EDITION: je vois qu'on a pensé à la même personne

 

Vote positif 0 Vote négatif

A

Autobiome

XLDnaute Nouveau

• 30 Mars 2020

• #14

Merci beaucoup, c'est parfait !

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 31 Mars 2020

• #15

Bonjour

Après la bataille, lol, sur demande de mon ami Staple, la (une) solution PowerQuery

 

Pièces jointes

• Décroiser_ReCroiser_PQ.xlsx

  21.3 KB · Affichages: 5

Vote positif 0 Vote négatif