VBA Scinder un colonne en plusieurs colonnes à la suite

Bonjour à tous,

J'aimerai pouvoir scinder en VBA 2 longues colonnes en plusieurs colonnes à la suite.

pour l'exemple ci-dessous j'ai volontairement réduit le jeu de données.

Ci-dessous ma première colonne importer d'un fichier .txt

Colonne A

Spectrum 1.

Drift field intensity: 536.161 [V/cm]

19.53881 0.012

18.78732 -0.032

18.09149 0.019

17.44537 -0.039

16.84380 -0.002

Spectrum 2.

Drift field intensity: 536.161 [V/cm]

19.53881 0.012

18.78732 -0.032

18.09149 0.019

17.44537 -0.039

16.84380 -0.002

Spectrum 3.

Drift field intensity: 536.161 [V/cm]

19.53881 0.012

18.78732 -0.032

18.09149 0.019

17.44537 -0.039

16.84380 -0.002

Ci-joint le résultat à obtenir.

Qui peut m'aider?

Merci

Jordane

solution
3classeur1.xlsx (205.76 Ko)

Bonsoir,

Il manque pas mal d'infos sur ton fichier.

  • Est ce que la première ligne de chaque colonne sera toujours "Spectrum.x ?
  • pour la 2° ligne qu'est ce qui va changer? (dans ton exemple, on a toujours la même donnée)
  • pour les lignes suivantes, c'est un espace qui va servir à déterminer le changement de colonne ?
  • Aura-t-on toujours 7 lignes à l'arrivée ?

-Si c'est un fichier importé, le plus simple serait d'en fournir quelques lignes, qui représenteraient toutes les configurations possibles.

Sans ces précisions et le fichier, difficile de tenter quelque chose.

Cordialement

Bonjour et bienvenue sur le forum

Bonjour à tous

Un essai à tester, si j'ai bien compris. Te convient-il ?

Bye !

6classeur1-v1.xlsm (221.01 Ko)

Bonsoir,

Il manque pas mal d'infos sur ton fichier.

  • Est ce que la première ligne de chaque colonne sera toujours "Spectrum.x ? Oui ça sera toujours comme ça.
  • pour la 2° ligne qu'est ce qui va changer? (dans ton exemple, on a toujours la même donnée) la valeur va changer
  • pour les lignes suivantes, c'est un espace qui va servir à déterminer le changement de colonne ? oui c'est un espace
  • Aura-t-on toujours 7 lignes à l'arrivée ? oui toujours 7 lignes d'information et ensuite 766 lignes de données.

-Si c'est un fichier importé, le plus simple serait d'en fournir quelques lignes, qui représenteraient toutes les configurations possibles. Je peux te joindre le fichier .txt importé.

Sans ces précisions et le fichier, difficile de tenter quelque chose.

Cordialement

Merci pour ton aide

Jordane

Bonjour à tous

Nouvelle version.

Bye !

5classeur1-v2.xlsm (221.76 Ko)

Bonjour,

Une autre proposition.

Un peu de Kiri, de VBA.

Je n'ai pas fait de mise en page !...

Cdlt.

5jordanep.xlsm (31.80 Ko)

Bonjour,

Une autre proposition.

Un peu de Kiri, de VBA.

Je n'ai pas fait de mise en page !...

Cdlt.

jordanep.xlsm

Quand je lance la macro il m'indique une erreur sur la ligne Set PT = PTCache.CreatePivotTable(wsPT.Cells(1), "TCD_1")

erreur

Re,

J'ai apporté une petite modification au fichier (pas réellement nécessaire).

Le fichier que tu as utilisé est bien le fichier que tu as joint ?

Je n'ai pas d'erreur chez moi.

Cdlt.

11jordanep.xlsm (31.65 Ko)

Re,

J'ai apporté une petite modification au fichier (pas réellement nécessaire).

Le fichier que tu as utilisé est bien le fichier que tu as joint ?

Je n'ai pas d'erreur chez moi.

Cdlt.

jordanep.xlsm

oui c'est le même fichier. il ne veut pas importer le fichier. J'ai pourtant indiqué le bon lien en A2.

C'est pas lié à la version d'excel?

Re,

Tu as bien Excel 2016 ?

Sinon, ré-envoie ton fichier txt.

Cdlt.

Re,

Tu as bien Excel 2016 ?

Sinon, ré-envoie ton fichier txt.

Cdlt.

Bonjour,

Oui j'ai bien excel 2016. je te remets le fichier .txt.

Merci

Bonjour,

Je n'ai pas d''erreur !...

Le fichier revu et finalisé avec quelques lignes en moins pour la taille de 1Mo.

Cdlt.

5jordanep.xlsm (0.98 Mo)

Bonjour,

Je n'ai pas d''erreur !...

Le fichier revu et finalisé avec quelques lignes en moins pour la taille de 1Mo.

Cdlt.

jordanep.xlsm

C'est étrange. Quand je lance la macro ça écrase la feuille import txt par une feuille vierge TCD avec le code erreur 1004.

Dans ton résultat, tu affiches les 2 premières lignes d'information mais pas les 7.

J'ai testé sur un autre PC avec excel 2010 et j'ai le même problème.

Merci,

Jordane

erreur1004

Bonjour,

Je n'ai pas d''erreur !...

Le fichier revu et finalisé avec quelques lignes en moins pour la taille de 1Mo.

Cdlt.

jordanep.xlsm

C'est étrange. Quand je lance la macro ça écrase la feuille import txt par une feuille vierge TCD avec le code erreur 1004.

Dans ton résultat, tu affiches les 2 premières lignes d'information mais pas les 7.

J'ai testé sur un autre PC avec excel 2010 et j'ai le même problème.

Fais-tu appel à un serveur SQL?

Tu dois avoir une version d'excel plus récente à excel 2016 c'est probablement pour ça que ça ne fonctionne pas.

Merci,

Jordane

Bonjour,

Dans le second fichier, tu as une procédure XXX. Exécute et redis moi !?

Public Sub XXX()
Dim cn As WorkbookConnection
    For Each cn In ThisWorkbook.Connections
        MsgBox cn.Name
    Next cn
End Sub

Bonjour,

Dans le second fichier, tu as une procédure XXX. Exécute et redis moi !?

Public Sub XXX()
Dim cn As WorkbookConnection
    For Each cn In ThisWorkbook.Connections
        MsgBox cn.Name
    Next cn
End Sub

Bonjour Jean-Eric,

Je n'ai pas retrouvé ce code dans le second fichier. J'ai récré un module avec la procédure XXX avec ton code ci-dessous puis exécuté. ça ouvre 3 fenêtres successifs :

Requête - Fichier_txt

Requête - fxPowerTrim

Requête - Import

Dans afficher les requêtes, il y a un avertissement sur la compatibilité des versions excel.

Jordane

requete

Re,

Aurais-tu la possibilité de faire un petit TeamViewer ?

Cdlt.

Rechercher des sujets similaires à "vba scinder colonne colonnes suite"