Copier X fois une cellule selon une autre cellule

Question

Le sujet a déjà été traité sur une autre discussion mais je n'arrive pas à utiliser le code VBA qui était donné en solution. Je ne peux pas faire fonctionner car VBA me signale une erreur de type. Un utilisateur m'a conseillé d'ouvrir un nouveau sujet en postant un fichier exemple. Dans mon fichier, le colonne A représente le nombre de fois que l'élément de la colonne B doit être copié dans la colonne C. Petit exemple: Colonne A 2 3 1 Colonne B Q W E Colonne C Q Q W W W E Dans le fichier joint, vous trouvez le code VBA en question ainsi que mes données. Merci d'avance pour votre aide...

Dan · Accepted Answer

Re, oups reprends le code que je viens de corriger, J doit être égal à 2 comme dans mon premier post...

Dan · Answer

Dans ton code modifie cette ligne --&gt; For j = 2 To Range("A" &amp; Rows.Count).End(xlUp).Row Si ok veille à clique sur le v vert lors de ta réponse afin de cloturer le fil Crdlt...

Dan · Answer

Re Combien y a-t-il de ligne en colonne A et B dans le fichier d'origine ? Le fichier posté est-il le même ? uniquement des chiffres ...

Dan · Answer

Re

Fais un test avec ce code et donne moi ce la boite à message te renvoie lors de l'erreur :

Sub twst()
Dim j As Integer, i As Long
   For j = 2 To Range("A" & Rows.Count).End(xlUp).Row
   On Error GoTo Fin
   For i = 1 To Cells(j, 1).Value
   Cells(j, 2).Copy Destination:=Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1)
        Next i
        Next j
Exit Sub
Fin:  MsgBox "J=" & j & "---i=" & i
End Sub

Dan · Answer

Edit...

Yvouille · Answer

Salut Mimoun, je prends 53 des 1000 mercis que tu donnes à Dan pour le conseil que je t'ai donné sur l'autre fil...