Insertion d'onglet par variable

Version imprimable

Bonjour le forum,

j'ai crée un userform avec des checkbox (exactement 12 ,une pour chaque mois)

exemple de ce que j'ai fait pour chaque mois dans l'userform
Code:

1 2 3 4 5 6 7 8 Public booljanvier As Boolean Private Sub CheckBox_janvier_Click() If UserForm_fournisseur.CheckBox_janvier.Value = True Then booljanvier = True Else booljanvier = False End If End Sub
ce que je souhaite est de créer une copie des onglets correspondants aux checkbox selectionées dans un nouv fichier.

voici le début de mon code pour créer le fichier avec les deux onglets que je copie
Code:

1 2 ' Créer un nouv fichier Sheets(Array("COMMUNICATION", "TCD")).Copy
Merci de votre aide!! :)

Bonsoir,

Pour créer dynamiquement autant de Checkbox que d'onglets dans le classeur,
à l'affichage de la UserForm :

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
Private CbBoxs() As MSForms.CheckBox
 
Private Sub UserForm_Activate()
 
    On Error GoTo INITCB
    If UBound(CbBoxs) > 1 Then
        Dim cbi As Integer
        For cbi = 1 To UBound(CbBoxs)
            Call UserForm1.Controls.Remove(CbBoxs(cbi).Name)
            Set CbBoxs(cbi) = Nothing
        Next cbi
    End If
    GoTo INIT_END
INITCB:
    ReDim CbBoxs(0)
INIT_END:
 
    On Error GoTo 0
 
    ReDim CbBoxs(Worksheets.Count)
    Dim ws As Worksheet
    cbi = 1
    For Each ws In Worksheets
        Set CbBoxs(cbi) = UserForm1.Controls.Add("Forms.CheckBox.1")
        CbBoxs(cbi).Top = (cbi - 1) * 20
        CbBoxs(cbi).Left = 10
        CbBoxs(cbi).Caption = ws.Name
        cbi = cbi + 1
    Next ws
 
 
End Sub

Pour déclencher la copie des onglets dans un nouveau classeur à la fermeture de la UserForm :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
       Dim wsList() As String
       Call GetWsToCopy(wsList)
       Sheets(wsList).Copy
End Sub
 
 
Public Sub GetWsToCopy(ByRef wsList() As String)
    ReDim wsList(0)
    Dim cbi As Integer
    For cbi = 1 To UBound(CbBoxs)
        If (CbBoxs(cbi).Value) Then
            ReDim Preserve wsList(UBound(wsList) + 1)
            wsList(UBound(wsList) - 1) = CbBoxs(cbi).Caption
        End If
    Next cbi
 
    If UBound(wsList) > 0 Then
        ReDim Preserve wsList(UBound(wsList) - 1)
    End If
 
End Sub

29/08/2012, 21h48
jean bapt'

merci!

:ccool:
29/08/2012, 21h50
BlueMonkey
Bonsoir,

Mais de rien. ;)
A+

P.S. :
Juste pour progresser, le code du post #1 :
Code:

1 2 3 4 5 6 If UserForm_fournisseur.CheckBox_janvier.Value = True Then booljanvier = True Else booljanvier = False End If
Ca revient à booljanvier = UserForm_fournisseur.CheckBox_janvier.Value