XL 2013 Répéter instruction selon variable

[D4_]

Bonjour,

Petit problème sur l'utilisation des boucles, je ne vois pas comment faire..

Image ci-joint : Extrait de l'onglet "Synthese"

J'ai créé un code permettant de remplir, dans l'onglet "Data" ; les infos de date, noms, mois, etc de l'onglet "Synthese" en fonction des cellules "C6:G15" si elles sont remplies.
Ces cellules sont à remplir d'une valeur numérique par l'utilisateur, et à l'exécution de la macro, une ligne est créée dans l'onglet "Data", pour chaque cellules de la plage Synthese C6:G15

Lorsque l'utilisateur entre un "1", pas de soucis, mais si la saisie est supérieure à "1", cela me pose problème car une seule ligne sera créée.
Je souhaiterai que x lignes soient créées selon la saisie de l'utilisateur.

Je ne sais pas comment utiliser la boucle dans ce cas précis..

Voici un extrait de mon code.

If Sheets("Synthese").Range("c6") <> "" Then
Sheets("Data").Range("a65536").End(xlUp).Offset(1, 0) = Sheets("Synthese").Range("b6").Value
Sheets("Data").Range("b65536").End(xlUp).Offset(1, 0) = Sheets("Synthese").Range("c3").Value
Sheets("Data").Range("c65536").End(xlUp).Offset(1, 0) = Sheets("Synthese").Range("e2").Value
Sheets("Data").Range("d65536").End(xlUp).Offset(1, 0) = Sheets("Synthese").Range("c4").Value
Sheets("Data").Range("e65536").End(xlUp).Offset(1, 0) = Sheets("Synthese").Range("c5").Value
End If

Ici, range("c6")=2, mais une seule ligne sera créée dans l'onglet "Data"


Merci pour votre aide,

 

[Dranreb]

Bonjour.
Peut être en faisant :

Set LignesCible = Sheets("Data").Range("a65536").End(xlUp).Offset(1, 0).Resize(Sheets("Synthese").Range("c6").value).EntireRow
LignesCible.Columns("A").value = Sheets("Synthese").Range("b6").Value
etc.

 

[D4_]

Bonjour Dranreb,

Votre solution ne semble pas s'adapter à mon fichier dans la mesure ou toutes les cellules "C6:G15" peuvent être renseignées 🙁

 

[Dranreb]

Je ne comprends pas ce que vous voulez dire.
Si vous voulez répéter les valeurs des cellules b6, c3, e2, c4 et c5 de Sheets("Synthese") sur un nombre de lignes contenu dans la cellule c6 de Sheets("Synthese"), affectez leurs valeurs aux colonnes d'une plage destinatrices comportant ce nombre de lignes.