Ne pas afficher feuilles dans Liste

[aubelix]

Re Bonjour à tous les amis du Forum. 🙂

Sur le point de finaliser mon projet grâce à vous amis du Forum.
je me retourne vers vous pour la requête ci-dessous :

En cliquant sur "IMPRESSION de FICHES", un USF s'ouvre avec diverses
options (Merci le Forum et l'auteur de ce Bijou) avec entre supprimer
des Fiches. Comment ne pas afficher les feuilles :
1BASE, 1MODELE et 1REFERENCES pour éviter de les supprimer par
mégarde. 😡
Voir Fichier Joint.

Par avance Merci pour votre aide.
Cordialement.

 

[youky(BJ)]

Re : Ne pas afficher feuilles dans Liste

Bonjour Obelix,
Voici un nouveau code à remplacer

Bruno

Private Sub UserForm_Initialize()
 Dim hwnd As Long, Style As Long
 Dim Ws As Worksheet
    For Each Ws In Worksheets
   [COLOR="Red"] If Ws.Name <> "1Base" Or Ws.Name <> "1REFERENCES" Or Ws.Name [/COLOR]<> "1MODELE" Then
       FrmImprime.LbFeuilles.AddItem Ws.Name
   [COLOR="red"] End If[/COLOR]  
  Next Ws
Call maiqueDocumentsListbox
Application.EnableEvents = False
LbClasseurs.Value = ActiveWorkbook.Name
Application.EnableEvents = True
End Sub

 

[Paritec]

Re : Ne pas afficher feuilles dans Liste

Bonjour Aubelix Youky,
bon alors moi j'avais fait comme Bruno
sauf que le listbox est chargée plusieurs fois !!!! à la suite
bref j'ai modifié regardes et dis nous
a+
Papou 🙂

 

[JCGL]

Re : Ne pas afficher feuilles dans Liste

Bonjour à tous,

Dans la Sub maiqueFeuillesListbox()

Remplace la ligne :

If AvailableSheet.Visible = xlSheetVisible And AvailableSheet.Name <> "Feuil1" Then

Par :

If AvailableSheet.Visible = xlSheetVisible And AvailableSheet.Name <> "1BASE" And AvailableSheet.Name <> "1REFERENCES" And AvailableSheet.Name <> "1MODELE" Then

A+ à tous

Edition : Salut à Youky et Papou

 

[aubelix]

Re : Ne pas afficher feuilles dans Liste

Bonjour Youky, Paritex,JCGL 🙂

Merci pour vos réponses respectives. J'ai pris le temps de les tester
toutes les 3 par respect à votre travail.
Elles foctionnent. C'est le résultat que j'escomptais.

Une fois de plus Merci.
Cordialement.