Discussion :

[bjou27]

Bonjour à tous,

je n'arrive pas à trouver comment faire ceci:

dans une ligne de U4 à AF4 j'ai des caractéristiques de palettes avec en AF4 le nombre de palette
dans une ligne de U5 à AF5 j'ai des caractéristiques de palettes avec en AF5 le nombre de palette (cette ligne est totalement différente la premiere)

J'aimerai copier le contenu de la ligne 4 de U4 à AE4 dans la colonne B ligne 4 x fois selon le nombre contenu dans la cellule AF4.
la meme chose à la suite pour le contenue de la ligne 5 de U5 à AE5

Ex.:
U4: ARTicle 1 / V4: cd4512 / W4: of1236 / X4: produitA / Y4: 120 / etc... AF4: 5
U5: ARTicle 2 / V5: cd7302 / W4: of17896 / X4: produitZ / Y4: 450 / etc... AF4: 2

On a :

B4: ARTicle 1 / C4: cd4512 / D4: of1236 / E4: produitA / F4: 120 / etc...
B5: ARTicle 1 / C5: cd4512 / D5: of1236 / E5: produitA / F5: 120 / etc...
B6: ARTicle 1 / C6: cd4512 / D6: of1236 / E6: produitA / F6: 120 / etc...
B7: ARTicle 1 / C7: cd4512 / D7: of1236 / E7: produitA / F7: 120 / etc...
B8: ARTicle 1 / C8: cd4512 / D8: of1236 / E8: produitA / F8: 120 / etc...
B9: ARTicle 2 / C9: cd7302 / D9: of17896 / E9: produitZ / F9: 450 / etc...
B10: ARTicle 2 / C10: cd7302 / D10: of17896 / E10: produitZ / F10: 450 / etc...

J'espère avoir été assez clair....


Merci d'avance

Voici une pièce jointe

liste de colisage.xlsx

[mercatog]

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
Sub Test()
Dim LastLig As Long, i As Long, j As Long, N As Long
 
With Worksheets("Feuil1")                             'A adapter
    N = 4
    LastLig = .Cells(.Rows.Count, "U").End(xlUp).Row
    For i = 4 To LastLig
        j = Val(.Range("AF" & i))
        If j > 0 Then
            .Range("U" & i).Resize(, 12).Copy .Range("B" & N).Resize(j)
            N = N + j
        End If
    Next i
End With
End Sub

[Thautheme]

Bonjour Bjou, bonjour le forum,

L'exemple ne correspond pas à la description ! Lequel faut-il choisir pour coder, la description plage U:AF ou l'exemple N:Y ?

[bjou27]

Bonjour Thautheme, bonjour mercatog,

Avant toute choses je tiens à mon remercier d'avoir répondu à mon besoin ou déjà de vous y etes interressés.



Thautheme la description U:AF et mon fichier, l'autre description était pour ne pas naviguer dans la page inutilement car après j'aurais pu changer les paramètres...


Mercatog, je viens de tester le code que vous me proposé est franchement merci...; celui-ci correspond exactement a mon besoin....


Bonne continuation et encore merci à vous