Discussion :

[Mehdi8793]

Bonjour,

J'espère que tout vas bien pour vous. Je suis sur le dév d'une application vba et je suis confronté à un problème. Je n'arrive pas à créer en automatique plusieurs onglets. Les onglets portent diffénrents noms que j'ai mis dnas un select Case. Voici mon code.

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
Sub Nom_Moteur()
'
' Nom_Moteur Macro
' Permet d'attribuer un nom à la colonne afin de nommer le moteur.
 
 
'
    Range("B1:G1").Select
    ActiveCell.FormulaR1C1 = "EP6CDTX"
    Range("B2").Select
 
End Sub
 
    Sub ajout_moteur()
     Dim resultat As String
 
 
    resultat = InputBox("Veuillez ajouter un moteur svp", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
 
     If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
        MsgBox resultat
     End If
 End Sub
 
Sub générer_onglet()
 
Dim resultat As String
 
 
instance = Array("Synthèse 3m", "Synthèse 12m", "Synthèse 24m", "TD 3m EP6CDTX", "TD 12m EP6CDTX", "TD 24m EP6CDTX", "TD 3m EP6CDT", "TD 12m EP6CDT", "TD 24m EP6CDT", "TP 3m EP6CDTX", "TP 12m EP6CDTX", "TP 24m EP6CDTX", "TP 3m EP6CDT", "TP 12m EP6CDT", "TP 24m EP6CDT", "CD 3m EP6CDTX", "CD 12m EP6CDTX", "CD 24m EP6CDTX", "CD 3m EP6CDT", "CD 12m EP6CDT", "CD 24m EP6CDT")
 
For m = LBound(instance) To UBound(instance)
 
 
Select Case instance(m)
 
'SYNTHESE
 
    Case "Synthèse 3m":
    onglet = "Synthèse 3m"
 
    Case "Synthèse 12m":
    onglet = "Synthèse 12m"
 
    Case "Synthèse 24m":
    onglet = "Synthèse 24m"
 
'TD CDTX
 
     Case "TD 3m EP6CDTX":
    onglet = "TD 3m EP6CDTX"
 
    Case "TD 12m EP6CDTX":
    onglet = "TD 12m EP6CDTX"
 
    Case "TD 24m EP6CDTX":
    onglet = "TD 24m EP6CDTX" '
 
'TD CDT
 
    Case "TD 3m EP6CDT":
    onglet = "TD 3m EP6CDT" '
 
    Case "TD 12m EP6CDT":
    onglet = "TD 12m EP6CDT" '
 
    Case "TD 24m EP6CDT":
    onglet = "TD 24m EP6CDT" '
 
'TP CDTX
 
    Case "TP 3m EP6CDTX":
    onglet = "TP 3m EP6CDTX"
 
    Case "TP 12m EP6CDTX":
    onglet = "TP 12m EP6CDTX"
 
    Case "TP 12m EP6CDTX":
    onglet = "TP 12m EP6CDTX"
 
'TP CDT
 
     Case "TP 3m EP6CDT":
    onglet = "TP 3m EP6CDT"
 
    Case "TP 12m EP6CDT":
    onglet = "TP 12m EP6CDT"
 
    Case "TP 24m EP6CDT":
    onglet = "TP 24m EP6CDT" '
 
 'CD DTX
 
    Case "CD 3m EP6CDTX":
    onglet = "CD 3m EP6CDTX" '
 
    Case "CD 12m EP6CDTX":
    onglet = "CD 12m EP6CDTX" '
 
    Case "CD 24m EP6CDTX":
    onglet = "CD 3m EP6CDTX" '
 
'CD CDT
 
    Case "CD 3m EP6CDT":
    onglet = "CD 3m EP6CDT" '
 
    Case "CD 3m EP6CDT":
    onglet = "CD 3m EP6CDT" '
 
    Case "CD 3m EP6CDT":
    onglet = "CD 3m EP6CDT" '
 
    Sheets.Add After:=Sheets(Sheets.Count)
End Select
Next m
 
Sheets(onglet).Name = onglet
End Sub

Dans ce code il y a :

Sub générer_onglet() : c'est ici que je souhaite automatiser mes onglets.

Quelles démarche suivre après cela? j'ai bien mes 21 onglets qui s'instancie, mais sa ne se créé pas.

Est-il possible de plus en fonction d'une valeur demandé par un inputbox d'atribuer le nom que l'on veux dans chaque 1er ligne de la "feuille 2", la ou il ya marqué TOTO. ( demander le nom dans une boite de dialogue et elle s'ajoute à cette emplacement pour tout mes onglets.)



Je vous remercie de votre aide.


Cordialement