masquer les lignes vides

[evelynetfrancois]

bonjour a toutes et tous

voici un fichier joint pour essayer d'etre plus clair
la macro qui doit masquer les lignes vides mets 1 seconde a s'effectuer la premiere foisque je la lance puis la seconde fois il lui faut 45 secondes!!!!!!!!!!!
auriez-vous une explication ????
merci d'avance pour l'attentuion que vous porterez a mon soucis !


bonne journée
Evelynetfrancois

 

[Ti]

bon, ma réponse n'est pas passée, je la remets donc :

Private Sub CommandButton1_Click()
Dim Plage As Range
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet
Set Plage = .Range("A3:A300").Cells.SpecialCells(xlCellTypeBlanks)
If Not Plage Is Nothing Then Plage.Rows.Hidden = True
'.PrintPreview 'pour voir sans imprimer
.PrintOut
.Rows.Hidden = False
End With
End Sub

ça devrait aller mieux ainsi

 

[evelynetfrancois]

bonjour TI
merci pour ta rapidite
la macro effectivement est bien plus rapide , meme apres plusieurs relances
cependant elle m'imprime toutes les pages ( 6 )
bien quelles soit completement blanches ?????
l'autre macro n'imprime que la page remplis !!
as tu une idée ?
merci beaucoup

evelynetfrancois

 

[Ti]

oui, j'ai vu ça aussi, mais il suffira que tu rétablisses la zone d'impression pour que tout rentre dans l'ordre

menu Affichage...Aperçu des sauts de page

puis clic droit...Rétablir la zone d'impression

ensuite tu peux repasser en affichage normal

 

[evelynetfrancois]

en fait apparement ta macro ne semblait pas masquer les lignes vides au dessous de la derniere cellule remplis (apercu des sauts de pages)
je l'ai est masque une fois a la "main"
maintenant elles sont egalement masquer !!!!
je n'est pas d'explication tres clairs
merci a plus
bonne journée

 

[evelynetfrancois]

bonjour a toutes et tous et ti plus particulierement
pour evite d'avoir les feuilles blanches qui s'imprime bien quelles soit vierge j'ai rajouter un masquage de la plage plus un demasquage
Rows("1:300").Select
Selection.EntireRow.Hidden = True
Selection.EntireRow.Hidden = False
et là la zone d'impression se defini toutes seule !!!!
voici la macro

Private Sub CommandButton1_Click()
Dim Plage As Range
Application.ScreenUpdating = False
Rows("1:300").Select
Selection.EntireRow.Hidden = True
Selection.EntireRow.Hidden = False
ActiveSheet.PageSetup.PrintArea = "$a$1:$b$300"
On Error Resume Next
With ActiveSheet
Set Plage = .Range("A3:A1000").Cells.SpecialCells(xlCellTypeBlanks)
If Not Plage Is Nothing Then Plage.Rows.Hidden = True
.PrintOut
.Rows.Hidden = False
Range("a1").Select

merci pour tout
bonne journée

 

[evelynetfrancois]

bonjour ti

Set Plage = .Range("A3:A1000").Cells.SpecialCells(xlCellTypeBlanks)
If Not Plage Is Nothing Then Plage.Rows.Hidden = True

ne masque pas les cells contenent une formule!!!
aurais tu une idée

merci d'avance
et bonne journée
evelynetfrancois