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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2022

• #2

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

C'est ça que vous attendez :

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 14 Octobre 2022

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Octobre 2022

• #4

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

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 17 Octobre 2022

• #5

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 ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Octobre 2022

• #6

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

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 17 Octobre 2022

• #7

sylvanu à dit:

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

Cliquez pour agrandir...

Vous trouverez ci-joint le fichier excel

 

Pièces jointes

• Test de séparation pour sylvanu.xlsx

  13.1 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Octobre 2022

• #8

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

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 17 Octobre 2022

• #9

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Octobre 2022

• #10

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.

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 17 Octobre 2022

• #11

Vous avez un attendu dans le fichier excel founi.

 

Pièces jointes

• Test de séparation pour sylvanu.xlsx

  15.6 KB · Affichages: 1

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Octobre 2022

• #12

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

sylvanu à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 17 Octobre 2022

• #13

sylvanu à dit:

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

Cliquez pour agrandir...

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: 17 Octobre 2022

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Octobre 2022

• #14

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

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 17 Octobre 2022

• #15

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif