Discussion :

[snoopeanuts]

Bonjour,

Je cherche à automatiser le traitement de donnée qui se présentent sous la forme d'un tableau de 102 lignes et 24 colonnes. Il y a et aura toujours le même nombre de ligne pour toutes les colonnes.
Pour la suite des traitements, j'ai besoin que les colonnes soient toutes regroupées dans la colonne A, les une à la suite des autre (A, puis B sous la A, puis la C ....)

Le hic : le nombre de ligne peut varier dans quelques semaine, et risque d'être 201 * 16 colonnes
Il me faut donc une macro capable de s'adapter à ce changement.

J'ai essayé de passer par les fonctions

Code :

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

Application.WorksheetFunction.CountA(Range("$A:$A"))

et

Code :

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

Range("A1").End(xlUp).Row

de manière à fixer mon nombre de ligne et où se situe la dernière de la colonne, mais je n'arrive pas à faire une boucle disant : tu coupes la 2ieme colonne et tu la colle sous la première puis tu coupe la 3ieme pour la mettre sous la première...

Je débute en VBA donc je ne suis pas encore familier des codes et syntaxe, j'imagine néanmoins que c'est faisable.

Pourriez vous m'aider ?
Merci beaucoup

Tom

[joe.levrai]

Bonjour,

la solution la plus rapide, c'est de mettre ta plage de données dans un tableau VBA
ensuite, dans une nouvelle feuille, on peut facilement injecter chaque colonne les unes en dessous des autres

un exemple à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Rassemblement()
Dim TabEntree(), i As Long
 
' Mise sous tableau de la plage débutant en A1
TabEntree = Feuil1.Cells(1, 1).CurrentRegion.Value
 
' ajout d'une feuille
With ThisWorkbook.Worksheets.Add
    ' un titre en A1
    .Cells(1, 1).Value = "RESULTAT"
 
    ' chaque colonne du tableau
    For i = LBound(TabEntree, 2) To UBound(TabEntree, 2)
        ' est injectée dans la nouvelle feuille, en dessous de la précédente
        .Cells(.Rows.Count, 1).End(xlUp)(2).Resize(UBound(TabEntree, 1), 1).Value = Application.Index(TabEntree, 0, i)
    Next i
End With
 
End Sub