Bonjour,
Cette macro imprime la plage de donn es sur laquelle tu as effectu un fil tre,
C'est- -dire la plage de donn es que tu as s lectionn e avant d'appeler l a
commande "Filtre" ou "Filtre avanc ". Si tu n'as pas restreint le filtre une
section d'un tableau en te contentant de placer seulement le curseur dans le
tableau des donn es, c'est tout le tableau qui sera affich .
Colle ceci dans un MODULE STANDARD :
'-------------------------------------
Sub Imprimer_R sultat_Filtre()
With Worksheets("Feuil1") 'Nom de la feuille adater
If .FilterMode = True Then
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("_FilterDataBase").Addres s
'Apr s test si tout est correct, tu changes
'PrintPreview pour PrintOut
.PrintPreview '.printOut
.PageSetup.PrintArea = ""
Else
MsgBox "Aucun filtre est pr sent sur la feuille."
End If
End With
End Sub
'-------------------------------------
Si chaque fois que tu cliques sur le bouton imprimer de la barre d'outils de la feuille de calcul,
tu veux TOUJOURS imprimer seulement la plage filtr e, tu peux utiliser la proc dure
v nementielle suivante du ThisWorkbook pour lancer la proc dure "Imprimer _R sultat_Filtre"
'------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If Sh.Name = "Feuil1" Then ' nom de la feuille imprimer adap ter
Application.EnableEvents = False
Call Imprimer_R sultat_Filtre
Application.EnableEvents = True
Cancel = True
End If
Next
End Sub
'------------------------------------------------------------------
MichD
------------------------------------------
"herv " a crit dans le message de groupe de discussion :
bonjour
Apr s avoir s lectionne plusieurs colonnes d'une feuille, je
souhaiterais imprimer automatiquement tout les r sultats du filtre
s lectionne, je suis pas sur d' tre clair.
si vous avez compris merci de votre aide
Bonjour,
Cette macro imprime la plage de donn es sur laquelle tu as effectu un fil tre,
C'est- -dire la plage de donn es que tu as s lectionn e avant d'appeler l a
commande "Filtre" ou "Filtre avanc ". Si tu n'as pas restreint le filtre une
section d'un tableau en te contentant de placer seulement le curseur dans le
tableau des donn es, c'est tout le tableau qui sera affich .
Colle ceci dans un MODULE STANDARD :
'-------------------------------------
Sub Imprimer_R sultat_Filtre()
With Worksheets("Feuil1") 'Nom de la feuille adater
If .FilterMode = True Then
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("_FilterDataBase").Addres s
'Apr s test si tout est correct, tu changes
'PrintPreview pour PrintOut
.PrintPreview '.printOut
.PageSetup.PrintArea = ""
Else
MsgBox "Aucun filtre est pr sent sur la feuille."
End If
End With
End Sub
'-------------------------------------
Si chaque fois que tu cliques sur le bouton imprimer de la barre d'outils de la feuille de calcul,
tu veux TOUJOURS imprimer seulement la plage filtr e, tu peux utiliser la proc dure
v nementielle suivante du ThisWorkbook pour lancer la proc dure "Imprimer _R sultat_Filtre"
'------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If Sh.Name = "Feuil1" Then ' nom de la feuille imprimer adap ter
Application.EnableEvents = False
Call Imprimer_R sultat_Filtre
Application.EnableEvents = True
Cancel = True
End If
Next
End Sub
'------------------------------------------------------------------
MichD
------------------------------------------
"herv " a crit dans le message de groupe de discussion :
384d2552-faae-41e1-9539-12eb58305...@f3g2000yqf.googlegroups.com...
bonjour
Apr s avoir s lectionne plusieurs colonnes d'une feuille, je
souhaiterais imprimer automatiquement tout les r sultats du filtre
s lectionne, je suis pas sur d' tre clair.
si vous avez compris merci de votre aide
Bonjour,
Cette macro imprime la plage de donn es sur laquelle tu as effectu un fil tre,
C'est- -dire la plage de donn es que tu as s lectionn e avant d'appeler l a
commande "Filtre" ou "Filtre avanc ". Si tu n'as pas restreint le filtre une
section d'un tableau en te contentant de placer seulement le curseur dans le
tableau des donn es, c'est tout le tableau qui sera affich .
Colle ceci dans un MODULE STANDARD :
'-------------------------------------
Sub Imprimer_R sultat_Filtre()
With Worksheets("Feuil1") 'Nom de la feuille adater
If .FilterMode = True Then
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("_FilterDataBase").Addres s
'Apr s test si tout est correct, tu changes
'PrintPreview pour PrintOut
.PrintPreview '.printOut
.PageSetup.PrintArea = ""
Else
MsgBox "Aucun filtre est pr sent sur la feuille."
End If
End With
End Sub
'-------------------------------------
Si chaque fois que tu cliques sur le bouton imprimer de la barre d'outils de la feuille de calcul,
tu veux TOUJOURS imprimer seulement la plage filtr e, tu peux utiliser la proc dure
v nementielle suivante du ThisWorkbook pour lancer la proc dure "Imprimer _R sultat_Filtre"
'------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If Sh.Name = "Feuil1" Then ' nom de la feuille imprimer adap ter
Application.EnableEvents = False
Call Imprimer_R sultat_Filtre
Application.EnableEvents = True
Cancel = True
End If
Next
End Sub
'------------------------------------------------------------------
MichD
------------------------------------------
"herv " a crit dans le message de groupe de discussion :
bonjour
Apr s avoir s lectionne plusieurs colonnes d'une feuille, je
souhaiterais imprimer automatiquement tout les r sultats du filtre
s lectionne, je suis pas sur d' tre clair.
si vous avez compris merci de votre aide
Bonjour,
Cette macro imprime la plage de donn es sur laquelle tu as effectu un filtre,
C'est- -dire la plage de donn es que tu as s lectionn e avant d'appeler la
commande "Filtre" ou "Filtre avanc ". Si tu n'as pas restreint le filtre une
section d'un tableau en te contentant de placer seulement le curseur dans le
tableau des donn es, c'est tout le tableau qui sera affich .
Colle ceci dans un MODULE STANDARD :
'-------------------------------------
Sub Imprimer_R sultat_Filtre()
With Worksheets("Feuil1") 'Nom de la feuille adater
If .FilterMode = True Then
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("_FilterDataBase").Address
'Apr s test si tout est correct, tu changes
'PrintPreview pour PrintOut
.PrintPreview '.printOut
.PageSetup.PrintArea = ""
Else
MsgBox "Aucun filtre est pr sent sur la feuille."
End If
End With
End Sub
'-------------------------------------
Si chaque fois que tu cliques sur le bouton imprimer de la barre d'outils de la feuille de calcul,
tu veux TOUJOURS imprimer seulement la plage filtr e, tu peux utiliser la proc dure
v nementielle suivante du ThisWorkbook pour lancer la proc dure "Imprimer_R sultat_Filtre"
'------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If Sh.Name = "Feuil1" Then ' nom de la feuille imprimer adapter
Application.EnableEvents = False
Call Imprimer_R sultat_Filtre
Application.EnableEvents = True
Cancel = True
End If
Next
End Sub
'------------------------------------------------------------------
MichD
------------------------------------------
"herv " a crit dans le message de groupe de discussion :
bonjour
Apr s avoir s lectionne plusieurs colonnes d'une feuille, je
souhaiterais imprimer automatiquement tout les r sultats du filtre
s lectionne, je suis pas sur d' tre clair.
si vous avez compris merci de votre aide
Bonjour,
Cette macro imprime la plage de donn es sur laquelle tu as effectu un filtre,
C'est- -dire la plage de donn es que tu as s lectionn e avant d'appeler la
commande "Filtre" ou "Filtre avanc ". Si tu n'as pas restreint le filtre une
section d'un tableau en te contentant de placer seulement le curseur dans le
tableau des donn es, c'est tout le tableau qui sera affich .
Colle ceci dans un MODULE STANDARD :
'-------------------------------------
Sub Imprimer_R sultat_Filtre()
With Worksheets("Feuil1") 'Nom de la feuille adater
If .FilterMode = True Then
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("_FilterDataBase").Address
'Apr s test si tout est correct, tu changes
'PrintPreview pour PrintOut
.PrintPreview '.printOut
.PageSetup.PrintArea = ""
Else
MsgBox "Aucun filtre est pr sent sur la feuille."
End If
End With
End Sub
'-------------------------------------
Si chaque fois que tu cliques sur le bouton imprimer de la barre d'outils de la feuille de calcul,
tu veux TOUJOURS imprimer seulement la plage filtr e, tu peux utiliser la proc dure
v nementielle suivante du ThisWorkbook pour lancer la proc dure "Imprimer_R sultat_Filtre"
'------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If Sh.Name = "Feuil1" Then ' nom de la feuille imprimer adapter
Application.EnableEvents = False
Call Imprimer_R sultat_Filtre
Application.EnableEvents = True
Cancel = True
End If
Next
End Sub
'------------------------------------------------------------------
MichD
------------------------------------------
"herv " a crit dans le message de groupe de discussion :
384d2552-faae-41e1-9539-12eb58305...@f3g2000yqf.googlegroups.com...
bonjour
Apr s avoir s lectionne plusieurs colonnes d'une feuille, je
souhaiterais imprimer automatiquement tout les r sultats du filtre
s lectionne, je suis pas sur d' tre clair.
si vous avez compris merci de votre aide
Bonjour,
Cette macro imprime la plage de donn es sur laquelle tu as effectu un filtre,
C'est- -dire la plage de donn es que tu as s lectionn e avant d'appeler la
commande "Filtre" ou "Filtre avanc ". Si tu n'as pas restreint le filtre une
section d'un tableau en te contentant de placer seulement le curseur dans le
tableau des donn es, c'est tout le tableau qui sera affich .
Colle ceci dans un MODULE STANDARD :
'-------------------------------------
Sub Imprimer_R sultat_Filtre()
With Worksheets("Feuil1") 'Nom de la feuille adater
If .FilterMode = True Then
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("_FilterDataBase").Address
'Apr s test si tout est correct, tu changes
'PrintPreview pour PrintOut
.PrintPreview '.printOut
.PageSetup.PrintArea = ""
Else
MsgBox "Aucun filtre est pr sent sur la feuille."
End If
End With
End Sub
'-------------------------------------
Si chaque fois que tu cliques sur le bouton imprimer de la barre d'outils de la feuille de calcul,
tu veux TOUJOURS imprimer seulement la plage filtr e, tu peux utiliser la proc dure
v nementielle suivante du ThisWorkbook pour lancer la proc dure "Imprimer_R sultat_Filtre"
'------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If Sh.Name = "Feuil1" Then ' nom de la feuille imprimer adapter
Application.EnableEvents = False
Call Imprimer_R sultat_Filtre
Application.EnableEvents = True
Cancel = True
End If
Next
End Sub
'------------------------------------------------------------------
MichD
------------------------------------------
"herv " a crit dans le message de groupe de discussion :
bonjour
Apr s avoir s lectionne plusieurs colonnes d'une feuille, je
souhaiterais imprimer automatiquement tout les r sultats du filtre
s lectionne, je suis pas sur d' tre clair.
si vous avez compris merci de votre aide