XL 2013 VBA - inscription de données sur plusieurs lignes

[Roseline]

Bonjour,
J'ai besoin de votre aide. Vous trouvez mon fichier joint.
J'ai un onglet #1 dans lequel les données seront inscrites. Mes données se transfère dans mon onglet Feuil1 et se positionne au bon endroit. Ce que j'aimerais c'est que si un chiffre est indiqué dans une des cases en rouge, lors de l'envoi des données sur la Feuil1, toutes les autres informations se répètent en avant du numéro. C'est peut-être avec la fonction LOOP mais je ne sais pas du tout comment l'adapter.
Merci de m'aider.

 

[sylvanu]

Si on remplace les With avec leur valeurs sur la ligne

.Cells(DL, "D") = Valeur

on obtient :

Workbooks("xxx").Sheets("x").Cells(DL, "D") = Workbooks("xxxx").Sheets("xxx").Range("C8")

Est ce bien ce que vous vouliez faire ?
Sinon renvoyez les deux fichiers.

 

[Roseline]

Si on remplace les With avec leur valeurs sur la ligne

.Cells(DL, "D") = Valeur

on obtient :

Workbooks("xxx").Sheets("x").Cells(DL, "D") = Workbooks("xxxx").Sheets("xxx").Range("C8")

Est ce bien ce que vous vouliez faire ?
Sinon renvoyez les deux fichiers.

Ce que j'ai besoin c'est que mes données inscrites s'inscrive dans l'autre fichier que j'ai nommé Classeur2. Mes cellules B3/D3/C6/C7 doivent s'inscrire tant que j'ai des données d'inscrite dans les sections en rouge.
Voilà mes deux fichiers. Merci de votre aide encore une fois.

 

[sylvanu]

Bonsoir,
essayez cette PJ.
J'ai modifié pas mal de choses. Il ne plante plus. A vérifier qu'il fait bien ce que vous voulez ....
Vous n'êtes pas franchement copain avec les noms de fichier. C'est toujours le nom complet AVEC l'extension qu'il faut l'utiliser.
With Workbooks("Classeur2.xlsx") et non With Workbooks("Classeur2")

 

[Roseline]

Bonsoir,
essayez cette PJ.
J'ai modifié pas mal de choses. Il ne plante plus. A vérifier qu'il fait bien ce que vous voulez ....
Vous n'êtes pas franchement copain avec les noms de fichier. C'est toujours le nom complet AVEC l'extension qu'il faut l'utiliser.
With Workbooks("Classeur2.xlsx") et non With Workbooks("Classeur2")

Bonjour,
Effectivement j'ai pas mal oublié les extensions oui…
Tout fonctionne effectivement mais mes cellules B3, D3, C6 et C7 doivent se reporter autant de fois que j'ai de numéro d'inscrit.
Initiation - 18 novembre 2020 - Solde - Réduit 4
Initiation - 18 novembre 2020 - Solde - Réduit 8
Initiation - 18 novembre 2020 - Solde - Réduit 11
etc.
et la je suis vraiment mélangée...

Merci

 

[sylvanu]

A tester, si j'ai bien tout compris.

 

[Roseline]

A tester, si j'ai bien tout compris.

Oui tout fonctionne quand je l'adapte à ma commande mais cela fonctionne quand mes 4 cellules en rouge sont complétés. Il peut arriver que j'aie seulement deux cellules de complétée sur les 4 et à ce moment là je veux deux lignes reproduitent et non 4

 

[sylvanu]

Les spécifications arrivent au goutte à goutte !
Je regarde.

 

[sylvanu]

Voilà.

 

[Roseline]

Voilà.

Vous avez été d'une patience d'ange avec moi et je vous en remercie grandement . Soyez certain que dans mes prochaines demandes tout sera beaucoup plus complet que ce que je vous ai acheminé aujourd'hui au compte goutte comme vous dites.
Tout fonctionne parfaitement comme je le désirais.
Merci énormément de votre aide si précieuse, j'y serais pas arrivé sans vous.
Passez un merveilleux Temps des Fêtes

 

[sylvanu]

Passer les Fêtes au mieux cette année, et protéger vous et les vôtres.