Transposer les valeurs d'une colonne 4 par 4

**Sabinette** · 12/02/2015, 13h08

Bonjour,
Je voudrais transposer les valeurs d'une colonne 4 par 4. Je sais faire pour une colonne entière mais pas pour ce cas de figure.
Mes valeurs sont en colonne A.
Je voudrais que les 4 premières s'affichent en B1,C1,D1,E1.
Les 4 suivantes en B2,C2,D2,E2.
Et ainsi de suite pour le reste des valeurs.

Y-a-t-il une possibilité ?
Si oui merci d'avance pour votre aide.

Invité · 12/02/2015, 13h21

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim DerL As Long
Dim DerCible As Long
Dim I As Long
DerL = Range("a" & Cells.Rows.Count).End(xlUp).Row
For I = 1 To DerL Step 4
    DerCible = Range("b" & Cells.Rows.Count).End(xlUp).Row + 1
    Range(Range("B" & DerCible), Range("E" & DerCible)) = Application.Transpose(Range(Range("A1").Offset(I), Range("A1").Offset(I + 4)))
Next
End Sub

**Sabinette** · 12/02/2015, 13h46

Merci beaucoup, cela fonctionne bien.
Par contre je n'arrive pas à l'adapter à la structure de mon fichier final. En effet si les valeurs sont bien en colonne A, les cellules destinations sont G3,H3,I3,J3
et ainsi de suite.
Qu'elles modification apporter à ton coge. J'ai dien essayé en mettant "G3" et "J3" mais ça plante.
J'aurais du te donner les bonnes infos de suite mais je pensais que se serait plus simple à adapter.

Invité · 12/02/2015, 14h10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim DerL As Long
Dim DerCible As Long
Dim I As Long
DerL = Range("A" & Cells.Rows.Count).End(xlUp).Row
For I = 1 To DerL Step 4
    DerCible = Range("G" & Cells.Rows.Count).End(xlUp).Row + 1
   if  DerCible<3 then DerCible=3
    Range(Range("G" & DerCible), Range("J" & DerCible)) = Application.Transpose(Range(Range("A1").Offset(I), Range("A1").Offset(I + 4)))
Next
End Sub