Copie celule verticalment

[ssassam]

Bonjour Forum,

Svp j'ai besoin d'aide,

Je souhaite recopie les cellule de [A1] a [GA12] l'une après l'autre comme ça :
Colone A Colone B Colone C
Ligne 1 01/01/2014 00.00 chq xxxxx
Ligne 2 01/01/2014 00.00 chq xxxxx
Ligne 3 01/01/2014 00.00 chq xxxxx
Ligne 4 01/01/2014 00.00 chq xxxxx
...


Merci
Mon fichier est ci*joint merci d'avance mes cher amis.

 

[Guest]

Re : Copie celule verticalment AIDE !!

Bonjour,

Une petite macro:

Sub truc()
Dim i As Long
For i = 4 To Range("A1:Ga1").Columns.Count Step 3
     Cells(1, i).Resize(12, 3).Copy Cells(Rows.Count, 1).End(xlUp)(2)
Next i
Range("D1:GA1").EntireColumn.Delete
End Sub

A+

 

[ssassam]

Re : Copie celule verticalment AIDE !!

Problème a 15h01 résolu a 15h14
Meeeeeeeeeeeeeeeeeeeeeeeeeeeeeeerci et si je demande 1 Million d'€URO

 

[Guest]

Re : Copie celule verticalment AIDE !!

Re,

Attends la facture.

P.S. ce n'est pas la peine de mettre AIDE dans le titre de ton message, tout le monde sait que les demandeurs sont là pour une aide.

Lire la charte.
A+

 

[ssassam]

Re : Copie celule verticalment

Merci c'est réctifié ,

Stp j'ai un nouveau souci avec on fichier source puis ce q'il comprend des fusion (Source ci-joint)
j'aimerais avoir svp le même résultat si c'est possible . Merci beaucoup.

 

[Guest]

Re : Copie celule verticalment

Bonjour,

Le classeur ne correspond pas du tout à l'exemple du post# 1.

J'ai répondu à la demande en fonction des éléments fournis.

A toi d'adapter.

A+

 

[ssassam]

Re : Copie celule verticalment

J'ai tout fait mais je ne peux pas