Discussion :

[DJ333]

Bonjour,
Je début en vb et je ne comprends pas car le bouton créé ne lance que 2 macros au lieu de 11... Quelqu'un sait il pourquoi svp ?
Les 11 macros sont simples et identiques, elles permettent de créer des feuilles selon un modèle à condition qu'une cellule soit renseignée.
Voici le code complet et le fichier en pj :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
Sub crea_RP_MEC1()
   If Range("C2") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    ActiveSheet.Name = Worksheets("Revue Patri").Range("e2")
    End If
End Sub
Sub crea_RP_MEC2()
    If Range("C3") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e3")
    End With
    End If
End Sub
Sub crea_RP_MEC3()
    If Range("C4") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e4")
    End With
    End If
End Sub
Sub crea_RP_MEC4()
    If Range("C5") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e5")
    End With
    End If
End Sub
Sub crea_RP_MEC5()
    If Range("C6") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e6")
    End With
    End If
End Sub
Sub crefeuille6()
    If Range("C7") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e7")
    End With
    End If
End Sub
Sub crefeuille7()
    If Range("C8") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e8")
    End With
    End If
End Sub
Sub crefeuille8()
    If Range("C9") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e9")
    End With
    End If
End Sub
Sub crefeuille9()
    If Range("C10") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e10")
    End With
    End If
End Sub
Sub crefeuille10()
    If Range("C11") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e11")
    End With
    End If
End Sub
Sub crefeuille11()
    If Range("C12") <> "" Then
        Sheets("Revue type").Select
        Sheets("Revue type").Copy After:=Sheets(2)
    Set MySheet = ActiveSheet
    With MySheet
           .Name = Worksheets("Revue Patri").Range("e12")
    End With
    End If
End Sub
Sub Button1_Click()
    crea_RP_MEC1 'Macro1
    crea_RP_MEC2 'Macro2
    crea_RP_MEC3 'Macro3
    crea_RP_MEC4 'Macro4
    crea_RP_MEC5 'Macro5
    crefeuille6 'Macro6
    crefeuille7 'Macro7
    crefeuille8 'Macro8
    crefeuille9 'Macro9
    crefeuille10 'Macro10
   crefeuille11 'Macro11
End Sub