[XL-2007] Fonctions If imbriquées

Bonjour à Tous,

Je cherche à imbriquer des fonction If mais je n'arrive pas au résultat désiré. C'est pour cela que je viens vers vous pour m'éclaircir sur le sujet.

En fait je possède un classeur qui se compose de la manière suivante :
* 1 feuille "Tirage Groupes" avec en cellule C2 le nombre de groupes et en D2 le nombre d'équipe par groupe
* des feuilles "modèles" : Gr.de 4, Gr.de 5, Gr.de 6,.... Gr.de 12.

Je souhaiterais qu'en fonction de la valeur en D2 il me crée le nb de groupes inscrit en C2. C'est à dire : Si D2=4 (équipes/groupe) et C2=10 (groupes), la macro copie 10 fois la feuille modèle Gr.de 4.

Je possède ce bout de macro qui me crée bien le nb de feuilles désirées et qui me les renomme.

Code:

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
Sub CreationPage()
 
    Dim Fe As Worksheet
    Dim Cel As Range
    Dim I As Integer
 
    'fige l'écran
    Application.ScreenUpdating = False
 
    'ajoute le nombre de feuilles désirées
    For I = 1 To Worksheets("Tirage Groupes").[C2]
 
        Worksheets("Gr.de 9").Copy , Sheets(Sheets.Count)
 
        Set Fe = ActiveSheet
 
        With Fe
 
            .Name = "Gr." & Chr(64 + I) 'nomme la feuille
 
            .Range("A1") = "Groupe " & Chr(64 + I) 'titre
 
            'évite la 1ère feuille afin de laisser les lettres A
            If I > 1 Then
 
                'boucle sur les cellules contenant des valeurs constantes
                For Each Cel In .Cells.SpecialCells(2)
 
                    'contrôle que la valeur après la lettre est une valeur numérique
                    'afin de ne pas modifier les mots comme "TOTAL"
                    If IsNumeric(Mid(Cel.Value, 2, 1)) Then
 
                        Cel.Value = Replace(Cel.Value, "A", Chr(64 + I), , , 0)
 
                    End If
 
                Next Cel
 
            End If
 
        End With
 
    Next I
 
    'rafraîchi
    Application.ScreenUpdating = True
 
End Sub

Voilà où j'en suis

Code:

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
122
123
Sub CreationPage()
 
    Dim Fe1 As Worksheet
    Dim Fe2 As Worksheet
    Dim Fe3 As Worksheet
    Dim Cel As Range
    Dim I As Integer
 
 
    'ajoute le nombre de feuilles désirées
     'fige l'écran
    Application.ScreenUpdating = False
 
        If [D2].Value = 4 Then
        Worksheets("Gr.de 4").Copy , Sheets(Sheets.Count)
    For I = 1 To Worksheets("Tirage Groupes").[C2]
    Set Fe1 = ActiveSheet
 
        With Fe1
 
            .Name = "Gr." & Chr(64 + I) 'nomme la feuille
 
            .Range("A1") = "Groupe " & Chr(64 + I) 'titre
 
            'évite la 1ère feuille afin de laisser les lettres A
            If I > 1 Then
 
                'boucle sur les cellules contenant des valeurs constantes
                For Each Cel In .Cells.SpecialCells(2)
 
                    'contrôle que la valeur après la lettre est une valeur numérique
                    'afin de ne pas modifier les mots comme "TOTAL"
                    If IsNumeric(Mid(Cel.Value, 2, 1)) Then
 
                        Cel.Value = Replace(Cel.Value, "A", Chr(64 + I), , , 0)
 
                    End If
 
                Next Cel
 
            End If
 
        End With
 
    Next I
 
    'rafraîchi
    Application.ScreenUpdating = True
 
Elself: [D2].Value = 5
        Worksheets("Gr.de 5").Copy , Sheets(Sheets.Count)
   For I = 1 To Worksheets("Tirage Groupes").[C2]
   Set Fe2 = ActiveSheet
 
        With Fe2
 
            .Name = "Gr." & Chr(64 + I) 'nomme la feuille
 
            .Range("A1") = "Groupe " & Chr(64 + I) 'titre
 
            'évite la 1ère feuille afin de laisser les lettres A
            If I > 1 Then
 
                'boucle sur les cellules contenant des valeurs constantes
                For Each Cel In .Cells.SpecialCells(2)
 
                    'contrôle que la valeur après la lettre est une valeur numérique
                    'afin de ne pas modifier les mots comme "TOTAL"
                    If IsNumeric(Mid(Cel.Value, 2, 1)) Then
 
                        Cel.Value = Replace(Cel.Value, "A", Chr(64 + I), , , 0)
 
                    End If
 
                Next Cel
 
            End If
 
        End With
 
    Next I
 
    'rafraîchi
    Application.ScreenUpdating = True
 
        Else: [D2].Value = 9
        Worksheets("Gr.de 9").Copy , Sheets(Sheets.Count)
        End If
    For I = 1 To Worksheets("Tirage Groupes").[C2]
        Set Fe3 = ActiveSheet
 
        With Fe3
 
            .Name = "Gr." & Chr(64 + I) 'nomme la feuille
 
            .Range("A1") = "Groupe " & Chr(64 + I) 'titre
 
            'évite la 1ère feuille afin de laisser les lettres A
            If I > 1 Then
 
                'boucle sur les cellules contenant des valeurs constantes
                For Each Cel In .Cells.SpecialCells(2)
 
                    'contrôle que la valeur après la lettre est une valeur numérique
                    'afin de ne pas modifier les mots comme "TOTAL"
                    If IsNumeric(Mid(Cel.Value, 2, 1)) Then
 
                        Cel.Value = Replace(Cel.Value, "A", Chr(64 + I), , , 0)
 
                    End If
 
                Next Cel
 
            End If
 
        End With
 
    Next I
 
    'rafraîchi
    Application.ScreenUpdating = True
 
End Sub

Comme vous pouvez le voir, je ne sais vraiment comment imbriquer les If "Condition1" Then "instructions" Elself "Condition2" Then "instruction 2"...

Merci d'avance pour votre aide