VBA - recuperer valeur colonne vers la ligne

Bonjour a tous,

Je trébuche depuis ce matin.

J'arrive a recuperer les valeurs de la colonne A de la feuille 1 mais je n'arrive pas a les transferer sur la ligne 1 de la feuille 2.

Voici un mon code VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Boucle() Dim i As Integer i = 1 Do While Range("A" & i) <> "" i = i + 1 Selection.Copy Sheets("Feuil2").Select Range("A1").Select ActiveSheet.Paste Sheets("Feuil1").Select Range("A1" & i).Select Application.CutCopyMode = False Selection.Copy Sheets("Feuil2").Select Range("B1").Select --> impossible de déplacer la cellule vers la droite ActiveSheet.Paste Sheets("Feuil1").Select Loop End Sub

---

Help me please Thk U

Salut,

Pas bien certain d'avoir compris ta macro.

Ci dessous une macro qui te guidera surement.
Je prend ligne par ligne les valeurs de la colonne A de feuil1 et je les mets en colonne dans feuil2 a partir de la colonne B

Code:

---

1 2 3 4 5 6 7 8

Sub Boucle() Dim i As Integer i = 1 Do While Feuil1.Range("A" & i ) <> "" And i < 256 Feuil1.Range("A" & i).Copy Destination:=Feuil2.Cells(1, i + 1) i = i + 1 Loop End Sub

---

Autre solution, la copie transposee:

Code:

---

1 2 3 4 5 6

Sub Copie() If Feuil1.Range("A65536").End(xlUp).Row < 255 Then Feuil1.Range("A1:A" & Feuil1.Range("A65536").End(xlUp).Row).Copy Feuil2.Range("B1").PasteSpecial Transpose:=True End If End Sub

---

++
Minick