Discussion :

[buhrne]

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 :

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

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.

[decondelite]

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.

[jmh51]

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 :

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
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...

[buhrne]

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 :

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

1
2
3
 
Sheets(Array(".......")).select
activewindow.selectedsheets.printout ....

[decondelite]

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.

[buhrne]

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 :

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

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???

[decondelite]

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 :

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

Dim liste_feuilles() As String, taille_tableau As Integer

Et en haut du module:

Code :

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

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 :

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

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?

[buhrne]

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 :

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

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

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

[decondelite]

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

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

Code :

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

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

[buhrne]

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.

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) mais dont j'ai un peu de mal à comprendre la substance.

[decondelite]

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 :

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

For i = 1 To .ListCount

[buhrne]

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!!!

[decondelite]

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.

[buhrne]

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 :

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

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

[decondelite]

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 :

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

Option Base 1

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

Code :

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

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.

[buhrne]

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.

[frednts]

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

[buhrne]

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

Code :

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

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

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

[decondelite]

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.

[frednts]

@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.