Copie celule verticalment

G

Guest

Guest

• 17 Avril 2014

• #2

Re : Copie celule verticalment AIDE !!

Bonjour,

Une petite macro:

Code:

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+

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 17 Avril 2014

• #3

Re : Copie celule verticalment AIDE !!

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Avril 2014

• #4

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+

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 17 Avril 2014

• #5

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.

 

Pièces jointes

• SSASSAM.xlsx

  59.9 KB · Affichages: 20
• SSASSAM.xlsx

  59.9 KB · Affichages: 22
• SSASSAM.xlsx

  59.9 KB · Affichages: 30

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Avril 2014

• #6

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+

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 18 Avril 2014

• #7

Re : Copie celule verticalment

J'ai tout fait mais je ne peux pas

 

Dernière édition: 18 Avril 2014

Vote positif 0 Vote négatif