Discussion :

[producty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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