Discussion :

[Thewil]

Bonjour,

J'ai des données dans une feuille excel sous ce format.

1 2
3 4
5 6
7 8

Je voudrais récupérer ces données pour les mettre dans une autre feuille d'un autre fichier excel sous cette forme la :
1 2 3 4 5 6 7 8

J'ai fait qqchose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
    Range("B12,D12,B20,D20,B27,D27,B33,D33").Select
    Selection.Copy
 
 
    Range("E" & ouCopier & ":L" & ouCopier).Select
    Range("E" & ouCopier).Activate
    Sheets("DATA").Range("E" & ouCopier).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=True

Mais j'obtiens qqchose comme ceci :
1 3 5 7
2 4 6 8

Ce qui ne conviens pas comme vous pouvez le voir.

Auriez vous une petite idée svp ?

Merci

[mercatog]

Code :

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

1
2
3
4
5
6
Dim i As Long
 
For i = 2 To Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
    Range("A" & i & ":B" & i).Copy Cells(1, Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column + 1)
    Range("A" & i & ":B" & i).ClearContents
Next