transformer une colonne en plusieurs colonnes comportant chacune 24 donées

[dimaria]

bonjour a tous. pouviez vous m'aider à convertir les données (valeurs numériques) d'une colonne en plusieurs colonnes, de tel sorte ces colonnes comportent chacune 24 données. je joins à ce message un exemplaire du résultat attendu.merci

 

[Paf]

Bonjour dimaria,

un essai macro :

Private Sub CommandButton1_Click()
Dim Tablo, i As Long, j As Byte, Col As Integer, NbCol As Integer
With Worksheets("Feuil1") 'à adapter
Col = 1
Tablo = .Range("B3:B" & .Range("B" & Rows.Count).End(xlUp).Row)
NbCol = Int(UBound(Tablo, 1) / 24) + (UBound(Tablo, 1) Mod 24 <> 0) * -1
ReDim Preserve Tablo(1 To UBound(Tablo, 1), 1 To NbCol)
For i = LBound(Tablo, 1) + 24 To UBound(Tablo, 1) Step 24
    Col = Col + 1
    For j = 0 To 23
        If i + j <= UBound(Tablo, 1) Then
            Tablo(j + 1, Col) = Tablo(i + j, 1)
        Else
            Exit For
        End If
    Next
Next
.Range("H5").Resize(24, NbCol) = Tablo
End With
End Sub

Sur le classeur joint il y aura 30 colonnes de 24 données + une colonne de 11 données, puisque le nombre de données en colonne B divisé par 24 a un reste ( 11).
A préciser s'il ne faut afficher que les colonnes complètes.

A+

 

[dimaria]

merci Paf, très sérieusement je suis un amateur sur excel. je ne comprends toujours pas la procédure à faire.

 

[Paf]

re,

le plus simple, modifier

Private Sub CommandButton1_Click()

en

Sub Répartir()

puis copier l'ensemble du code dans un module standard. Et lancer la macro..

Précisez là où vous ne savez pas faire

A+

 

[dimaria]

j'ai toujours du mal à le faire. A enregistrer le macro, le modifier et l’exécuter. c'est la première fois que je le fais, je suis vraiment un amateur dans le domaine. je précise que je souhaite le faire sous EXCEL 2016 pouviez vous l'essaye dans le fichier que j'ai pu joindre??? désolé pour les tracasseries ...

 

[Paf]

Re,

version 2003.

 

[dimaria]

merci j'y suis arrivé, comme c'est facile, ça m’économise vraiment le temps de travail. merci encor