Distribuer 1 colonne vers plusieurs colonnes

[Alyrio]

Bonjour à tous,

D'un côté j'ai une colonne avec un nombre non défini de valeur alphanumérique (plus de 200),
de l'autre j'ai un tableau composé de 15 lignes maximum.

Le but est de remplir le tableau, colonne après colonne sans dépasser le nombre de 15 lignes et peut importe le nombre de colonnes (Autrement dit le tableau est extensible à droite).

Merci d'avance pour vos solutions.

 

[Pierrot93]

Re : Distribuer 1 colonne vers plusieurs colonnes

Bonjour Alyrio,

Avec ce que j'ai compris, prends les valeurs colonne A de la feuille active et les copie à partir de la colonne C, et ce sur la feuille active.... A adapter

Sub test()
Dim i As Integer, j As Byte, c As Byte
j = 1: c = 3
For i = 1 To Range("A65536").End(xlUp).Row
    Cells(j, c) = Cells(i, 1)
    If j = 15 Then c = c + 1
    j = IIf(j = 15, 1, j + 1)
Next i
End Sub

bon après midi
@+

 

[Alyrio]

Re : Distribuer 1 colonne vers plusieurs colonnes

Merci Pierrot93,

Ca marche du tonnerre !!
C'est exactement ce que je voulais.

Encore Merci et bonne continuation.