mettre une colonne en ligne 5 par 5

[KN4]

Bonjour,
je souhaite faire une macro , j'ai beaucoup de data à traiter mais je n'arrive pas à résoudre ce problème.

Je veux que la colonne F qui est variable, deviennent une ligne rangé 5 par cinq.
exemple:
colonne F
2,5
2,6
2,5
2,5
2,4
2,7
2,7
2,6
2,7
2,7
3,1
3
3,2
3,2
3
devient enuite

2,5 2,6 2,5 2,5 2,4
2,7 2,7 2,6 2,7 2,7
3,1 3 3,2 3,2 3

merci pour votre aide

KUB

 

[Gorfael]

Re : mettre une colonne en ligne 5 par 5

Bonjour,
je souhaite faire une macro , j'ai beaucoup de data à traiter mais je n'arrive pas à résoudre ce problème.

Je veux que la colonne F qui est variable, deviennent une ligne rangé 5 par cinq.
exemple:
colonne F
2,5
2,6
2,5
2,5
2,4
2,7
2,7
2,6
2,7
2,7
3,1
3
3,2
3,2
3
devient enuite

2,5 2,6 2,5 2,5 2,4
2,7 2,7 2,6 2,7 2,7
3,1 3 3,2 3,2 3

merci pour votre aide

KUB

Salut
plus de précision seraient les bienvenues :
F1 :2,5
F2 : 2,6
F3 :2,5
F4 : 2,5
F5 :2,4
F6 : 2,7
F7 : 2,7
F8 : 2,6
F9 : 2,7
etc. devient enuite

F1:2,5 G1:2,6 H1:2,5 I1:2,5 J1:2,4
F2:2,7 G2:2,7 H2:2,6 I2:2,7 J2:2,7
F3:3,1 G3:3 H3:3,2 I3:3,2 J3:3

Sub Test1()
Dim X As Long
Dim Tab_Val()
X = Int(Range("F65536").End(xlUp).Row / 5)

ReDim Tab_Val(0 To 4, 0 To X)
For X = 0 To Range("F65536").End(xlUp).Row - 1
    Tab_Val(X Mod 5, Int((X - (X Mod 5)) / 5)) = Range("F" & (X + 1))
        Range("F" & X + 1) = ""
Next X
For X = 0 To UBound(Tab_Val, 2)
    Range("F" & X + 1) = Tab_Val(0, X)
    Range("G" & X + 1) = Tab_Val(1, X)
    Range("H" & X + 1) = Tab_Val(2, X)
    Range("I" & X + 1) = Tab_Val(3, X)
    Range("J" & X + 1) = Tab_Val(4, X)
Next X
End Sub

C'est ça ??? ou c'est
F1 : 2,5 & " " & 2,6 & " " & 2,5 & " " & 2,5 & " " & 2,4
F2 : 2,7 & " " & 2,7 & " " & 2,6 & " " & 2,7 & " " & 2,7
etc ???

Sub Test2()
Dim X As Long
Dim Tab_Val()
X = Int(Range("F65536").End(xlUp).Row / 5)

ReDim Tab_Val(0 To X)
For X = 0 To Range("F65536").End(xlUp).Row - 1
    If (X Mod 5) = 0 Then
        Tab_Val(Int((X - (X Mod 5)) / 5)) = Range("F" & (X + 1))
    Else
        Tab_Val(Int((X - (X Mod 5)) / 5)) = Tab_Val(Int((X - (X Mod 5)) / 5)) & _
                            " " & Range("F" & (X + 1))
    End If
        Range("F" & X + 1) = ""
Next X
For X = 0 To UBound(Tab_Val, 1)
    Range("F" & X + 1) = Tab_Val(X)
Next X
End Sub

On démarre à F1, jusqu'à la dernière de F ?
A+

 

[KN4]

Re : mettre une colonne en ligne 5 par 5

la première solutin me va très bien;
merci encore

KUB