Sélection de feuilles via une liste cochable

Bonjour tout le monde.

Voilà mon énigme.
Je souhaiterais, via une imputbox ou autre, faire apparaitre la liste des feuilles non masquées dans mon classeur afin de sélectionner celles que l'on veut imprimer.

Ensuite à partir de cette sélectioin lancer un bout de code du genre :

Code:

---

1 2 3

Sheets(Array("Feuil1", "Feuil2",....)).selected ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

Mais je ne sais pas comment créer un listing cochable de mes feuilles.
J'ai essayé à partir d'un usf mais mon niveau vba est trop limité et j'étais vite bloqué.

Help please.

Tu as besoin de la propriété Visible pour trouver quelles feuilles sont visibles.
Tu dois parcourir ta collection Sheets, et à chaque feuille, si elle est visible, tu rajoute un label et un checkbox (le label servira de texte à coté du checkbox: ce sera le nom de la feuille) dynamiquement dans ton userform.

Tu auras grandement besoin de cette FAQ:
http://excel.developpez.com/faq/?pag...laireDynamique

Bon courage: ça ne sera pas facile du tout, car en plus tu dois programmer un espacement entre chaque "ligne" de ton userform, et aussi le redimensionner automatiquement en fonction du nombre de lignes. ;)

Voici un bout de code...

Mais auparavant, tu dois créer une userform avec 1 Listbox et 2 Commandbutton. Dans les paramètres de la Listbox, il faut choisir pour le paramètre Multiselect l'option 1 - fmMultiSelectMulti

J'espère que ça t'aidera...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click()   For Each ws In Worksheets UserForm1.ListBox1.AddItem (ws.Name) Next ws   End Sub   Private Sub CommandButton2_Click()   For i = 0 To UserForm1.ListBox1.ListCount - 1   If UserForm1.ListBox1.Selected(i) = True Then Sheets(UserForm1.ListBox1.List(i)).Select Sheets(UserForm1.ListBox1.List(i)).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="NOM DE L'IMPRIMANTE", Collate:=True ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ ' "HP DeskJet 930C/932C/935C on Ne03:", Collate:=True End If Next i End Sub

---

Bon courage...

Merci pour ton code, c'est exactement ici que j'en étais arrivé.
J'ai mon usf avec un listbox contenant l'ensemble de mes feuilles visibles.

Le problème avec ton code c'est que les feuilles sont imprimées une par une. Or en pied de page j'ai une pagination m'indiquant page/pages. Et du coup avec ce code toutes mes pages ont en pied : 1/1, ce qui ne convient pas.

Je pensais plus à une selection globale regroupant tous les items selectionnés :

Code:

---

1 2 3

Sheets(Array(".......")).select activewindow.selectedsheets.printout ....

---

Essaye déjà d'enregistrer:
-sélection de plusieurs feuilles (avec la touche Ctrl)
-et enregistrement

L'enregistreur de macros est ton ami, et il répondra à la plupart de tes questions. ;)

Justement quand je fais une selection à la souris de mes pages ça va bien, je sais faire, mais là c'est en fonction des items selectionnés dans la listbox.

Avec ce code je sens que je suis pas loin de la solution mais je tourne autour sans mettre le doigt dessus:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Msg As String, i As Integer Msg = "" With UserForm1.ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) Then Msg = Msg & Sheets(UserForm1.ListBox1.List(i)) End If Next i End With   MsgBox Msg, , "Les feuilles à imprimer sont...." Sheets(Array(Msg)).PrintOut copies:=1, collate:=True Unload Me

---

Le message box me disant les feuilles à imprimer n'est pas d'une grande utilitée, mais c'est la suite qui m'interesse.

Qqun a une idée???

Non tu n'y es pas. ;)

Ce qu'il faut faire, c'est créer une variable tableau dynamique, tableau que tu agrandis d'une case et complète à chaque fois que tu rencontre une sélection.

Rajoute donc ceci en début de procédure:

Code:

---

Dim liste_feuilles() As String, taille_tableau As Integer

---

Et en haut du module:

Code:

---

Option Base 1

---

Pour parcourir ta Listbox, c'est le bon code, mais il faut que tu modifies l'intérieur de ta condition comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If .Selected(i) Then On Error Resume Next taille_tableau = UBound(liste_feuilles) If Err.Number <> 0 Then taille_tableau = 1 ReDim liste_feuilles(1) Err.Clear Else taille_tableau=taille_tableau + 1 ReDim Preserve liste_feuilles(taille_tableau) End If listes_feuilles(taille_tableau) = Sheets(i).Name On Error GoTo 0 End If

---

Tu n'auras plus qu'à passer ton tableau liste_feuilles dans ton Printout. ;)

Vu que je t'ai fait ce code, tu es prié de bien l'assimiler et le comprendre. Il utilise la gestion des tableaux dynamiques et la gestion des erreurs (pour ma part je fais toujours comme ça: c'est bien et ça mange pas de pain).

Je n'ai rien testé: est-ce que ça marche?

En effet j'ai besoin d'une petite explication de texte sur ton code.
Mais pour l'instant il ne fonctionne pas quand je rajoute :

Code:

---

1 2	liste_feuilles.PrintOut copies:=1, collate:=True

---

il me surligne liste_feuilles et me dit "Qualificateur incorrect".

Normal: tu n'as pas compris que liste_feuilles était un tableau! :mrgreen:

La fonction Array() te renvoie un tableau, donc tu mets liste_feuilles à la place de Array, comme ça:

Code:

---

Sheets(liste_feuilles).PrintOut copies:=1, collate:=True

---

Erreur "9"

L'indice n'appartient pas à la selection.


Maintenant j'ai bien intégré le fait que liste_feuilles est un tableau, mais je crois que ça pose un pb à excel.:aie:

Si j'ai bien compris tu scan la listbox et tu inscrit dans un tableau les items selectionnés.
Ce que je n'ai pas pigé c'est comment tu peux lui dire d'imprimer d'un coup l'ensemble des données de ce tableau.

Désolé si ça parait trop lent mais ça fait 6 mois que je vivote sous VBA et là tu me sors un truc super aboutit (mille mercis:king:) mais dont j'ai un peu de mal à comprendre la substance.

Oups je n'avais pas vu: c'est dans ton script qu'il y a un problème.

Les feuilles d'un classeur commencent à l'indice 1, pas à l'indice 0. ;)

Donc tu change très légèrement ta boucle for:

Code:

---

For i = 1 To .ListCount

---

Toujours la même erreur mais ça explique un phénomène bizarre que j'avais avec un autre ligne de code sur cette procédure!!!

Essaye d'exécuter au pas à pas ta procédure (touche F8), et dis-moi à quel endroit il plante. ;)

Ou alors tu me donne ton classeur, et je trouverai facilement d'où ça vient.

Alors :

1. Quand je selectionne 1 item dans ma listbox, ton code fonctionne, cependant il imprime la feuille se trouvant avant (dans mon classeur) celle indiquée dans la listbox. J'ai essayé de remettre le compteur à partir de 0 dans ma boucle for..next, mais rien à faire.

2. Quand je selectionne plusieurs item, ça plante en "erreur 9, L'indice ne se trouve pas dans la selection", à cet endroit :

Code:

---

1 2	Sheets(liste_feuilles).PrintOut copies:=1, collate:=True

---

Je pense avoir trouvé la raison: à mon avis Sheets ne supporte pas les tableaux commençant à l'indice 1, ce qui expliquerait le décalage de 1 et le plantage à cet endroit.

Donc finalement tu supprime cette ligne:

Code:

---

Option Base 1

---

Et tu mets ce code à la place de celui proposé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If .Selected(i) Then On Error Resume Next taille_tableau = UBound(liste_feuilles) If Err.Number <> 0 Then taille_tableau = 0 ReDim liste_feuilles(0) Err.Clear Else taille_tableau=taille_tableau + 1 ReDim Preserve liste_feuilles(taille_tableau) End If listes_feuilles(taille_tableau) = Sheets(i).Name On Error GoTo 0 End If

---

J'espère que ce coup-ci ça marche. ;)

Bonne nouvelle, ça imprime une sélection multiple d'items.
Par contre ça décale toujours les feuilles.

La première page imprimé est celle se trouvant avant dans mon classeur et du coup la dernière selectionnée n'est pas imprimée.

Je comprend toujours pas ce décalage.

J'ai essayé en recalant la boucle sur 1.

ça ne doit pas venir du code. A mon avis c'est un autre truc inérent à excel.
Mais on tient le bon bout.

Salut,
Au lieu de charger dans ton tableau le nom de la feuille correspondant à l'indice, charge la valeur de ta ligne de ta listbox. ca évitera les soucis de base d'indice ;)

Cdt,

Frednts

A priori en compensant ce décalage, ça fonctionne :

Code:

---

1 2	liste_feuilles(taille_tableau) = Sheets(i + 1).Name

---

:mrgreen:

A voir si ça tient la route, mais à priori oui.
En tous cas merci pour ton acharnement thérapeutique et pour tes explications.;)

C'est vraiment pas du tout évident quand on a pas de support pour comprendre qu'est-ce qui ne colle pas. ;)

@frednts:
Ca je n'en suis pas convaincu: si tu charge le tableau avec les mêmes données il n'y a pas de raison que le résultat soit différent. ;)

@decodelite,

Si :
Il y a un soucis de décalage : l'indice de la combo commence à 0, celui des feuilles à 1, puisque buhrne incrémente son indice pour récupérer le nom de la feuille à prendre.
Si il charge directement son tableau de noms avec le texte de sa ligne de combo (qu'il a initialement chargé avec la liste des noms de feuilles), il aura tout de suite le bon nom par rapport à sa ligne sélectionnée.