Créer une boucle

Le 05/06/2015 à 17:11

Bonjour à tous,

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

cordialement

Nordine

Le 05/06/2015 à 17:21

Bonjour,

une proposition

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"
    For i = 6 To 11
        b = (i - 6) * 42
        Range("K" & i).FormulaLocal = "=Feuil1!F" & b + 6
        Range("L" & i).FormulaLocal = "=Feuil1!F" & b + 5
        Range("D" & i).FormulaLocal = "=Feuil1!G" & b + 14
        Range("E" & i).FormulaLocal = "=Feuil1!G" & b + 15
        Range("F" & i).FormulaLocal = "=Feuil1!G" & b + 19
        Range("G" & i).FormulaLocal = "=Feuil1!G" & b + 24
        Range("H" & i).FormulaLocal = "=Feuil1!G" & b + 26
        Range("I" & i).FormulaLocal = "=Feuil1!G" & b + 31
        Range("J" & i).FormulaLocal = "=Feuil1!F" & b + 37
        Range("M" & i).FormulaLocal = "=Feuil1!F" & b + 9
    Next i
End Sub
Le 05/06/2015 à 17:28

Purée de punaise...nom de zeussssssssss !!

MERCI BEAUCOUP h2so4 , vraiment rapidité et efficacité je pars en week soulagé!

j'espère que tu vas bien au passage et encore merci pour cette solution qui me va parfaitement

Cordialement

Nordine

Rechercher des sujets similaires à "creer boucle"