onglets dans listbox

[DIGGERJACK]

Bonsoir à tous
Je voudrais pouvoir récupérer la liste des onglets dans la listbox pour pouvoir imprimer les feuilles que je souhaites après sélection dans cette listbox en sachant qu'il me faut exclure la feuil1.
Je serais amener par la suite à masquer une feuille ou l'afficher en fonction de différents besoins et pour chaque cas
Feuille masquée : elle ne doit pas apparaître dans la listbox ni la feuil1
Feuille affichée : elle doit apparaître dans la listbox mais toujours pas de feuil 1

Merci de votre aide
Pierrejean m'avait déjà dépanné sur ce dossier mais par la perte de mon ordi et du crash sur l'hébergeur je dosi revoir tout à zéro
Pierrejean si tu as gardé ce dossier pense à moi
Bonne soirée
Diggerjack

 

[Catrice]

Re : onglets dans listbox

Bonsoir,

voir exemple dans la fichier joint.
Remplacer PrintPreview par PrintOut

 

[bqtr]

Re : onglets dans listbox

Bonsoir DIGGERJACK

En attendant que Pierrejean passe par là, Regarde si cela te convient.

Le bouton imprimer n'est pas actif, seul l'alimentation de la listbox est traitée.
Les feuilles masquées ne sont pas listées.
Si besoin, je te ferai le code pour l'impression.

bonne soirée

 

[papapaul]

Re : onglets dans listbox

🙄 Bonsoir,
Un début de solution peut-être
A voir😎

 

[DIGGERJACK]

Re : onglets dans listbox

Bonjour à tous
Merci pour votre aide si précieuse
Le dossier de BQTR me va très bien
J'ai rajouté deux options dans la lixtbox : le choix multiple et la case qu'on peut cochezr devant les numéros de feuilles

Si tu as le temps peux tu me faire le code pour l'impression
Merci pour tout à toi et aux autres (catrice et papapaul)

Bonne journée et bon week end
Diggerjack

 

[Catrice]

Re : onglets dans listbox

Bonjour,

Tu as regardé mon code ?!
Il fait la multiselection et l'impression .......

 

[bqtr]

Re : onglets dans listbox

Bonjour,

Ton fichier modifié, le bouton imprimer imprime les feuilles sélectionnées dans la ListBox.

Effectivement Catrice, tu avais tout fait en une seule fois 🙂

Bonne fin de journée

 

[DIGGERJACK]

Re : onglets dans listbox

Bonsoir le forum Catrice et BQTR

Merci beaucoup pour la programmation BQTR

Excuses moi Catrice mais lorsque j'ai testé ton fichier en direct ( sans l'enregistrer sur mon disque dur) et en ayant fait les modifications annoncées il y avait un bug, c'est pour cela que j'ai retenu le dossier de BQTR.
Depuis ta remarque et celle de BQTR, j'ai enregistré ton dossier sur mon disque dur , fait les modifs et depuis tout marche pourquoi comment ? ? ? ? ?
Merci en tout cas à tous les deux vous m'avez bien dépanné

Bonne soirée à tous
Diggerjack

 

[Catrice]

Re : onglets dans listbox

Y a pas de pb.
En fait quand on ouvre un fichier Excel in situ dans Internet Explorer le comportement des macros est différent.
Peut etre à cause des fichiers temporaires créés ?...

 

[Ilino]

Re : onglets dans listbox

Bonjour,

Ton fichier modifié, le bouton imprimer imprime les feuilles sélectionnées dans la ListBox.

Effectivement Catrice, tu avais tout fait en une seule fois 🙂

Bonne fin de journée

Bonjour Forum
Je bénéficie de ce fil, je post mon souci :
Comment faire pour afficher dans listeBox (les feuilles masquée et visible)
Merci

 

[Ilino]

Re : onglets dans listbox

Bonsoir Forum
puis je avoir votre aide?
GRAZIE

 

[Habitude]

Re : onglets dans listbox

Bonsoir

For Each sh In ThisWorkbook.Sheets: ListBox1.AddItem sh.Name: Next sh

 

[Ilino]

Re : onglets dans listbox

Bonsoir HABITUDE
Grazie pour la réponse ça fonctionne ; mais lors de l’exécution du bouton « Imprimer » j'ai un message d'erreur 1004:
La méthode select de la classe WordSheet a échoué
a ce niveau ci dessous dans le code : CommandButton3_Click()

Worksheets(.List(i)).Select

Merci
Le rajout de HABITUDE :

Private Sub UserForm_Initialize()
Dim wk As Worksheet

For Each wk In ThisWorkbook.Worksheets
If wk.Name <> "Feuil1" Then
If wk.Visible = True Then
ListBox1.AddItem wk.Name
End If
End If
Next

[B][U]For Each sh In ThisWorkbook.Sheets
If sh.Visible <> xlSheetVisible Then ListBox1.AddItem sh.Name
Next sh[/U][/B]

End Sub

 

[Habitude]

Re : onglets dans listbox

Re

Tu ne peux pas imprimer une feuille cachée

Tu dois mettre sont .visible à xlsheetvisible avant d'imprimer