Distribuer 1 colonne vers plusieurs colonnes

Alyrio · 20 Juillet 2010

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 · 20 Juillet 2010

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 · 20 Juillet 2010

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.

Distribuer 1 colonne vers plusieurs colonnes

Alyrio

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Alyrio

XLDnaute Nouveau

Discussions similaires