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
KERSM - 16 avril 2019 à 13:26
A voir également:
- Ne pas imprimer lignes vides vba
- Journal de ma naissance gratuit à imprimer - Télécharger - Histoire & Religion
- Imprimer en a5 - Guide
- Comment signer un pdf sans l'imprimer - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Ne pas apparaître en ligne sur instagram - Guide
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
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
"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
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
21 mars 2019 à 19:54
Bonsoir Danielco
oui exactement
oui exactement
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
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
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
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
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
eric
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
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
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
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
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
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
23 mars 2019 à 13:29
BONJOUR DANIELCO
J'ATTENDS TOUJOURS UNE REPONSE DE VOTRE PART
MERCI
KERSM
J'ATTENDS TOUJOURS UNE REPONSE DE VOTRE PART
MERCI
KERSM
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
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
Houlaaa.
Sur le net majuscules =CRIER.
Je voulais apporter une proposition mais je préfère m'éclipser sur la pointe des pieds.
eric
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
23 mars 2019 à 13:46
désolé je ne voulais pas m'exprimer dans ce sens
je suis poli et reste poli
merci
kersm
je suis poli et reste poli
merci
kersm
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
23 mars 2019 à 14:03
Ajoute un filtre automatique sur tes titres et filtres les lignes vides.
eric
eric
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
23 mars 2019 à 19:54
Merci Eric,
Je vais essayer et je reviens vers vous
KERSM
Je vais essayer et je reviens vers vous
KERSM
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
24 mars 2019 à 16:54
Bonjour,
Si la solution d'eric ne te convient pas, esssaie :
Daniel
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