Bjr,
J'ai un fichier sur lequel j'ai caché pas mal de ligne
Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui
s'imprime
Y aurait il un moyen pour ne pas imprimer les pages blanches
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
Colle ceci dans le ThisWorkbook de ton classeur :
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ActiveWindow.SelectedSheets
If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Sh.PrintOut
End If
Next
End Sub
'--------------------------
Est-ce que tu es satisfait ?
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
94001B84-2AA5-42B7-8584-E9A5C9172A7D@microsoft.com...
Bjr,
J'ai un fichier sur lequel j'ai caché pas mal de ligne
Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui
s'imprime
Y aurait il un moyen pour ne pas imprimer les pages blanches
Merci d'avance
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
rs
Le quoi Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
Le quoi
Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ActiveWindow.SelectedSheets
If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Sh.PrintOut
End If
Next
End Sub
'--------------------------
Est-ce que tu es satisfait ?
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
94001B84-2AA5-42B7-8584-E9A5C9172A7D@microsoft.com...
Bjr,
J'ai un fichier sur lequel j'ai caché pas mal de ligne
Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui
s'imprime
Y aurait il un moyen pour ne pas imprimer les pages blanches
Merci d'avance
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
MichDenis
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et un objet appelé ThisWorkbook , tu double-cliques sur ce dernier et tu colles le code dans la page blanche sur la droite.
"rs" a écrit dans le message de news:
Le quoi Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur
le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et
un objet appelé ThisWorkbook , tu double-cliques sur ce dernier
et tu colles le code dans la page blanche sur la droite.
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
7081BF97-BD06-44EE-BD4E-A1D87BAAFC48@microsoft.com...
Le quoi
Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ActiveWindow.SelectedSheets
If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Sh.PrintOut
End If
Next
End Sub
'--------------------------
Est-ce que tu es satisfait ?
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
94001B84-2AA5-42B7-8584-E9A5C9172A7D@microsoft.com...
Bjr,
J'ai un fichier sur lequel j'ai caché pas mal de ligne
Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui
s'imprime
Y aurait il un moyen pour ne pas imprimer les pages blanches
Merci d'avance
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et un objet appelé ThisWorkbook , tu double-cliques sur ce dernier et tu colles le code dans la page blanche sur la droite.
"rs" a écrit dans le message de news:
Le quoi Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
rs
j'ai essayé ça m'imprime quand meme les pages avec l'entete donc plus de 8 pages blanches
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et un objet appelé ThisWorkbook , tu double-cliques sur ce dernier et tu colles le code dans la page blanche sur la droite.
"rs" a écrit dans le message de news:
Le quoi Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
j'ai essayé
ça m'imprime quand meme les pages avec l'entete donc plus de 8 pages blanches
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur
le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et
un objet appelé ThisWorkbook , tu double-cliques sur ce dernier
et tu colles le code dans la page blanche sur la droite.
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
7081BF97-BD06-44EE-BD4E-A1D87BAAFC48@microsoft.com...
Le quoi
Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ActiveWindow.SelectedSheets
If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Sh.PrintOut
End If
Next
End Sub
'--------------------------
Est-ce que tu es satisfait ?
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
94001B84-2AA5-42B7-8584-E9A5C9172A7D@microsoft.com...
Bjr,
J'ai un fichier sur lequel j'ai caché pas mal de ligne
Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui
s'imprime
Y aurait il un moyen pour ne pas imprimer les pages blanches
Merci d'avance
j'ai essayé ça m'imprime quand meme les pages avec l'entete donc plus de 8 pages blanches
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et un objet appelé ThisWorkbook , tu double-cliques sur ce dernier et tu colles le code dans la page blanche sur la droite.
"rs" a écrit dans le message de news:
Le quoi Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
MichDenis
Dans la procédure soumise, tu adaptes cette ligne de code : If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Si tes 5 premières lignes sont des lignes de "titre" ...., donc toujours utilisé dans les feuilles de ton application, la procédure deviendrait ... (à toi d'adapter ceci dans la procédure : Range("6:65536")
'------------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets ss = Application.Count(Sh.Range("$6:$65536").SpecialCells(xlCellTypeVisible)) If Application.Count(Sh.Range("6:65536").SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '-------------------------------------
"rs" a écrit dans le message de news:
j'ai essayé ça m'imprime quand meme les pages avec l'entete donc plus de 8 pages blanches
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et un objet appelé ThisWorkbook , tu double-cliques sur ce dernier et tu colles le code dans la page blanche sur la droite.
"rs" a écrit dans le message de news:
Le quoi Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
Dans la procédure soumise, tu adaptes cette ligne de code :
If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Si tes 5 premières lignes sont des lignes de "titre" ...., donc toujours
utilisé dans les feuilles de ton application, la procédure deviendrait ...
(à toi d'adapter ceci dans la procédure : Range("6:65536")
'-------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ActiveWindow.SelectedSheets
ss = Application.Count(Sh.Range("$6:$65536").SpecialCells(xlCellTypeVisible))
If Application.Count(Sh.Range("6:65536").SpecialCells(xlCellTypeVisible)) > 0 Then
Sh.PrintOut
End If
Next
End Sub
'-------------------------------------
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
463ECC94-CA8C-4C15-B876-CE7D007089FB@microsoft.com...
j'ai essayé
ça m'imprime quand meme les pages avec l'entete donc plus de 8 pages blanches
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur
le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et
un objet appelé ThisWorkbook , tu double-cliques sur ce dernier
et tu colles le code dans la page blanche sur la droite.
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
7081BF97-BD06-44EE-BD4E-A1D87BAAFC48@microsoft.com...
Le quoi
Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ActiveWindow.SelectedSheets
If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Sh.PrintOut
End If
Next
End Sub
'--------------------------
Est-ce que tu es satisfait ?
"rs" <rsnouci@hotmail.fr> a écrit dans le message de news:
94001B84-2AA5-42B7-8584-E9A5C9172A7D@microsoft.com...
Bjr,
J'ai un fichier sur lequel j'ai caché pas mal de ligne
Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui
s'imprime
Y aurait il un moyen pour ne pas imprimer les pages blanches
Merci d'avance
Dans la procédure soumise, tu adaptes cette ligne de code : If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then
Si tes 5 premières lignes sont des lignes de "titre" ...., donc toujours utilisé dans les feuilles de ton application, la procédure deviendrait ... (à toi d'adapter ceci dans la procédure : Range("6:65536")
'------------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets ss = Application.Count(Sh.Range("$6:$65536").SpecialCells(xlCellTypeVisible)) If Application.Count(Sh.Range("6:65536").SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '-------------------------------------
"rs" a écrit dans le message de news:
j'ai essayé ça m'imprime quand meme les pages avec l'entete donc plus de 8 pages blanches
Ouvre l'éditeur de code : Raccourci clavier : Alt + F11
dans la section de gauche Fenêtre VBA-Project, tu double-cliques sur le classeur sur lequel tu travailles, tu y vois la liste des objets "Feuil" et un objet appelé ThisWorkbook , tu double-cliques sur ce dernier et tu colles le code dans la page blanche sur la droite.
"rs" a écrit dans le message de news:
Le quoi Tu dois penser que je suis un peu nul
Colle ceci dans le ThisWorkbook de ton classeur :
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet On Error Resume Next For Each Sh In ActiveWindow.SelectedSheets If Application.Count(Sh.UsedRange.SpecialCells(xlCellTypeVisible)) > 0 Then Sh.PrintOut End If Next
End Sub '--------------------------
Est-ce que tu es satisfait ?
"rs" a écrit dans le message de news:
Bjr, J'ai un fichier sur lequel j'ai caché pas mal de ligne Le pb c'est qu'à l'impression j'ai plusisuers pages vide avec l'entete qui s'imprime Y aurait il un moyen pour ne pas imprimer les pages blanches Merci d'avance
