XL 2016 Séparer des valeurs qui sont dans la même colonne

[Nicolasz]

Bonjour à toutes et à tous,

Sur Excel 2016 je souhaite séparer deux paramètres en deux colonnes différentes.
En effet, vous verrez dans le document excel ci-joint que j'ai 6 paramètres différents en 3 colonnes et je souhaiterai les mettre en 6 colonnes différentes.
Comment puis-je faire cette macro ?

 

[sylvanu]

Bonjour Nicolasz,
Vous auriez pu faire l'effort de donner un aperçu de l'attendu.

C'est ça que vous attendez :

 

[Nicolasz]

Bonjour @sylvanu,
Excusez-moi, je ferais attention les prochaines fois à mettre un rendu.
Oui c’est ça l’attendu que j’aimerai

 

[sylvanu]

Re,
Un essai en PJ avec :

Sub Tranfert()
    Application.ScreenUpdating = False
    DL = [A65500].End(xlUp).Row
    T = Range("A6:C" & 1 + DL): Taille = Int(1 + UBound(T) / 2)
    ReDim TS(Taille, 5): Ind = 0
    For L = 1 To UBound(T) Step 2
        TS(Ind, 0) = T(L, 1): TS(Ind, 1) = T(L + 1, 1)
        TS(Ind, 2) = T(L, 2): TS(Ind, 3) = T(L + 1, 2)
        TS(Ind, 4) = T(L, 3): TS(Ind, 5) = T(L + 1, 3)
        Ind = Ind + 1
    Next L
    With Sheets("Résultat").[A3:F65000]
        .ClearContents: .Borders.LineStyle = xlNone
    End With
    With Sheets("Résultat")
        .[A3].Resize(UBound(TS, 1), 1 + UBound(TS, 2)) = TS
        .Range("A1:F" & .[A65500].End(xlUp).Row).Borders.Weight = xlThin
        .Select
    End With
End Sub

Le rendu est dans la feuille Résultat.

 

[Nicolasz]

Bonjour @sylvanu,

Je viens de tester ton essai dans ma feuille excel et malheureusement ça marche moins bien. Le débogeur me dit que j'ai une erreur avec "TS(Ind, 1) = T(L + 1, 1)" qui me dit que "l'indice n'appartient pas à la sélection". Que dois-je faire ?

 

[sylvanu]

Bonjour,
Pouvez vous envoyez votre feuille de test en l'anonymisant car avec le fichier chez moi ça marche.

 

[Nicolasz]

Bonjour,
Pouvez vous envoyez votre feuille de test en l'anonymisant car avec le fichier chez moi ça marche.

Vous trouverez ci-joint le fichier excel

 

[sylvanu]

Bonjour,
Il manquait un "+1" dans la taille du tableau.
Par contre, je ne comprends pas, votre feuille n'a absolument plus rien à voir avec la précédente.
En plus il y a des "vides" partout.
La macro actuelle prends les colonnes A:C en compte. Quel est le but ?

 

[Nicolasz]

Mon vrai fichier excel à analyser est comme ça. Parfois tout va bien et les paramètres sont chacun dans leur colonne avec des vides.
Les vides sont de partout sur mon vrai fichier.
Par conséquent, mon objectif est donc de séparer quand les paramètres sont superposés les uns sur les autres afin de pouvoir étudier chaque paramètre distinctement.
Les colonnes concernées sont souvent de F à H. (Power, Thick et rate se superposent avec Ano-V, Ano-C et Neutral-C) @sylvanu

 

[sylvanu]

En d'autres termes, il faut refaire, tout recommencer, et regarder s'il y a des paramètres superposés ou non, etc,etc...
et bien sur comme au post #1 sans l'attendu.
Je n'ai pas envie de tout refaire, vous avez la structure dans ma première PJ, adaptez la.

 

[Nicolasz]

Vous avez un attendu dans le fichier excel founi.

 

[sylvanu]

Désolé. Mais je n'ai nulle envie de tout refaire.

Je n'ai pas envie de tout refaire, vous avez la structure dans ma première PJ, adaptez la.

 

[Nicolasz]

Désolé. Mais je n'ai nulle envie de tout refaire.

Je comprends, ne vous inquiétez pas. En revanche, savez-vous comment je peux avoir les en-têtes avec le nom de mes paramètres. Car lorsque je copie la macro je n'ai que les valeurs numériques cependant je n'arrive pas à déterminer qui est qui.

 

[sylvanu]

Dans la première PJ les titres et unités étaient mises à la main dans la feuille Résultat puisque c'étaient des constantes.

 

[Nicolasz]

Dans la première PJ les titres et unités étaient mises à la main dans la feuille Résultat puisque c'étaient des constantes.

Okay je vous remercie pour l'information.
J'ai essayé de faire marcher votre macro mais lorsque je l'applique des valeurs aléatoires apparaissent je ne comprends pas ...
Et je suis en incapacité de joindre le fichier excel car trop volumineux.
Je vous remercie pour le temps que vous m'avez consacré.