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
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
Philippe.R
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" a écrit dans le message de 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
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" <Nitotr@hotmail.com> a écrit dans le message de
news:ul8bnoCoIHA.4328@TK2MSFTNGP03.phx.gbl...
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
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" a écrit dans le message de 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