Ne pas imprimer lignes vides vba

Fermé
KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019 - 21 mars 2019 à 13:50
 KERSM - 16 avril 2019 à 13:26
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



Configuration: Windows / Chrome 49.0.2623.112
A voir également:

7 réponses

danielc0 Messages postés 1298 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 30 novembre 2024 148
Modifié le 21 mars 2019 à 14:10
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
0
KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019
21 mars 2019 à 19:54
Bonsoir Danielco
oui exactement
0
KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019
23 mars 2019 à 20:37
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
0
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
23 mars 2019 à 22:33
Alors j'ai dans l'idée que ton tableau est mal conçu, et que tu as préparé des lignes en avance plutôt que de mettre en Tableau.
eric
0
KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019
25 mars 2019 à 06:47
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
0

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
0
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
0
KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019
23 mars 2019 à 13:29
BONJOUR DANIELCO
J'ATTENDS TOUJOURS UNE REPONSE DE VOTRE PART
MERCI
KERSM
-1
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
23 mars 2019 à 13:43
Bonjour,

Houlaaa.
Sur le net majuscules =CRIER.
Je voulais apporter une proposition mais je préfère m'éclipser sur la pointe des pieds.
eric
0
KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019
23 mars 2019 à 13:46
désolé je ne voulais pas m'exprimer dans ce sens
je suis poli et reste poli
merci
kersm
0
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
23 mars 2019 à 14:03
Ajoute un filtre automatique sur tes titres et filtres les lignes vides.
eric
0
KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019
23 mars 2019 à 19:54
Merci Eric,
Je vais essayer et je reviens vers vous
KERSM
0
danielc0 Messages postés 1298 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 30 novembre 2024 148 > KERSM Messages postés 29 Date d'inscription vendredi 15 septembre 2017 Statut Membre Dernière intervention 25 mars 2019
24 mars 2019 à 16:54
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
0