Bonjour,

J'ai un tableau comportant des noms d'élèves(Feuil2) que je dois placer sur un plan (feuil1) à différents endroits sur la (feuil1). J'aurais besoin de votre aide afin d'optimiser mon code pour éviter de répéter à chaque fois le code pour chaque élève. Voici un exemple pour 4 élèves en sachant qu'il y a 30 élèves.
Merci pour votre aide..

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub PlacementEleves()
 
    Range("B4:B7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R1C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R1C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R1C1)))))))" & _
        ""
 
     Range("C4:C7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R2C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R2C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R2C1)))))))" & _
        ""
 
      Range("C8:C11").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R6C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R6C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R6C1)))))))" & _
        ""
     Range("E4:E7").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Feuil2'!R3C1='Feuil1'!R26C3,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R26C6,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R40C14,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R40C15,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R43C14,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R43C15,""""," & _
        "IF('Feuil2'!R3C1='Feuil1'!R43C17,""""," & _
        "'Feuil2'!R3C1)))))))" & _
        ""
    Range("B14").Select
 
End Sub