Mettres toutes les x données à la ligne

Bonjour à vous tous,

J'ai un problème:

- J'ai un tableau avec une colonne qui contient 15000 données (chiffres).

Je voudrais faire une transposition spéciale car je ne veux pas que cette colonne, par un collage spécial se mette sur une ligne.

Mais que chaque 30 données, ça passe sur une prochaine ligne.

Exemple:

1

30

31

60

61

90

devienne

1 2 3... 30

31 32 33... 60

61...90

Quelq'un d'entre vous aurait-il une idée car faire des copiers collers, je ne me sens pas très motivé...

A bientôt

Bonjour

imaginons que tes chiffres soient en colonne 1 le résultat sera en colonne 3

Sub toto()
l = 1 ' ligne de début de tes chiffres
c = 1 ' colonne de début de tes chiffres
cpt = 0
l2 = 1
C2 = 3 ' colonne résultat
While Cells(l, c) <> ""
    cpt = cpt + 1
    If cpt =31 Then
        l2 = l2 + 1
        cpt = 1
    End If
    Cells(l2, C2) = Cells(l2, C2) & " " & Cells(l, c)

    l = l + 1
Wend
End Sub

Bonsoir,

ne sachant pas si tu veux tes données dans une seule colonne, ci joint un code qui colle dans 30 colonnes, à partir de la colonne C

Sub Macro1()
j = 1
For i = 1 To [A65000].End(xlUp).Row Step 30
    Cells(j, 3).Resize(1, 30).Value = Application.Transpose(Cells(i, 1).Resize(30, 1).Value)
    j = j + 1
Next i
End Sub

Merci beaucoup.

C'est exactement ce que le résultat que je veux !

ça fait très plaisi de se sentir aider, et de plus aussi rapidement !

Je vous adresse à vous 2 mes meilleures salutations !