Ne pas imprimer lignes vides vba
KERSM
Messages postés
29
Statut
Membre
-
KERSM -
KERSM -
Bonjour,
J'ai un tableau excel 2007 et je travaille sur vba avec macro.
je voudrais imprimer mon tableau sans les lignes vides c'est à dire
imprimer les lignes de "V209:Z249" sans les lignes vides s'il y en a en sachant que les formules du tableau sont masquées , et avec le code appercu avant impression. le bouton 1 correspond à "APPERCU AVANT IMPRESSION" et le bouton 2 correspond à "IMPRIMER".
Quequ'un peut m'aider s'il vous plait
Merci
KERSM
J'ai un tableau excel 2007 et je travaille sur vba avec macro.
je voudrais imprimer mon tableau sans les lignes vides c'est à dire
imprimer les lignes de "V209:Z249" sans les lignes vides s'il y en a en sachant que les formules du tableau sont masquées , et avec le code appercu avant impression. le bouton 1 correspond à "APPERCU AVANT IMPRESSION" et le bouton 2 correspond à "IMPRIMER".
Quequ'un peut m'aider s'il vous plait
Merci
KERSM
Configuration: Windows / Chrome 49.0.2623.112
7 réponses
-
Bonjour,
"et avec le code apercu avant impression. le bouton 1 correspond à "APPERCU AVANT IMPRESSION" et le bouton 2 correspond à "IMPRIMER". "
Qu'est-ce que tu veux dire ? Est-ce qu'on peut masquer temporairement les lignes vides du tableau ?
Cordialement.
Daniel -
-
Salut éric,
Ta formule marche très bie mais ce n'est pas ce que j'attends car à chaque fois je dois décocher VIDE quand je rajoute une ligne ou plus
Merci quand même mais j'attends d'autres réponses de ce que je voulais dans ma première question
KERSM -
Bonjour Daniel,
Merci pour votre réponse, j'ai fais un essai et ça ne marche pas puis je remplacer Sub test par le bouton N° 1 "APERÇU AVANT IMPRESSION" et le bouton N°2 "IMPRIMER" s'il vous plait, car je veux passer par le bouton N°1 avant d'actionner le bouton N°2.
Merci de m'aider
KERSM -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
salut Daniel,
j'ai deux boutons de commande... N°1 "Aperçu avant impression" N°2 "Imprimer" , comment puis je recomposer le code que vous m'avez donné dans votre dernier message.
Merci de me répondre
KERSM -
Bonjour Daniel,
Excusez moi je n'ai toujours pas de réponse de votre part concernant mon dernier message daté du 25 Mars à 6h47.
Merci de me répondre
Cordialement
KERSM -
BONJOUR DANIELCO
J'ATTENDS TOUJOURS UNE REPONSE DE VOTRE PART
MERCI
KERSM-
-
-
-
- Bonjour,
Si la solution d'eric ne te convient pas, esssaie :
Sub test() Dim C As Range, L As Long L = Range("V209:Z1000000").Find("*", [Z1000000], , , xlByRows, xlPrevious).Row For i = L To 209 Step -1 If Application.CountA(Cells(i, "V").Resize(, 5)) = 0 Then Rows(i).Hidden = True End If Next i Range("V209", Cells(L, 26)).PrintOut Range("V209", Cells(L, 26)).EntireRow.Hidden = False End Sub
Daniel
-
