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,
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,
Pièces jointes
Dernière édition: