découper une colonne horizontale

youky(BJ)

XLDnaute Barbatruc

• 24 Juillet 2012

• #2

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

 

Pièces jointes

• exemple.xlsm

  21.7 KB · Affichages: 41
• exemple.xlsm

  21.7 KB · Affichages: 43
• exemple.xlsm

  21.7 KB · Affichages: 42

Vote positif 0 Vote négatif

N

nayrous

Guest

• 24 Juillet 2012

• #3

Re : découper une colonne horizontale

Merci Bruno de votre aide 😀

 

Vote positif 0 Vote négatif

N

nayrous

Guest

• 24 Juillet 2012

• #4

Re : découper une colonne horizontale

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 24 Juillet 2012

• #5

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

 

Pièces jointes

• exemple.xlsm

  18.7 KB · Affichages: 37
• exemple.xlsm

  18.7 KB · Affichages: 39
• exemple.xlsm

  18.7 KB · Affichages: 40

Vote positif 0 Vote négatif

N

nayrous

Guest

• 26 Juillet 2012

• #6

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Juillet 2012

• #7

Re : découper une colonne horizontale

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

Code:

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é

 

Pièces jointes

• exemple.xlsm

  20.6 KB · Affichages: 55
• exemple.xlsm

  20.6 KB · Affichages: 60
• exemple.xlsm

  20.6 KB · Affichages: 55

Dernière édition: 26 Juillet 2012

Vote positif 0 Vote négatif

N

nayrous

Guest

• 26 Juillet 2012

• #8

Re : découper une colonne horizontale

1000 merci 😀

 

Vote positif 0 Vote négatif

N

nayrous

Guest

• 31 Juillet 2012

• #9

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

 

Pièces jointes

• exemple (1).xlsm

  18.5 KB · Affichages: 33
• exemple (1).xlsm

  18.5 KB · Affichages: 43
• exemple (1).xlsm

  18.5 KB · Affichages: 39

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 31 Juillet 2012

• #10

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

 

Pièces jointes

• exemple (1).xlsm

  19.4 KB · Affichages: 42
• exemple (1).xlsm

  19.4 KB · Affichages: 46
• exemple (1).xlsm

  19.4 KB · Affichages: 45

Vote positif 0 Vote négatif

N

nayrous

Guest

• 31 Juillet 2012

• #11

Re : découper une colonne horizontale

ouii impeccable, c'est magique mille fois mercii 😀

 

Vote positif 0 Vote négatif