Supprimer des lignes

Le
Nito
Bonjour à vous tous

J'aimerasi savoir commennt supprimer des lignes dans un tableau qui ne
contiennent rien avant de l'imprimer mais que ceux ci reprennent leur place
apres l'impression
EX:
De la ligne 15 à 25 quelque chose d'ecrit
de 26à 30 rien et 31 quelque chose

merci
Nito
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5440151
Bonjour,
On pourra donc masquer les lignes vides dans l'évènement Beforeprint

Private Sub Workbook_BeforePrint(Cancel As Boolean)
deRLig = Range("a6543").End(xlUp).Row
Range("a1:a" & deRLig).SpecialCells(xlCellTypeBlanks) _
.EntireRow.Hidden = True
End Sub

et les remontrer à la demande

Sub montrelig()
deRLig = Range("a6543").End(xlUp).Row
Range("a1:a" & deRLig).SpecialCells(xlCellTypeBlanks) _
.EntireRow.Hidden = False
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Nito" news:
Bonjour à vous tous

J'aimerasi savoir commennt supprimer des lignes dans un tableau qui ne
contiennent rien avant de l'imprimer mais que ceux ci reprennent leur
place apres l'impression
EX:
De la ligne 15 à 25 quelque chose d'ecrit
de 26à 30 rien et 31 quelque chose

merci
Nito




Publicité
Poster une réponse
Anonyme