XL 2016 Remplir un tableau

[Seddiki_adz]

bonjour a tous
si possible de remplir un tableau feuil2 a partir de trois colonne du feuil1 comme indiquer dans document joint
je veut mélanger les valeurs des trois colonnes Liste1 , Liste2, Liste3 en colonne A a 60 lignes puis en colonne B suivant colonne C
Merci

 

[sylvanu]

Bonsoir Seddiki_adz,
Un essai en PJ avec :

Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim DL%, L%, i%, tablo, T
[B5:B10000].ClearContents
With Sheets("Feuil1")
    DL = .[A65500].End(xlUp).Row: tablo = .Range("A2:C" & DL)
End With
ReDim T(1 To 3 * DL)
L = 1
For i = 1 To DL - 1
    T(L + 0) = tablo(i, 1): T(L + 1) = tablo(i, 2): T(L + 2) = tablo(i, 3)
    L = L + 3
Next i
[B5].Resize(UBound(T, 1)).Value = Application.Transpose(T)
End Sub

La macro est automatique lorsqu'on sélectionne la feuille Feuil2.

 

[Seddiki_adz]

Merci

 

[Seddiki_adz]

Merci

Bonjour
si j’arrête au ligne 55 puis je veut remplir la colonne suivante comment modifier ce code?

 

[sylvanu]

Re,
C'est toujours pareil avec vous. Vous demandez quelque chose, puis autre chose, et encore autre chose.
Pourquoi ne pas tout demandé la première fois, cela éviterait de reprendre le travail plusieurs fois.
En plus c'est pas très clair. Donnez un petit fichier test représentatif avec une demande claire.
Si la demande est de ré agencer le tableau de sortie avec seulement 55 lignes alors testez cette PJ, mais c'est vraiment au hasard, car je n'ai pas compris s'il fallait s'arrêter à la ligne 55 de la feuille XL ou si il fallait 55 éléments par colonne.
Comme on commence en ligne 5, c'est soit on s'arrête en ligne 55 ou ce sera 61 si on met 55 éléments par colonne.

 

[Seddiki_adz]

bonjour
De 56

Re,
C'est toujours pareil avec vous. Vous demandez quelque chose, puis autre chose, et encore autre chose.
Pourquoi ne pas tout demandé la première fois, cela éviterait de reprendre le travail plusieurs fois.
En plus c'est pas très clair. Donnez un petit fichier test représentatif avec une demande claire.
Si la demande est de ré agencer le tableau de sortie avec seulement 55 lignes alors testez cette PJ, mais c'est vraiment au hasard, car je n'ai pas compris s'il fallait s'arrêter à la ligne 55 de la feuille XL ou si il fallait 55 éléments par colonne.
Comme on commence en ligne 5, c'est soit on s'arrête en ligne 55 ou ce sera 61 si on met 55 éléments par colonne.

Bonjour
suivant de 56 a 73 et ainsi de suite

 

[sylvanu]

Même avec beaucoup de patience, on a du mal à suivre.

suivant de 56 a 73 et ainsi de suite

Ca ne veut rien dire.

C'est toujours pareil avec vous. Vous demandez quelque chose, puis autre chose, et encore autre chose.
Pourquoi ne pas tout demandé la première fois, cela éviterait de reprendre le travail plusieurs fois.

Je jette l'éponge.

 

[Seddiki_adz]

Même avec beaucoup de patience, on a du mal à suivre.

Ca ne veut rien dire.

Je jette l'éponge.

si pas possible ?

 

[sylvanu]

Vous ne faites jamais l'effort d'expliquer ce que vous voulez, c'est à nous de deviner.

You never make the effort to explain what you want, it's up to us to guess.

Sie machen sich nie die Mühe zu erklären, was Sie wollen, es liegt an uns, es zu erraten.

etc...etc
Donc je ne réponds pas.

Si c'est un problème de langage, utilisez ceci : https://translate.google.fr/?hl=fr

 

[Seddiki_adz]

etc...etc
Donc je ne réponds pas.

je veut remplir les colonnes B,C et D de méme facent que la colonne B

 

[sylvanu]

C'est ce qui est fait.

Sans attendu dans le fichier qui montre ce que vous voulez, je ne répondrais plus.
Peut être que d'autres auront la patience.

 

[Seddiki_adz]

C'est ce qui est fait.
Regarde la pièce jointe 1172306
Sans attendu dans le fichier qui montre ce que vous voulez, je ne répondrais plus.
Peut être que d'autres auront la patience.

Oui ci ça que je veut

 

[sylvanu]

C'est ce que fait la PJ #5.
Ouvrez le fichier et sélectionnez la feuille 1 puis sélectionnez la feuille 2. C'est expliqué dans le post.

 

[Seddiki_adz]

Oui ci ça que je veut

Merci

 

[Amilo]

Bonjour le forum, sylvanu, Seddiki_adz,
Une proposition avec power query sans conviction
Cordialement