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

dimaria

XLDnaute Nouveau
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
 

Pièces jointes

  • exemple.xlsx
    17.6 KB · Affichages: 25

Paf

XLDnaute Barbatruc
Bonjour dimaria,

un essai macro :

VB:
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+
 

Paf

XLDnaute Barbatruc
re,

le plus simple, modifier
Code:
Private Sub CommandButton1_Click()
en
Code:
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

XLDnaute Nouveau
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 ...
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 833
Messages
2 092 605
Membres
105 466
dernier inscrit
Jsquare