Discussion :

[deus-ex-inferno]

Bonjour à tous,
Encore une fois, j'ai besoin de votre aide
Dans mon fichier, il y a un UserForm MultiPage
Sur la première page il y a une sélection de feuilles que j'ai indiquées avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sous-utilisateur privé UserForm_Initialize ()
Feuille de travail Dim S As
sh = Array ("Index", "Paramètres", "Feuil4", "Feuil5", "Feuil6")
ListBox1.MultiSelect = fmMultiSelectExtended
Pour chaque S dans les feuilles de calcul
t = Application.Match (S.Name, sh, 0)
Si IsError (t) Then
ListBox1.AddItem S.Name
Fin si
Prochain
TextBox1 = 0
End Sub

Je voudrais faire de même pour la page 2
mais qui s'affichera sur une autre feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh = Array ("Index", "Paramètres", "Feuil1", "Feuil2", "Feuil3")

Je suis un noob en VBA
je joins un fichier qui vous permettra de mieux comprendre.
Merci d'avance pour votre aide.
Fichiers joints Fichiers joints
Type de fichier: xlsm Projet test 0.2.xlsm (48.0 KB, 0 vues)

[jerome.vaussenat]

Salut,

C'est étonnant tu avais le code ... comme tu veux alimenter deux listbox, il faut faire le taf ... 2 fois.

Voici une proposition de 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
Private Sub UserForm_Initialize()
    Dim S As Worksheet
    sh = Array("Index", "Paramètres", "Feuil4", "Feuil5", "Feuil6")
    ListBox1.MultiSelect = fmMultiSelectExtended
    For Each S In Worksheets
        t = Application.Match(S.Name, sh, 0)
        If IsError(t) Then
            ListBox1.AddItem S.Name
        End If
    Next
    'mon ajout pour alimneter la seconde listeBox
    sh = Array("Index", "Paramètres", "Feuil1", "Feuil2", "Feuil3")
    For Each S In Worksheets
        t = Application.Match(S.Name, sh, 0)
        If IsError(t) Then
            ListBox2.AddItem S.Name
        End If
    Next
    TextBox1 = 0
End Sub

Je fait d'être sur des onglet différents, VBA s'en ... moque (pour rester poli)

GG
En espérant que c'est ce que tu veux.

[deus-ex-inferno]

Bonsoir,
Oui merci jerome.vaussenat
j'ai trouvé des codes qui conviennent "à mon sens" mieux pour la suite de mon projet.
par conte je pas trouvé le moyen d'adapter ce 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
Private Sub Enregistrer_1_seul_PDF_Click()
Dim k           As Long
    Dim varrSelected() As Variant
    Dim varrToSave  As Variant
    Dim shActiv     As Object
    k = -1
    Application.ScreenUpdating = False
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            k = k + 1
            ReDim Preserve varrSelected(0 To 1, 0 To k)
            varrToSave = varrToSave & "/" & ListBox1.List(i)
            varrSelected(0, k) = ListBox1.List(i)
            varrSelected(1, k) = ThisWorkbook.Sheets(varrSelected(0, k)).Visible
            ThisWorkbook.Sheets(varrSelected(0, k)).Visible = xlSheetVisible
        End If
    Next i
    If k > -1 Then
        Set shActiv = ActiveSheet
        varrToSave = Mid(varrToSave, 2)
        varrToSave = Split(varrToSave, "/")
        ThisWorkbook.Sheets(varrToSave).Select
        'Feuil2 is a CodeName of "Parametres" sheet
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\""\Desktop\Projet en cour\" & Feuil2.Range("C2").Value & ".pdf"
        shActiv.Select
        For i = 0 To UBound(varrSelected, 2)
            ThisWorkbook.Sheets(varrSelected(0, i)).Visible = varrSelected(1, i)
        Next i
        MsgBox "Selected sheets were saved in a PDF file.", vbInformation
    End If
    Application.ScreenUpdating = True
End Sub

pour imprimer les feuilles dans un seul PDF