Discussion :

[guismoman33]

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
22
23
 
Private Sub CommandButton2_Click()
Dim i As Integer
Dim fichier As Single
Dim impression As String
Dim bilan As String
Dim var As Single
Dim var2 As String
 
For i = 2 To 50
    var = Workbooks(1).Sheets(i).Cells(26, 10).Value
    If var <> "0" Then
        Workbooks(1).Sheets(i).PrintOut
    End If
    Exit For
Next i
 
    Worksheets(14).PrintOut
    Worksheets(15).PrintOut
 
 
 
End Sub

Il ne m'imprime que la feuille 14 et 15 pourquoi

[guismoman33]

J'aimerai qu'il regarde tte les case j26 de mon classeur et si cette case<>0 alors imprimer cette feuille je veut juste un script de ce genre est-ce possible??

[guismoman33]

sa sa marche maintenant mais le probleme c'est de définir ma boucle : en clair combien de page j'ai dan smon classeur?? y a t il une fonction qui donne le nombre de page de mon classeur

[Invité]

Salut

Essaye

Code :

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

1
2
 
Application.ThisWorkbook.Worksheets.Count

Starec

[cwain]

Code :

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

ActiveWorkbook.Sheets.Count

De rien

[guismoman33]

merci