Aide pour créer une boucle [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
vendredi 5 juin 2015
Statut
Membre
Dernière intervention
6 juin 2015
-
Messages postés
2
Date d'inscription
vendredi 5 juin 2015
Statut
Membre
Dernière intervention
6 juin 2015
-
Bonjour,

Je souhaite récupérer dans une premiere feuille des données issues d'un questionnaire, dans certaines cellules (sachant je vais en avoir de plus en plus) puis les coller en lignes sous les intitulé créer par mes soins....

Sub test8()

Range("D5") = "Accueil"
Range("E5") = "Découverte"
Range("F5") = "Traitement de la demande"
Range("G5") = "Conclusion"
Range("H5") = "Savoir-être"
Range("I5") = "Règles Métiers, Outils & Services"
Range("J5") = "Note Globale"
Range("K5") = "Collaborateur"
Range("L5") = "Date"
Range("M5") = "Métier"

Range("K6").FormulaLocal = "=Feuil1!F6 "
Range("L6").FormulaLocal = "=Feuil1!F5"
Range("D6").FormulaLocal = "=Feuil1!G14"
Range("E6").FormulaLocal = "=Feuil1!G15"
Range("F6").FormulaLocal = "=Feuil1!G19"
Range("G6").FormulaLocal = "=Feuil1!G24"
Range("H6").FormulaLocal = "=Feuil1!G26"
Range("I6").FormulaLocal = "=Feuil1!G31"
Range("J6").FormulaLocal = "=Feuil1!F37"
Range("M6").FormulaLocal = "=Feuil1!F9"

Range("K7").FormulaLocal = "=Feuil1!F48"
Range("L7").FormulaLocal = "=Feuil1!F47"
Range("D7").FormulaLocal = "=Feuil1!G56"
Range("E7").FormulaLocal = "=Feuil1!G57"
Range("F7").FormulaLocal = "=Feuil1!G61"
Range("G7").FormulaLocal = "=Feuil1!G66"
Range("H7").FormulaLocal = "=Feuil1!G68"
Range("I7").FormulaLocal = "=Feuil1!G73"
Range("J7").FormulaLocal = "=Feuil1!F79"
Range("M7").FormulaLocal = "=Feuil1!F51"

Range("K8").FormulaLocal = "=Feuil1!F90"
Range("L8").FormulaLocal = "=Feuil1!F89"
Range("D8").FormulaLocal = "=Feuil1!G98"
Range("E8").FormulaLocal = "=Feuil1!G99"
Range("F8").FormulaLocal = "=Feuil1!G103"
Range("G8").FormulaLocal = "=Feuil1!G108"
Range("H8").FormulaLocal = "=Feuil1!G110"
Range("I8").FormulaLocal = "=Feuil1!G115"
Range("J8").FormulaLocal = "=Feuil1!F121"
Range("M8").FormulaLocal = "=Feuil1!F93"

....puis pour 9,10,11.......

Voila mon programme qui me donne ce que je souhaite mais je voudrais créer une boucle pour m'éviter de taper ces 10 lignes encore et encore et encore....surtout que la cellule de la feuille 1 change tt le temps

MERCI POUR VOTRE AIDE
Nordine


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.
.

2 réponses

Messages postés
9579
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 octobre 2020
1 926
Bonjour

à tester
https://www.cjoint.com/c/EFfpSdgmdE1

RQ. la valeur de lifinFB peut être définie autrement

Cdlmnt
Messages postés
2
Date d'inscription
vendredi 5 juin 2015
Statut
Membre
Dernière intervention
6 juin 2015

Merci beaucoup CCM81
ca a l'air de rouler mille mercis
bonne journée à vous
cordialement
Nordine