Sélectionner plusieurs feuilles à masquer dans une ListBox

Résolu/Fermé

hokousai Messages postés 7 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 16 novembre 2019 - Modifié le 11 oct. 2019 à 18:00
hokousai Messages postés 7 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 16 novembre 2019 - 12 oct. 2019 à 12:37

Bonsoir,
J'ai un UserForm dans lequel il y a une ListBox pour sectionner les feuilles à imprimer.
Je souhaiterai que certaine feuille ne soit pas visible dans la ListBox.
En sachant, que dans l'original du projet il y aura 5 à 6 Feuilles à masquer.
Ce code ci-dessous masque la feuille index.

Private Sub UserForm_Initialize()
Dim S As Worksheet
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
If Not S.Name = "Index" Then
ListBox1.AddItem S.Name
End If
Next
TextBox1 = 0
End Sub

Je ne trouve pas de code pour masquer plusieurs feuilles à la suite.
J’aurais besoin de votre aide.
Je vous remercie par avance.

A voir également:

Sélectionner plusieurs feuilles google sheet
Dns google - Guide
Google maps satellite - Guide
Google earth - Télécharger - 3D
Créer un compte google - Guide
Google meet pour pc - Télécharger - Messagerie

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 oct. 2019 à 18:12

Bonjour,

tu n'as pas besoin de les masquer!

Il suffit de sélectionner dans la ListBox les feuilles à imprimer comme ceci:

Option Explicit
Private Sub CommandButton1_Click()
 Dim i As Byte
 Dim nom As String
     'boucle sur les éléments de la listbox
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
      nom = ListBox1.List(i)
      MsgBox nom
      'mettre le code des feuilles à imprimer ici en se servant de la variable nom
    End If
    Next i
End Sub
Private Sub UserForm_Initialize()
Dim S As Worksheet
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
ListBox1.AddItem S.Name
Next
End Sub

Réponse 2 / 3

hokousai Messages postés 7 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 16 novembre 2019
11 oct. 2019 à 19:26

Merci Le Pivert,

Si j'ai bien compris, je dois lister les feuilles à imprimer plutôt que de masquer les feuilles que je ne veux pas lister ?
Voici ci-desous les code complet du UserForm :


Private Sub apercu_Click()

Dim i As Integer

UserForm1.Hide

With ListBox1
  For i = 0 To .ListCount - 1
    If .Selected(i) Then Sheets(.List(i)).PrintPreview
  Next
End With

UserForm1.Show

End Sub

Private Sub imprimer_Click()
Dim i As Integer
UserForm1.Hide

If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
    Exit Sub
Else
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then Sheets(.List(i)).PrintOut Copies:=TextBox1.Value
        Next
    End With
    UserForm1.Show
End If
End Sub


Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub ListBox1_Click()

For i = 0 To .ListCount - 1
   If ListBox1.Selected(i) Then Sheets(.List(i)).Select
   Next
End With

End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub UserForm_Initialize()
Dim S As Worksheet
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Worksheets
If Not S.Name = "Index" Then
ListBox1.AddItem S.Name
End If
Next
TextBox1 = 0
End Sub

Du coup je vois pas où mettre la variable :

Nom = array("Feuille1","Feuille2","Feuille3")

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 oct. 2019 à 19:52

comme ceci:

Private Sub CommandButton1_Click()
 Dim i As Byte
 Dim nom As String
     'boucle sur les éléments de la listbox
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
      nom = ListBox1.List(i)
      'mettre le code des feuilles à imprimer ici en se servant de la variable nom
  ActiveWorkbook.Sheets(nom).PrintOut
  End If
    Next i
End Sub

@+ Le Pivert

Réponse 3 / 3

hokousai Messages postés 7 Date d'inscription vendredi 11 octobre 2019 Statut Membre Dernière intervention 16 novembre 2019
12 oct. 2019 à 12:37

Bonjour Le Pivert,
Problème résolu.

Private Sub UserForm_Initialize()
Dim S As Worksheet
sh = Array("Index", "Feuil1", "Feuil2")
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
TextBox1 = 0
End Sub

Merci encore pour ton aide.

Discussions similaires

Si cellule contient...

Prélèvement Google Ireland Limited

Faire un retour à la ligne sur Google Sheet

Discussions similaires

Newsletters