Distribuer 1 colonne vers plusieurs colonnes

Alyrio

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

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

Code:
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

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

Discussions similaires


Haut Bas