Permutation de colonnes

**bert35** · 04/09/2018, 16h24

Bonjour,

Alors tout d'abord, je me permets de vous dire que je suis un novice complet en VBA. mais je souhaite me lancer dans ce beau monde.
J'ai dans l'idée de créér une macro permettant de mettre en forme un fichier excel issu d'un appareil de mesure pour le mettre dans une mise en forme
En gros, je souhaiterai supprimer quelques lignes de ce fichier (les 10 premières), supprimer la première colonne, et ensuite intervertir 'ordre des colonnes.
J'ai fait une première approche en utilisant la commande d'enregistrement d'une macro, mais je suis vite limité.
Mes appareils de mesures en questions sont des enregistreurs de températures et d'humidité de l'air et suivant le nombre de voies de mesures actives, j'aurais plus ou moins de colonnes. Au max, avec ce type d'appareils, j'ai 4 voies des mesures qui sont présentent sur les colonnes allant de C à F.
Et suivant la durée de mes acquisitions, le nombre de points de mesures (donc de lignes) varie.
Donc mes questions qui me viennent en tête en écrivant:
- comment sélectionner une colonne jusqu'à la dernière valeur présente?
- si je veux permuter les colonnes C avec D et E avec F, comment faire?

En vous remerciant de votre précieuse aide.

Bertrand

**patricktoulon** · 04/09/2018, 16h33

re
bonjour l'enregistreur de macro ca te parle?

fait avec l'enregistreur de macroS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro3()
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("G:G").Select
    Selection.Cut Destination:=Columns("E:E")
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Cut Destination:=Columns("E:E")
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
End Sub

a noter que tu peux netoyer le code de tout les select

**bert35** · 04/09/2018, 16h37

Bonjour Patrick,
Merci pour ta réponse. oui, cela me parle.
j'ai essayé un peu, cela marche dans le cas d'un fichier.
malheureusement mes fichiers n'ont pas tous le même nombre de lignes ou de colonnes, donc ma macro créée avec l'enregistreur ne marche plus.

**Menhir** · 04/09/2018, 16h40

Envoyé par bert35

je souhaiterai supprimer quelques lignes de ce fichier (les 10 premières)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:A10").EntireRow.Delete

supprimer la première colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A").Delete

et ensuite intervertir 'ordre des colonnes.

Pas assez précis comme description.

- comment sélectionner une colonne jusqu'à la dernière valeur présente?

Le plus simple est de sélectionner la colonne elle-même.

- si je veux permuter les colonnes C avec D et E avec F, comment faire?

Couper la colonne D et l'insérer en colonne C.
Idem pour E et F.
https://msdn.microsoft.com/fr-fr/lib.../ff838374.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff840310.aspx

**patricktoulon** · 04/09/2018, 16h42

Envoyé par bert35

Bonjour Patrick,
Merci pour ta réponse. oui, cela me parle.
j'ai essayé un peu, cela marche dans le cas d'un fichier.
malheureusement mes fichiers n'ont pas tous le même nombre de lignes ou de colonnes, donc ma macro créée avec l'enregistreur ne marche plus.

???????

regarde ma reponse je l'ai rééditée

**patricktoulon** · 04/09/2018, 16h50

le code nétoyé ca donne ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro3()
    Application.ScreenUpdating = False
    Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("G:G").Cut Destination:=Columns("E:E")
    Columns("G:G").Delete Shift:=xlToLeft
    Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Cut Destination:=Columns("E:E")
    Columns("C:C").Delete Shift:=xlToLeft
End Sub

**bert35** · 04/09/2018, 17h07

Merci Menhir et Patrick

J'ai testé le code de Patrick, cela semble me correspondre. Un grand merci.
1 question cependant:
- la ligne Application.ScreenUpdating, c'est quoi au juste?

**patricktoulon** · 04/09/2018, 18h00

re
c'est pour ne pas voir a l'ecran ce que tu fait pendant que tu le fait
bloque cette ligne et regarde l'es effets sur le sheet tu comprendra tout seul

**78chris** · 04/09/2018, 19h05

Bonjour

Envoyé par bert35

...
- la ligne Application.ScreenUpdating, c'est quoi au juste?

F1

Avec 2016 il y a aussi de solutions PowerQuery (intégré à 2016) plutôt que VBA

**patricktoulon** · 04/09/2018, 19h52

re
bonjour 78chris
pour ma part n'utilisant 2016 qu'a l'occasion comme beaucoup encore je supose, il me semble un peu tot pour proposer powerquery

**78chris** · 04/09/2018, 20h32

Re

Envoyé par patricktoulon

re
bonjour 78chris
pour ma part n'utilisant 2016 qu'a l'occasion comme beaucoup encore je supose, il me semble un peu tot pour proposer powerquery

Le demandeur semblant néophyte en VBA, et ayant 2016, j'ai pensé utile de le signaler

Je teste de plus en plus de solutions avec PQ.

Sur certains cas, on gagne pas mal de lignes de codes avec PQ ... et cela de façon très simple

Je viens de tester sur un cas un peu plus tordu, et surtout très volumineux : le temps de traitement reste meilleur en VBA (j'ai tout traité en array()) mais la solution PQ reste intéressante.
Je ne suis pas spécialiste de PQ mais en découvre de plus en plus les possibilités notamment pour manipuler des tables...

**RyuAutodidacte** · 05/09/2018, 00h20

Bonjour (maintenant bonsoir, pas eu le temps de finir mon post - urgence oblige),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Demo()
 Application.ScreenUpdating = False
    With Sheets(1).UsedRange
        VA = Application.Index(.Value, 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)) = VA
    End With
 Application.ScreenUpdating = True
End Sub

@78chris

il est toujours intéressant de proposer différents chemins pour résoudre un problème permettant : choix, mise en œuvre, simplicité, rapidité …
Cela permet d'apprendre et aussi de choisir une solution adéquate au problème et aussi au niveau vba du demandeur

Edit : petite modif.

**patricktoulon** · 05/09/2018, 09h54

re
bonjour
Bien vu ryu

tu repond en meme temps a une question que je me posais dans un autre sujet

mais je met l'accent sur ce que j'ai dit plus haut

je recois pas mal de fichiers avec powerquery ,ne l'ayant pas ces fichiers sont inutilisables pour moi comme beaucoup

**bert35** · 05/09/2018, 10h04

Merci à vous.
beaucoup d'exemples et de possibilités d'après ce que je vois.
Je vais essayer de continuer mon apprentissage. C'est super intéressant en tt cas.
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.
Je vais d'abord tâcher de progresser et faire évoluer/améliorer ma première macro

J'ai plein d'idées en tête, maintenant, il va falloir que j'arrive à les expliquer et les mettre en code.
Et là, ce n'est pas gagné.
Vous risquez souvent de voir des sujets créés par ma pomme !!

Merci

Bertrand

**RyuAutodidacte** · 05/09/2018, 10h27

Coucou Patrick,

Envoyé par patricktoulon

je recois pas mal de fichiers avec powerquery ,ne l'ayant pas ces fichiers sont inutilisables pour moi comme beaucoup

Tu as raison là dessus, tout le monde ne l'a pas, par contre cela ne pose pas de problème quand l'utilisation reste pour soit ou dans une organisation pré-établie …

**patricktoulon** · 05/09/2018, 10h55

re
il serait bien aussi de preciser que:
si j'ai choisi le deplacement de colonne plutot qu'une variable tableau c'est pour le cas ou il y aurait des formules
en deplacants les colonne les formules se mettent a jour avec une variable tableau c'est cuit

**Pierre Fauconnier** · 05/09/2018, 11h28

Salut.

Pour la permutation de colonnes dans un tableau structuré, je propose une solution sur mon blog. Cette solution est générique et ne demande que très peu de connaissances en VBA pour être mise ne place.

Je peux rejoindre Chris avec une solution par PowerQuery car c'est simple à mettre en place, mais il faut garder à l'esprit qu'elle fait une copie du tableau initial dans le cache de PQ puis rend à nouveau les valeurs adaptées dans une nouvelle feuille(si je ne dis pas de bêtises, Chris, corrige-moi au passage si j'étais dans l'erreur)... Ca fait trois fois les valeurs dans le classeur. Ce n'est pas à négliger pour un grand tableau.

**patricktoulon** · 05/09/2018, 11h43

Bonjour Pierre

je t' ai justement proposé une petite fonction sur la base de l'idée de ryuautodidacte dans ton billet
tout depends de ce que qu'il y a dans les cellules formules ou value