Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Nicolasz

XLDnaute Nouveau
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 ?
 

Pièces jointes

  • Test pour séparer valeurs.xlsx
    8.6 KB · Affichages: 9

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Un essai en PJ avec :
VB:
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.
 

Pièces jointes

  • Séparation valeurs.xlsm
    18.7 KB · Affichages: 4

Nicolasz

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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 ?
 

Pièces jointes

  • Test de séparation pour sylvanu.xlsm
    21.7 KB · Affichages: 2

Nicolasz

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Nouveau
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.
 

Pièces jointes

  • Sylvanu en tete.xlsx
    15.6 KB · Affichages: 1
Dernière édition:

Nicolasz

XLDnaute Nouveau
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é.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…