Permutation de colonnes

Ryu,

Avec ton code:

1. on perd le tableau structuré;
2. on perd les formules;
3. les dates sont copiées en texte et plus en date;
4. on perd les formats;
5. le code n'est pas circonscrit à une plage précise mais prend toute la zone utilisée de la feuille;
6. on doit modifier plusieurs valeurs (la liste des colonnes, la valeur derrière ROW, la cellule d'arrivée si on n'est pas en A1).

Dans ces conditions, c'est clair que pour un débutant VBA, c'est loin d'être simple et il a intérêt à tester sur une copie de son classeur... ^^


:calim2:


Code utilisé (celui du message 12, après avoir adapté ROW(1: et la liste des colonne)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Demo() Dim VA Application.ScreenUpdating = False With Sheets(1).UsedRange VA = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), [{3,2,1,5,4}]) 'mettre les colonnes que l'on veut dans l'ordre voulues .Clear .Range("A1").Resize(UBound(VA, 1), UBound(VA, 2)) = VA End With Application.ScreenUpdating = True End Sub

---

re
@ryu

je ne sais pas tu meurs d'envie de me le dire

je sais pas … ça dépend si tu veux le savoir :mrgreen:

Aller :

1	2	=A1+B1	05/09/2018
3	4	=B2+A2	06/09/2018

Code:

---

1 2 3 4

Sub DemoBasic() VA = Range("A1:D2").FormulaR1C1 Range("C5").Resize(UBound(VA), UBound(VA, 2)).Formula = VA End Sub

---

on a les valeurs, les formules, les dates (Après pour les dates, faut remettre le format)

Edit : j'ai validé le post sans le finir :aie:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Demo() Application.ScreenUpdating = False With Sheets(1).UsedRange VA = Application.Index(.FormulaR1C1, Evaluate("ROW(11:" & .Rows.Count & ")"), [{2,4,3,6,5,7,8,9,10,11,12}]) 'mettre les colonnes que l'on veut dans l'ordre voulues .Clear .Range("A1").Resize(UBound(VA, 1), UBound(VA, 2)).Formula = VA End With Application.ScreenUpdating = True End Sub

---

Edit : corr. : ce n'est pas "A1:C2" dans le 1er code mais :

Code:

---

VA = Range("A1:D2").FormulaR1C1

---

Ryu,

Comment utilise-t-on ton code donné au message 23?

Perso, quand je l'utilise sur le tableau illustré ci-dessous, après avoir adapté le ROW de départ (j'ai supposé que je devais mettre 1) et l'ordre des colonnes, j'obtiens un truc qui ne me satisfait pas.

Tableau utilisé

Pièce jointe 409270


Résultat obtenu

Pièce jointe 409273

Code utilisé

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Demo() Dim VA Application.ScreenUpdating = False With Sheets(1).UsedRange VA = Application.Index(.FormulaR1C1, Evaluate("ROW(1:" & .Rows.Count & ")"), [3,1,2,5,6,4}]) 'mettre les colonnes que l'on veut dans l'ordre voulues .Clear .Range("A1").Resize(UBound(VA, 1), UBound(VA, 2)).Formula = VA End With Application.ScreenUpdating = True End Sub

---

Quid des formats, formats conditionnels, ...?

Et, chose que vous semblez oublier... Que se passe-t-il si des formules ailleurs dans le classeur utilisent les plages que vous supprimez allègrement sans aucune précaution et aucun avertissement? Le seul avertissement reçu par le demandeur initial, sur le tard, c'est "ah oui, faut remettre les dates au format"...

Vous êtes vraiment sérieux, là?

:calim2: :triste:

re
@pierre
c'est bien pour ca que je l'ai precisé selon si il y a des formules ou pas je prefere le deplacement de colonnes comme dans ma 2d reponse

reste le fait que si d'autre cellules que ces dites colonnes ont des formules concernants celles ci ,meme avec cette methode c'est foutu
les formules qui se mettent a jours sont celles qui sont dans les colonnes déplacées pas les autres

Merci à vous tous d'avoir bien clarifier mon esprit avec tout ça :mrgreen::mrgreen::mrgreen::mrgreen::(

Citation:

---

Envoyé par patricktoulon

[...]
reste le fait que si d'autre cellules que ces dites colonnes ont des formules concernants celles ci ,meme avec cette methode c'est foutu[...]

---

C'est pour cela qu'il ne faut que déplacer, et certainement pas supprimer puis remettre. En Excel, on ne peut pas, en tout cas par défaut, considérer que ce que l'on a devant nous n'interagit pas avec le reste du classeur et lancer des macros qui cassent les formules, les formats, les formats conditionnels, les liens avec d'autres cellules du classeur, etc. Ou alors, on doit clairement prévenir l'utilisateur que la macro va lui casser son jouet.

Dans le code que je donne dans mon billet, le déplacement des colonnes est fait à l'intérieur du tableau par des couper-coller, donc tout est conservé: formules, formats, mises en formes conditionnelles, et le code ne touche à rien hors du tableau, là où un UsedRange n'est pas du tout contrôlé et fait peut-être, voire probablement, péter plein d'autres choses à côté.

PS: J'ai adapté le code dans le fichier joint au billet car il fallait lancer plusieurs fois la procédure dans des dispositions particulières de colonnes (comme quoi on ne teste jamais assez) ;)

Re à tous

Citation:

---

Envoyé par bert35

...
Pour les histoires de Power Query, je n'en ai jamais entendu parlé.
Je travaille sur un poste bureautique (à mon bureau) avec Excel 2016. pas de possibilité d'installer PQ.

---

PowerQuery fait partie d'Excel 2016 ! Tu l'as donc sans le savoir, comme Monsieur Jourdain la prose...

C'est fou comme on ignore ce qu'Excel fournit en natif !

Pour répondre à Pierre : sauf erreur de ma part, PowerQuery ne met pas les données en cache dans le fichier (même s'il utilise un cache sur le disque).
Ce sont des requêtes, et même à l'utilisation dans l'interface PowerQuery il ne charge pas tout le résultat (par défaut l'aperçu affiche maxi 1000 lignes)

Je viens de tester il y a quelques jours une solution sur une demande forum : 2 sources externes 572 000 lignes et 140 000 lignes à croiser.
Le poids du fichier TCD de 700 lignes inclus : 163Ko tandis que la version VBA sans TCD fait 104Ko (code ramassé) ...

Dans le cas ici, le fichier étant en interne on a effectivement source + restitution, donc 2 fois les données...
Mais...

• Souvent je conseille d'attaquer le fichier depuis un autre classeur afin de travailler sur le résultat.
• En interne, si c'est one shot, on peut aussi rompre la liaison et supprimer l'onglet source... car après tout si on applique le VBA sur l'original c'est pareil...

Reste les éventuels liens de la source avec d'autres données du classeur et là effectivement c'est une autre chanson...

Citation:

---

Envoyé par 78chris

Re à tous[...]

---

Merci Chris pour ces infos. Juste une chose, en légère digression par rapport à la demande initiale: Tu es sûr que le cache est mis sur le disque?

re
c'est ce que je fait dans ma réponse 2
j'insere entre 2 colonne(obligé) et je deplace la colonne entiere

obligé!!!! sauf si je deplace toute les colonnes dans l'ordre que je veux après la plage de base et je supprime les colonnes initiales
exemple j'ai une base "A:F"
je deplace la A en G la B en H etc...et suppression des colonnes initiales devenu vides (testé)

Re

Citation:

---

Envoyé par Pierre Fauconnier

Merci Chris pour ces infos. Juste une chose, en légère digression par rapport à la demande initiale: Tu es sûr que le cache est mis sur le disque?

---

Il y a un cache sur le disque dont la taille se paramètre dans l'interface PQ ; par défaut c'est 4096 Mo.

C'est quasi sûr que ce n'est pas dans le classeur : les 2 sources que j'évoquais font 14Mo et 62 Mo alors que le classeur qui les exploite via PQ fait 119ko avec le TCD et son cache.

Je pense que c'est comme en BD : les requêtes ou vues ne sont que tu texte décrivant les modalités de la requête.

Mais si d'autres ont davantage de précisions, cela m'intéresse aussi:D

Re,

J'ai peut être loupé qq chose, mais dans la demande initiale, il n'a pas été question de tableaux structurés…. ???
Et bien sur le code donné est une demo à utiliser dans des cas où les conditions le permettent (à adapter) et non sur un tableau structuré …

Ryu,

Le problème ne vient pas du tableau structuré. Que ce soit avec un tableau structuré ou pas, ton code modifie les formules, détruit les formats, les mises en forme conditionnelles, et vu qu'il ne coupe-colle pas, les formules qui pointent vers la plage qui va être modifiée renvoient des résultats aberrants puisqu'elles n'ont pas suivi les déplacements (j'avais, sur une autre feuille, une formule qui pointait vers le d2 de la feuille modifiée, et qui continue à pointer vers d2, sauf que ta macro a modifié l'ordre des colonnes)...

Le problème vient du fait d'une mauvaise analyse du processus à mettre en oeuvre: Après, que le code doive travailler sur des plages classiques (dans quel cas?) ou sur un tableau structuré est secondaire, il faudra juste adapter pour travailler avec des colonnes classiques et pas des listcolumns, mais l'analyse restera la même: déplacer des blocs de cellules d'une plage bien circonscrite, et pas du UsedRange.

Voilà une plage contenant des données et des formules, des dates, des formats manuels et un format conditionnel sur les dates

Pièce jointe 409370


Voilà le code utilisé

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Demo() Dim VA   Application.ScreenUpdating = False With Sheets(1).UsedRange VA = Application.Index(.FormulaR1C1, Evaluate("ROW(1:" & .Rows.Count & ")"), [{3,2,1,5,4,6}]) 'mettre les colonnes que l'on veut dans l'ordre voulues .Clear .Range("A1").Resize(UBound(VA, 1), UBound(VA, 2)).Formula = VA End With Application.ScreenUpdating = True End Sub

---

Et voilà le résultat

Pièce jointe 409373


Et j'ai fait attention qu'il n'y avait rien d'autre sur la feuille, sinon, c'est encore pire... Je rappelle que le demandeur est, de son propre aveu, novice complet en vba... Il fait comment pour:

1. comprendre ce qui vient de se passer;
2. réparer les dégâts;
3. adapter le code;
4. ...

Normalement, la macro doit aider l'utilisateur (surtout s'il est débutant), lui faire gagner du temps et garantir, a minima, de ne pas casser son classeur. C'est pourquoi, sauf cas spécial qu'il faudra m'expliquer, il faut travailler avec les tableaux structurés, surtout avec XL2016!

Citation:

---

... Il fait comment pour:

1. comprendre ce qui vient de se passer;:calim2::help:
2. réparer les dégâts;:tutoriel:
3. adapter le code;:arf::toutcasse:...

---

:ptdr::ptdr::ptdr:

non pour etre serieux rien ne vaut l'enregistreur de macros suivi d'une adaption du code pour le rendre generique

Je ne comprendrai jamais que l'on conseille à un novice d'utiliser l'enregistreur puis d'adapter son code.

Après, lorsqu'il viendra avec du code utilisant plein de select dans tous sens, il s'entendra dire que ce n'est pas comme ça qu'il faut faire...

Quant à rendre générique du code pissé avec l'enregistreur, surtout pour un novice, je n'imagine même pas.

C'est désespérant, parfois... :cry:

Je confirme en partie. L'enregitreur de macro j'ai vite abandonné.

mais je ne veux pas que mon sujet devienne un débat sur la manière de faire. je pense que vu ce que j'attends, il y a plein de manières d'y arriver.
D'ailleurs, je me casse la tête depuis midi sur un autre sujet que je vais aller de suite vous expliquer dans un nouveau post.

Bertrand le novice de chez novice (un peu moins chaque jour à force).

Citation:

---

Envoyé par bert35

[...]

mais je ne veux pas que mon sujet devienne un débat sur la manière de faire[...]

---

Tracasse, Bertrand.
Ces joutes font partie de cette rubrique (malheureusement, devrais-je dire...).

Je ne saurais toutefois trop te conseiller de tester les codes qui te sont proposés sur des copies de classeur, tant il est évident que certaines solutions qui sont proposées sur les forums Office, et particulièrement sur le XL-VBA, ne sont ni testées, ni envisagées selon les conséquences, parfois désastreuses, qu'elles vont avoir sur le classeur.

C'est le problème du novice. Il voit plein d'étoiles dorées, un titre ronflant, et il pense, parfois à tort, que la réponse est pertinente... Quand je te dis que c'est parfois désespérant, ... et d'être prudent.

@pierre
la premiere adaptation d'un code enregistré c'est bien de supprimer le select et rien de plus facile avec le code généré par l'enrgistreur dans cet exercice

Laisse tomber Patrick,

Essaie simplement de te mettre à la place du novice qui doit adapter du code dont il ne comprend à peu près que dalle. C'est "peut-être" simple pour toi, mais je doute que ce soit si évident pour qui plonge dans du code pour la première fois ou presque.


Je combattrai toujours l'idée de faire apprendre le code VBA par l'enregistreur de macros, et je doute qu'il soit aisé de rendre générique du code pondu par l'enregistreur de macros, et même de simplement supprimer les Select, surtout pour un novice. Mais bon, chacun son avis, et finalement, tant mieux pour moi, ça me donne l'occasion de donner des formations à des gens qui en ont marre de l'enregistreur, et ça me donne du boulot pour automatiser les tâches Excel pour des gens dont ce n'est pas le métier...

Donc oui, je devrais être content de lire des inepties pareilles, elle me donnent la possibilité de payer mon Carrefour et mes vacances.

re
@pierre
si pour un debutant ou presque le code généré est inbuvable imagine alors ce que que ton code dans ton billet peut etre
plus serieusement quand on s'attaque aux macros, il faut commencer par le debut avant de s'attaquer a ce genre d'exercice
sinon oui comme tu dis le faire faire par quelqu'un de plus competent voir (dont c'est le metier)
mais ca ne serait plus un forum d'entraide alors ce serait DVP code cle main.com