Discussion :

[pingoui]

Bonjour,

Je débute sur VBA et je n'arrive pas à selectionné plusieurs feuille pour les imprimer
Dans ma feuille suivi, j'ai une colonne avec le nom de mes feuilles et une autre ou je fait des croix pour choisir les feuilles à imprimer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim var As String
Dim NomFeuille As String
Dim Feuille As Worksheet
' on imprime en premier les cellules et les transfos
        For x = 14 To 51 Step 1
            var = Sheets("Suivi").Cells(x, 5).Value
            If var = "x" Then
                NomFeuille = Sheets("Suivi").Cells(x, 47).Value
                Feuille = Sheets(NomFeuille)
                ActiveWorkbook.Worksheets(Feuille.Index).Select
            End If
        Next x

[Basicnav]

Bonjour,

tu nous parle d'impression et en survolant vite fait ton code, je ne trouve nul part la fonction PrintOut.

Code :

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

Sheets("NomdetaFeuille").PrintOut

[pingoui]

Je ne faisait pas de PrintOut pour le moment car je chercher à sélectionner toute les feuilles pour les imprimer.... J'avais une erreur de compile
au niveau du

Code :

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

1
2
 
Feuille = Sheets(NomFeuille)

Mais

Code :

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

1
2
 
Sheets("NomdetaFeuille").PrintOut

fonctionne parfaitement

Merci beaucoup