Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Imprimer lignes remplie

Imprimer lignes remplie

12 réponses
Avatar
Tibert
Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j’ai fait plusieurs
macro pour les imprimer, j’aurais voulu savoir si dans ma macro ci-dessous je
peux indiqué d’imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
jps
heu, Tibert, les lignes vides ne s'impriment que très rarement...perso, je
ne l'ai pas encore vu...
jps

"Tibert" a écrit dans le message de news:

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j’ai fait plusieurs
macro pour les imprimer, j’aurais voulu savoir si dans ma macro ci-dessous
je
peux indiqué d’imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________



Avatar
Paul V
;-))))

Tu ris, JPS, et Tibert est en colère.

Paul V

"jps" a écrit dans le message de news:

heu, Tibert, les lignes vides ne s'impriment que très rarement...perso, je
ne l'ai pas encore vu...
jps

"Tibert" a écrit dans le message de news:

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro
ci-dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________






Avatar
JB
Bonjour,

Les lignes totalement vides du champ sont masquées.

Sub essai()
Set champ = Range("$A$1:$F$30")
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
n = champ.Columns.Count
champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
For i = 1 To champ.Rows.Count
If Application.CountA(champ.Cells(i, 1).Resize(1, n)) = 0 Then
Union(Selection, champ.Cells(i, 1)).Select
End If
Next i
Selection.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = champ.Address
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
End Sub

Cordialement JB

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro ci-dessou s je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________


Avatar
jps
après cette sortie ovidienne, peut-être eût-il mieux fallu parler de
Tibère....
jps

"Paul V" a écrit dans le message de news:

;-))))

Tu ris, JPS, et Tibert est en colère.

Paul V

"jps" a écrit dans le message de news:

heu, Tibert, les lignes vides ne s'impriment que très rarement...perso,
je ne l'ai pas encore vu...
jps

"Tibert" a écrit dans le message de news:

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait
plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro
ci-dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________










Avatar
Sayane
Et il n'existerai pas la meme chose mais avec des lignes qui
contiennent des formules mais renvoyant des valeurs "vides" ?



Merci c'est exatement la macro qui me fallait, sa fonctionne impeccable.
Bonne fête @+


Bonjour,

Les lignes totalement vides du champ sont masquées.

Sub essai()
Set champ = Range("$A$1:$F$30")
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
n = champ.Columns.Count
champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
For i = 1 To champ.Rows.Count
If Application.CountA(champ.Cells(i, 1).Resize(1, n)) = 0 Then
Union(Selection, champ.Cells(i, 1)).Select
End If
Next i
Selection.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = champ.Address
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
End Sub

Cordialement JB

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait plusi eurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro ci-de ssous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________








Avatar
jps
s'il vous plaît, monsieur JB....
ça arrache pourtant pas la g.... et même pas l'excuse du CDO
jps

"Sayane" a écrit dans le message de news:

Et il n'existerai pas la meme chose mais avec des lignes qui
contiennent des formules mais renvoyant des valeurs "vides" ?



Merci c'est exatement la macro qui me fallait, sa fonctionne impeccable.
Bonne fête @+


Bonjour,

Les lignes totalement vides du champ sont masquées.

Sub essai()
Set champ = Range("$A$1:$F$30")
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
n = champ.Columns.Count
champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
For i = 1 To champ.Rows.Count
If Application.CountA(champ.Cells(i, 1).Resize(1, n)) = 0 Then
Union(Selection, champ.Cells(i, 1)).Select
End If
Next i
Selection.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = champ.Address
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
End Sub

Cordialement JB

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait
plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro
ci-dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________








Avatar
Paul V
Cela m'a fait penser à ce vieux proverbe chinois:

Pha bonhjhour, pha mher si, phaO rhevhoir, cé khakha

Je ne suis pas sur de la transcription des idiotsgrammes chinois mais le
sens est tres clair pour celui qui pratique un peu le petit negre.

A+

Paul V

"jps" a écrit dans le message de news:
%
s'il vous plaît, monsieur JB....
ça arrache pourtant pas la g.... et même pas l'excuse du CDO
jps

"Sayane" a écrit dans le message de news:

Et il n'existerai pas la meme chose mais avec des lignes qui
contiennent des formules mais renvoyant des valeurs "vides" ?



Merci c'est exatement la macro qui me fallait, sa fonctionne impeccable.
Bonne fête @+


Bonjour,

Les lignes totalement vides du champ sont masquées.

Sub essai()
Set champ = Range("$A$1:$F$30")
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
n = champ.Columns.Count
champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
For i = 1 To champ.Rows.Count
If Application.CountA(champ.Cells(i, 1).Resize(1, n)) = 0 Then
Union(Selection, champ.Cells(i, 1)).Select
End If
Next i
Selection.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = champ.Address
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
End Sub

Cordialement JB

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait
plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro
ci-dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________











Avatar
JB
Bonjour,

Sub masqueVides2()
Set champ = Range("$A$1:$F$30")
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
n = champ.Columns.Count
champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
For i = 1 To champ.Rows.Count
k = 0
For Each c In champ.Cells(i, 1).Resize(1, n)
If c <> 0 And c <> "" Then k = k + 1
Next c
If k = 0 Then Union(Selection, champ.Cells(i, 1)).Select
Next i
Selection.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = champ.Address
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
End Sub

http://cjoint.com/?mDrFAqAKJ7

JB



Et il n'existerai pas la meme chose mais avec des lignes qui
contiennent des formules mais renvoyant des valeurs "vides" ?



Merci c'est exatement la macro qui me fallait, sa fonctionne impeccable.
Bonne fête @+


Bonjour,

Les lignes totalement vides du champ sont masquées.

Sub essai()
Set champ = Range("$A$1:$F$30")
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
n = champ.Columns.Count
champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
For i = 1 To champ.Rows.Count
If Application.CountA(champ.Cells(i, 1).Resize(1, n)) = 0 Then
Union(Selection, champ.Cells(i, 1)).Select
End If
Next i
Selection.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = champ.Address
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
End Sub

Cordialement JB

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait plu sieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro ci- dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=Tr ue
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________










Avatar
jps
:-))))))
quelle frite, notre popaul! l'année 2006 ne lui aura pas été trop pesante,
semble-t-il....
jps

"Paul V" a écrit dans le message de news:
%
Cela m'a fait penser à ce vieux proverbe chinois:

Pha bonhjhour, pha mher si, phaO rhevhoir, cé khakha

Je ne suis pas sur de la transcription des idiotsgrammes chinois mais le
sens est tres clair pour celui qui pratique un peu le petit negre.

A+

Paul V

"jps" a écrit dans le message de news:
%
s'il vous plaît, monsieur JB....
ça arrache pourtant pas la g.... et même pas l'excuse du CDO
jps

"Sayane" a écrit dans le message de news:

Et il n'existerai pas la meme chose mais avec des lignes qui
contiennent des formules mais renvoyant des valeurs "vides" ?



Merci c'est exatement la macro qui me fallait, sa fonctionne impeccable.
Bonne fête @+


Bonjour,

Les lignes totalement vides du champ sont masquées.

Sub essai()
Set champ = Range("$A$1:$F$30")
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
n = champ.Columns.Count
champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
For i = 1 To champ.Rows.Count
If Application.CountA(champ.Cells(i, 1).Resize(1, n)) = 0 Then
Union(Selection, champ.Cells(i, 1)).Select
End If
Next i
Selection.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = champ.Address
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
End Sub

Cordialement JB

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait
plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro
ci-dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________















Avatar
LSteph
Bonjour,

La différence:

Tibére rit et la caisse passe
JPS Rit et la Ferrari aussi!

chris de C ..Calice de D...Ostie de L et T de tabernouet

Voili qui cordialement ponctuat, itaque Ovidius magnus dixit

LSteph

après cette sortie ovidienne, peut-être eût-il mieux fallu parler de
Tibère....
jps

"Paul V" a écrit dans le message de news:

;-))))

Tu ris, JPS, et Tibert est en colère.

Paul V

"jps" a écrit dans le message de news:

heu, Tibert, les lignes vides ne s'impriment que très
rarement...perso, je ne l'ai pas encore vu...
jps

"Tibert" a écrit dans le message de news:

Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait
plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro
ci-dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________













1 2