Discussion :

[bert35]

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]

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]

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.

[patricktoulon]

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]

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]

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?

[Pierre Fauconnier]

Patrick,


Un code comme celui que je propose, et comme beaucoup d'autres, parce qu'il est générique, s'utilise en une ligne par un novice, parce qu'il est générique justement, et qu'il demande au novice de le copier-coller puis de l'utiliser selon les commentaires qui sont fournis avec. Sa seule responsabilité, en ce qui concerne un code générique, consiste à savoir le copier-coller puis l'utiliser en passant, dans le cas du mien par exemple, les noms des colonnes dans le bon ordre et sans fautes d'orthographe. C'est une surcouche qu'il peut utiliser comme une procéudere native de VBA ou du modèle objet d'Excel.

On ne lui demande pas de comprendre ce code, dans un premier temps, il est juste proposé comme solution directement exploitable. Et comme il est générique, ce n'est justement pas grave s'il n'en comprend pas toutes les lignes.

Si tu lui donnes un code "adapté" à son cas, comme ici, et qui flingue son classeur en bousillant ses formules, ses formats et tout le reste, tu l'aides nettement moins que si tu lui donnes un code auquel il doit simplement passer des paramètres.

Est-ce si difficile de comprendre cela?

[patricktoulon]

Est-ce si difficile de comprendre cela?

non pas du tout
c'est bien ce que je dis faire faire par quelqu'un

c'est tout a ton honneur de fournir un code clé en main gratuitement mais ne me dit pas que ca aide un debutant c'est pas vrai , ca lui fait le boulot c'est tout
ne sachant pas decortiquer un code simple généré ,tu crois qu'il va s'amuser a decortiquer le tiens serieusement ?
et combien meme il tenterais l'aventure ce serait apprendre a voler en f15 avant de savoir faire du velo
mais bon si tu veux ta fonction fonctionne il a plus qu'a

[RyuAutodidacte]

Tout à fait d'accord avec l'intervention de @Menhir

Vu la présentation de @Bert35, j'ai pas l'impression qu'il y a une quelconque mise en forme ou des formules …, mais simplement des données brutes à retravailler afin de faire par la suite une mise en forme finale avec tout ce qui s'en suit. De toute façon il y a que lui qui peut nous le préciser.

Maintenant il est là pour apprendre, et il peut se rendre compte que selon le contexte de sa problématique, il devra bien faire attention à bien choisir la solution la plus adéquate à son problème …

[Menhir]

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

[Pierre Fauconnier]

Loïc,

Ca fait vingt ans que j'enseigne Excel et VBA. Je peux t'affirmer que, selon mon expérience, l'enregistreur ne met pas le novice sur la voie. Au pire cela le décourage, au mieux il va s'exténuer des flopées d'heures à essayer de comprendre pourquoi son code ne fonctionne pas, détruit ses données, plante Excel.

L'enregistreur, ça "aide" soit le gars qui connaît le VBA mais qui ne se souvient plus d'une manip (pour autant que la manip soit réalisable avec l'enregistreur), soit la personne qui a des soirées et des weekends à perdre et qui s'accroche, et ça décourage les autres...

L'enregistreur, c'est: pas de variables, pas de boucles (donc du code bêtement répétifif), au début pas de Option Explicit, donc des problèmes de faute de frappe qu'on met des heures à déboguer, etc, etc...

Voilà une plage qui se trouve sur la feuille nommée en Excel Feuil1...



Voici le code de l'enregistreur qui en permute des colonnes.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro6()
'
' Macro6 Macro
'
 
'
    Sheets("Feuil1").Select
    Range("C1:C3").Select
    Selection.Cut
    Range("A1:A3").Select
    Selection.Insert Shift:=xlToRight
    Range("C1:C3").Select
    Selection.Cut
    Range("B1:B3").Select
    Selection.Insert Shift:=xlToRight
End Sub

Essayez de faire l'exercice intellectuel de rendre cette macro générique pour réorganiser n'importe quel tableau (en faisant abstraction de vos connaissances actuelles du VBA). Par exemple, de manière à permuter le tableau suivant se trouvant sur une feuille nommée en Excel Consolidation pour réorganiser les colonnes selon l'ordre Code - Prénom - Nom - Grade - Service - Date.



Alors, il suffit de supprimer les Select comme le propose Patrick? Je pense que c'est un poil plus complexe.
Il suffit d'appliquer la macro de Ryu en la transformant mal parce que pas commentée? J'ai fait la démonstration que non (ce n'est pas une attaque perso, Ryu, c'est un constat technique).

Les gens qui viennent sur XL-VBA ne sont ni des programmeurs, ni des passionnés, pour la plupart. Alors leur donner un code qui plante leur fichier et qui va finalement les aider (peut-être!) après une discussion de 50 postes avec des renvois non commentés vers l'aide en ligne, je doute franchement que ça les aide. Beaucoup d'utilisateurs du forum VBA-XL posent des questions non pour apprendre le VBA, mais pour avoir une solution, la plus pertinente possible, à leur problématique du moment, souvent dans l'urgence d'un fichier qui plante alors que ce n'est pas le moment. Leur donner une solution qui plante va les aider? Je pense que non. C'est comme quand on répond à quelqu'un qui se risque à FSO que FSO, c'est de la mer***, c'est lourd, beurk, et qu'on lui balance une api ou un DIR récursif. Qu'Est-ce qu'il s'en fout que FSO soit lourd... Dans 99% des cas, ça fait le job souhaité. Dans la plupart des cas, nous de répondons pas à des programmeurs, juste à des utilisateurs d'Excel pour qui l'application et le VBA sont des outils, dont beaucoup se passeraient volontiers s'ils le pouvaient, et qui n'ont pas toujours la possibilité de faire appel à des prestataires externes (ce que je regrette ). Et contrairement à ce que dit Ryu, non, les gens qui posent des questions sur le forum ne sont pas forcément là pour apprendre, et encore moins avec des codes foireux!

Et d'ailleurs, Patrick, lorsque tu tentes de proposer du code dans la rubrique Contribuez, que fais-tu d'autre que de proposer du code générique? C'est une attitude pour le moins paradoxale de tenter de proposer du code générique puis de diSi on suit vos raisonnements (adapter, apprendre, ...), supprimons la rubrique Contribuez et supprimons les sources proposées sur le portail Excel, puisque c'est si simple d'adapter le code proposé en réponse à une question... . Honnêtement, je ne vous comprends pas.


Et pour finir, je me fous que des solutions différentes des miennes soient proposées, ou plutôt non, je trouve ça très chouette, comme le souligne souvent Ryu. Mais faut-il encore qu'elles fonctionnent et qu'elles ne foutent pas la pagaille au lieu de proposer une solution...

[RyuAutodidacte]

Et contrairement à ce que dit Ryu, non, les gens qui posent des questions sur le forum ne sont pas forcément là pour apprendre,

Rectification : je n'ai pas dit les gens , j'ai parlé de demandeur @bert35 qui à l'air bien motivé pour s'améliorer et donc apprendre, et d'ailleurs il prévoit de créer beaucoup de discussion, d'après ce que j'ai compris.

Dans le cas de simple données en Value, tu as raison cela doit être un code foireux, que Marc-L m'a appris et qui est cité plusieurs fois pour diverses solutions.

Maintenant on a fait une polémique sur le code prenant en compte des formules, dont j'ai montré un cas simple et qui marche, mais en aucun cas j'ai dit que l'on pouvait le généralisé à tout;
et comme tous codes/solutions, ils ont tous à un moment une limite qui fait que l'on doit revoir/étudier la problématique sur certains aspect afin d'éviter des déboires.

[Pierre Fauconnier]

[...]

Dans le cas de simple données en Value, tu as raison cela doit être un code foireux, que Marc-L m'a appris et qui est cité plusieurs fois pour diverses solutions.[...]

Ca me plairait grandement que tu cites les portions de message ou je dis que le code est foireux pour des Value, car je dis explicitement qu'il ne fonctionne par pour les formules, les formats, la mise en forme conditionnelle.

Mais qu'il soit pondu par marc-l, le pape ou jupiter, je m'en moque. Il transforme les dates en texte (et donc oui, il est foireux pour des Value, en fait) et il ne fonctionne que dans le cas précis d'une feuille libre de tout autre donnée que celles à permuter, et en les faisant commencer en A1. Et oui, il va demander des transformations importantes pour pouvoir être utilisé hors de ce cas précis et restrictif. On ne peut donc pas dire que ce soit un code mirobolant.

[...]Maintenant on a fait une polémique sur le code prenant en compte des formules, dont j'ai montré un cas simple et qui marche[...]

Je t'ai démontré avec une simple formule toute bête que ton code foire avec des formules.

[...]
mais en aucun cas j'ai dit que l'on pouvait le généralisé à tout;
et comme tous codes/solutions, ils ont tous à un moment une limite qui fait que l'on doit revoir/étudier la problématique sur certains aspect afin d'éviter des déboires.

Jusqu'à preuve du contraire, mon code fonctionne dans tous les cas que j'ai soulevé, et peut être adapté facilement pour les tableaux qui ne sont pas structurés, sans casser les formules, sans casser les formats, sans casser les mises en forme conditionnelles, sans casser les formules qui sont ailleurs dans le classeur et qui pointent vers ce qu'on est en train de permuter. A chacun de l'essayer s'il le souhaite, et d'y apporter des améliorations (il y en a sûrement) dans un esprit constructif. Mais s'arcbouter sur une solution foireuse ne me semble pas raisonnable... L'améliorer, la tienne, la mienne ou une autre, me semble bien plus constructif sur un forum

[RyuAutodidacte]

je vais arrêter là la discussion car je pense que l'on ne se comprend pas et j'ai pas envie de rentrer dans un débat ou je parle pas de la même chose que toi et pas dans les mêmes conditions données/codes

et oui je confirme tu n'as pas dit le mot foireux, c'est moi qui l'ai dit pour la simple raison que tu insistes sur ce code en disant qui ne marche pas pour tel ou tel raisons,
alors que ce code là je l'utilise mais pas dans les même conditions que tu décris, et il n'a pas vocation à tout faire et ça je le sais.
Maintenant je n'ai pas cherché la perfection du code à tout faire, mais juste à répondre au besoin du demandeur (qui je pense pour l'instant n'a rien fait sur son fichier au niveau mise en forme, formule, etc …)

Je clos maintenant la discussion

PS : j'ai pas critiqué ton code qui peut apporter une solution à des forumeurs, et non ce n'est pas une attaque perso de ma part aussi, je pense juste que tu n'as pas compris je que je voulais expliquer …
Tant pis c'est pas grave on peut pas forcément se comprendre tout le temps

[patricktoulon]

re
@pierre
j'ai fait joujou avec ce truc

ebauche qui fonctionne facilement transformable en fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
[Sub test()
    mestitre = Array("titre4", "titre2", "titre3", "titre1")
    Set plage = Range("A1:D10")
    With plage
        For arr = 0 To UBound(mestitre) - 1
            For i = 1 To .Columns.Count + .Column - 1
                If Cells(1, i) = mestitre(arr) Then
                    Cells(1, i).Resize(.Rows.Count, 1).Cut
                    If mestitre(arr) <> .Cells(1, (arr + 1) + .Column - 1) Then Cells(1, arr + 1).Resize(.Rows.Count, 1).Insert Shift:=xlToRight
                End If
            Next
        Next
    End With
    Application.CutCopyMode = False
End Sub

je n'ai suivi que le raisonnement de ta macro 6 que j'ai etendu a x colonnes en fonction de l'array des titres


qu'est ce que tu en pense ?
je pense meme que l'on peut la racourcir d'une ligne ou 2 en mergeant les "IF"

Bon je l'avoue j'ai mis pres de 20 minute a comprendre pourquoi j'avais une erreur sur la derniere colonne i
il faut pas la faire c'est tout car elle est forcement a la place indiqué par l'array

[Pierre Fauconnier]

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]

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

[Pierre Fauconnier]

[...]

je t' ai justement proposé une petite fonction sur la base de l'idée de ryuautodidacte dans ton billet[...]

Oui, j'ai vu

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

PowerQuery est disponible en AddIn depuis XL2010

[RyuAutodidacte]

Re Patrick,

Moi je vais rester sur ma "version" même dans le cas de formules
devine pourquoi …

[patricktoulon]

re
@ryu

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