découper une colonne horizontale

[nayrous]

Bonjour le forum,
Je souhaiterais avec une macro diviser horizontalement en 2 ou 3 ou 4 colonnes selon le nombre au retour à la ligne.
je vous joins d'un fichier exemple.
j'ai besoin d'une piste ou conseil
merci d'avance .
Cordialement,

 

[youky(BJ)]

Re : découper une colonne horizontale

Bonjour,
Voici le fichier avec un bouton et une macro.
Il te faut donc activer les macros à l'ouverture dans le bouton "Option"
Ne pas recliquer sur le bouton sans effacer ce qui a été fait
Bonne suite
Bruno

 

[nayrous]

Re : découper une colonne horizontale

Merci Bruno de votre aide 😀

 

[nayrous]

Re : découper une colonne horizontale

désolée, je pas précisée que j'ai plus de 30000 lignes

 

[youky(BJ)]

Re : découper une colonne horizontale

Re,
Cela marche aussi, bon j'ai modifié pour copier en Feuil2 les données.
Lance la macro "recopy"
Bruno

 

[nayrous]

Re : découper une colonne horizontale

Merci Bruno et je vous en suis reconnaissante 😀
le code est bien fonctionnel sur 2 lignes uniquement, quand j'ajouterai plus l'erreur suivante sera affichée:
.Cells(lig, 3).Value = T2(k) : l'indice suivante n'appartient pas à la sélection

 

[youky(BJ)]

Re : découper une colonne horizontale

Bonjour nayrous,
J'ai rectifié la macro en conséquence.
Bruno

Sub recopy()
With Feuil2
.Cells.ClearContents
lig = 2
.Range("A1:D1").Value = Range("A1:D1").Value
For lg = 2 To [A65536].End(3).Row
.Cells(lig, 1).Value = Cells(lg, 1).Value
 .Cells(lig, 4).Value = Cells(lg, 4).Value
T1 = Split(Cells(lg, 2), Chr(10))
T2 = Split(Cells(lg, 3), Chr(10))
n = UBound(T1) + 1
.Cells(lig, 2).Resize(n) = Application.Transpose(T1)
.Cells(lig, 3) = Application.Transpose(T2)
lig = IIf(n = 1, lig + 1, lig + n - 1)
Next
.Cells.RowHeight = 15
.Select
End With
End Sub

PS je viens de voir que j'ai oublié Resize à
.Cells(lig, 3) = Application.Transpose(T2)
donc il faut...
.Cells(lig, 3).Resize(n)= Application.Transpose(T2)
Désolé

 

[nayrous]

Re : découper une colonne horizontale

1000 merci 😀

 

[nayrous]

Re : découper une colonne horizontale

bonjour le forum,
j'ai vraiment besoin de votre aide (avec plusieurs tentative de résoudre ce problème) dans le même cadre du sujet 😕
le programme est bien fonctionnel mais le problème par exemple j'ai un "fabriquant" et je dois l'affecter un code
la ligne ne sera pas affichée
je vous poste ce fichier ci-dessus pour mieux vous expliquer:
merci de votre aide

 

[youky(BJ)]

Re : découper une colonne horizontale

Bonjour à nouveau nayrous,
Je pense que cette fois tout est bon dans tous les cas de figure.
Bon essais
Bruno

 

[nayrous]

Re : découper une colonne horizontale

ouii impeccable, c'est magique mille fois mercii 😀