j'ai une macro qui filtre des données de A5 à la colonne G
A la fin de cette macro j'aimerais qu'une boite de dialogue s'ouvre pour me
proposer de faire
soit un aperçu soit une impression de A3 à la celulle G????
le G??? est la dernière cellule remplie suite à un filtre
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
Denis Michon
Bonjour David 02,
Si tu n'appelles pas l'impression du document directement de la fenêtre Aperçu avant impression cette ligne de code : .PageSetup.PrintArea = "" de la procédure peut te causer problème, en ce sens qu'elle enlève la définitiion de la zone d'impression. Si tu fermes la fenêtres "Aperçu avant impression" et que tu lances l'impression, tu vas imprimer la feuille et non seulement la zone de résultat de ton filtre. A toi d'adapter selon tes besoins.
'Ajoute ceci à la déclaration des variables de ta procédure. Dim Rg As Range, Rg1 As Range
'Ajoute cette section à la suite de ta macro exécutant un filtre en adaptant le nom de la feuille où est le filtre.
If MsgBox("Désirez-vous avoir un aperçu avant impression ?", _ vbYesNo + vbInformation, "Aperçu avant impression") = vbYes Then
With Worksheets("Feuil2") Set Rg = .Range("_FilterDataBase") Set Rg1 = Rg.Offset(-1).Resize(Rg.Rows.Count + 1, Rg.Columns.Count) .PageSetup.PrintArea = Rg1.Address Rg1.PrintPreview .PageSetup.PrintArea = "" End With End If
'Insère ceci comme dernière ligne à ta procédure. Set Rg = Nothing: Set Rg1 = Nothing
Salutations!
"David 02" a écrit dans le message de news:bo2r50$qj1$ XP PRO - Excel 2000
re bonjour
j'ai une macro qui filtre des données de A5 à la colonne G
A la fin de cette macro j'aimerais qu'une boite de dialogue s'ouvre pour me proposer de faire soit un aperçu soit une impression de A3 à la celulle G????
le G??? est la dernière cellule remplie suite à un filtre
ligne 3, un titre ligne 4, les entetes
merci de votre aide
Bonjour David 02,
Si tu n'appelles pas l'impression du document directement de la fenêtre Aperçu avant impression cette ligne de code :
.PageSetup.PrintArea = "" de la procédure peut te causer problème, en ce sens qu'elle enlève la définitiion de la zone
d'impression. Si tu fermes la fenêtres "Aperçu avant impression" et que tu lances l'impression, tu vas imprimer la
feuille et non seulement la zone de résultat de ton filtre. A toi d'adapter selon tes besoins.
'Ajoute ceci à la déclaration des variables de ta procédure.
Dim Rg As Range, Rg1 As Range
'Ajoute cette section à la suite de ta macro exécutant un filtre en adaptant le nom de la feuille où est le filtre.
If MsgBox("Désirez-vous avoir un aperçu avant impression ?", _
vbYesNo + vbInformation, "Aperçu avant impression") = vbYes Then
With Worksheets("Feuil2")
Set Rg = .Range("_FilterDataBase")
Set Rg1 = Rg.Offset(-1).Resize(Rg.Rows.Count + 1, Rg.Columns.Count)
.PageSetup.PrintArea = Rg1.Address
Rg1.PrintPreview
.PageSetup.PrintArea = ""
End With
End If
'Insère ceci comme dernière ligne à ta procédure.
Set Rg = Nothing: Set Rg1 = Nothing
Salutations!
"David 02" <direction-ternoise@wanadoo.fr> a écrit dans le message de news:bo2r50$qj1$1@news-reader2.wanadoo.fr...
XP PRO - Excel 2000
re bonjour
j'ai une macro qui filtre des données de A5 à la colonne G
A la fin de cette macro j'aimerais qu'une boite de dialogue s'ouvre pour me
proposer de faire
soit un aperçu soit une impression de A3 à la celulle G????
le G??? est la dernière cellule remplie suite à un filtre
Si tu n'appelles pas l'impression du document directement de la fenêtre Aperçu avant impression cette ligne de code : .PageSetup.PrintArea = "" de la procédure peut te causer problème, en ce sens qu'elle enlève la définitiion de la zone d'impression. Si tu fermes la fenêtres "Aperçu avant impression" et que tu lances l'impression, tu vas imprimer la feuille et non seulement la zone de résultat de ton filtre. A toi d'adapter selon tes besoins.
'Ajoute ceci à la déclaration des variables de ta procédure. Dim Rg As Range, Rg1 As Range
'Ajoute cette section à la suite de ta macro exécutant un filtre en adaptant le nom de la feuille où est le filtre.
If MsgBox("Désirez-vous avoir un aperçu avant impression ?", _ vbYesNo + vbInformation, "Aperçu avant impression") = vbYes Then
With Worksheets("Feuil2") Set Rg = .Range("_FilterDataBase") Set Rg1 = Rg.Offset(-1).Resize(Rg.Rows.Count + 1, Rg.Columns.Count) .PageSetup.PrintArea = Rg1.Address Rg1.PrintPreview .PageSetup.PrintArea = "" End With End If
'Insère ceci comme dernière ligne à ta procédure. Set Rg = Nothing: Set Rg1 = Nothing
Salutations!
"David 02" a écrit dans le message de news:bo2r50$qj1$ XP PRO - Excel 2000
re bonjour
j'ai une macro qui filtre des données de A5 à la colonne G
A la fin de cette macro j'aimerais qu'une boite de dialogue s'ouvre pour me proposer de faire soit un aperçu soit une impression de A3 à la celulle G????
le G??? est la dernière cellule remplie suite à un filtre
