Bonjour,

Je suis completement novice en VBA mais j'aurais besoin de faire une boucle et je n'y arrive pas...voila les trois premieres etapes (recopiées en manuel) pour que vous comprenniez.
Merci d'avance pour votre aide...
l'idée est de faire une boucle de 1 à N pour ne pas à devoir recopier N fois la même chose.
merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    Sheets("NOM").Select
    Sheets("NOM").Copy After:=Sheets(3)
    Range("A1:B1").Select
    ActiveCell.FormulaR1C1 = "='liste des élèves'!R[2]C[1]"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISBLANK('notes globales'!RC[1]),"""",'notes globales'!RC[1])"
    Range("D3").Select
    Selection.AutoFill Destination:=Range("D3: D51"), Type:=xlFillDefault
    Range("D3: D51").Select
    Range("E49").Select
'---------------------
    Sheets("NOM (2)").Select
    Sheets("NOM (2)").Copy After:=Sheets(4)
    Range("A1:B1").Select
    ActiveCell.FormulaR1C1 = "='liste des élèves'!R[3]C[1]"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISBLANK('notes globales'!RC[2]),"""",'notes globales'!RC[2])"
    Range("D3").Select
    Selection.AutoFill Destination:=Range("D3: D51"), Type:=xlFillDefault
    Range("D3: D51").Select
    Range("E51").Select
'---------------------
    Sheets("NOM (3)").Select
    Sheets("NOM (3)").Copy After:=Sheets(5)
    ActiveWindow.SmallScroll Down:=-75
    Range("A1:B1").Select
    ActiveCell.FormulaR1C1 = "='liste des élèves'!R[4]C[1]"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISBLANK('notes globales'!RC[3]),"""",'notes globales'!RC[3])"
    Range("D3").Select
    Selection.AutoFill Destination:=Range("D3: D51")
    Range("D3: D51").Select
    Range("E20").Select


je trouve ça bête de devoir recopier alors qu'une boucle devrait fonctionner mais lorsque je place une variable apres les "RC[" par exemple il plante
merci
Michael