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?