VBA:Trier plusieures colonnes avec un bouton

Bonjour
Voila ce qui s'affiche avec votre fichier joint :
PK?????!???3?
??_????
[Content_Types].xml ??
(??........
Avec la nouvelle version de cjoint.com, vous ne pouvez pas ouvrir un fichier directement. Pour extraire un fichier déposé sur cjoint.com, il faut faire un clic droit sur le lien proposé et sélectionner "Enregistrer la cible du lien sous.." dans le répertoire de votre choix, et à partir de là, vous pouvez ouvrir le fichier.
Pour le reste, "Pour les colonnes j'ai expliqué dans mon dernier poste, peut-être pas encore assez clairement désolé, que je prends 2 colonne pour exemple donc effectivement toutes les colonnes sont pleines.". Je suis désolé, c'est pas clair du tout, Comment est votre fichier avant que vous fassiez la manipulation de le scinder en 3 parties, sur combien de colonnes tient-il? 2, 3 ou plus? .Après l'avoir scinder en 3 parties, laissez-vous une colonne de libre entre chaque partie?
Je vous répète ce que j'ai dit plus haut, mettez une copie de votre fichier sur cjoint.com avec des données bidons, de telle manière que l'on voit à quoi ça ressemble . Si vous ne faites pas cela, ça peut durer longtemps.
Cdlt

Bonsoir,
Merci pour l'info de téléchargement ça a marché.
Malgré tout, j'ai fait l'essai et le programme bug car le fichier a du être converti puis il affiche une erreur d'exécution '438': propriété ou méthode non géré par et objet.
le debuggeur montre que ça vient du Sub Tri , 2e ligne.
Désolé!

Sinon, j'ai une seule colonne au départ puis j'ai fait 3 colonnes. avec une colonne vide pour séparer. votre fichier en présente 2 mais ça ne me gêne pas du tout c'est pas important même s'il n'y en a pas de séparation.
Je vais joindre mon fichier prochainement car j'ai avancé un peu et j'ai un autre problème de décochage de case à cocher à partir d'un bouton de commande.

merci

Bonjour
le debuggeur montre que ça vient du Sub Tri , 2e ligne. Il y a de fortes chances que cela vienne du nom de la feuille, comment s'appelle votre feuille 1? Si c'est le cas, à la deuxième ligne du Sub Tri, remplacez "Feuil1" par "Le nom de votre feuille". Si c'est autre chose, j'attendrai d'avoir le fichier.
Cdlt

bonjour,
voici mon fichier joint: http://www.cjoint.com/c/EGkn4I26qeS
la feuil "vers2" est se à quoi je veux arriver en terme de présentation
la "vers1" est celle de départ et l'autre est mon premier essai de la "vers1".

je cherche encore avec votre fichier car ça ne fonctionne pas.

merci

Désolé Frenchie83, je n'ai pas cherché à gâcher votre travail, ni le temps que vous me consacrez. J'ai essayé de comprendre votre programme et je pensais qu'il fallait que je l'adapte. Désolé.
Maintenant, je l'ai repris tel quel mais rien de mieux!
Je laisse tomber car je ne sais pas d'où cela peut venir. Est-ce ma version (2002-2003)? J'essaie de me remettre à programmer mais j'ai beaucoup oublié.

J'ai placé des page down un peu partout pour faire défiler. Tant pis pour le tri je vais essayer de lire un peu comment ça marche et reviendrai peut-être.

Merci de votre aide en tout cas.

Evidemment que ça ne peut pas marcher, Je suis en 2007, il y a des nuances entre le tri en vba 2007 et 2003. Je vous fais la modif dès que j'ai un peu de temps et je vous renvoi tout ça
Cdlt

Bonjour Frenchie83,
Je vous remercie beaucoup de votre aide. Cela fonctionne très bien! Ouf!
Néanmoins, comme j'avais du coup renoncé et que j'avais tout mis en un seul bloc de colonnes, il me reste plus qu'à recommencer. c'est le revers de la médaille.

Merci encore

Après examen de votre code pouvez-vous m'expliquer cette ligne svp:

ZoneSelectionnee = "A2:E" & [D10000].End(xlUp).Row
je ne comprends pas pourquoi le: "D10000"

merci

Bonjour
ZoneSelectionnee = "A2:E" & [D10000].End(xlUp).Row
La 1er tableau s'étend de la colonne A à E et cherche la dernière ligne parmi les colonnes celle qui ne présentera pas de trous, j'avais opté pour la colonne des copropriétaires qui dans nos premiers échanges était en colonne D (voir feuille Vers2, il y avait un numéro d'ordre en colonne A), mais par la suite, dans les 3 tableaux, elle n'apparaissait plus. par contre j'ai oublié de la modifier, voici ce qu'il aurait fallut trouver pour chaque tableau
tableau 1: ZoneSelectionnee = "A2:E" & [C10000].End(xlUp).Row
tableau 2: ZoneSelectionnee = "G2:K" & [I10000].End(xlUp).Row
tableau 3: ZoneSelectionnee = "M2:Q" & [O10000].End(xlUp).Row
On pourrait tout aussi bien prendre la colonne des Lots ou bien celle des tantièmes comme référence, si elles sont au complet.
Je vous laisse le soin d'effectuer les corrections.
Bonne soirée
Cdlt

Eh bien merci encore j'avais donc bien vu une erreur 'D' au lieu de 'C' ce qui me permet de comprendre maintenant. Sujet clos merci.
Bonne soirée aussi