Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Impression

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Moreno076

XLDnaute Impliqué
Bonsoir à tous.
Je voudrais rajouter à cette macro la condition d'imprimer que les lignes remplies

Sub IMPRESSION()
'
' IMPRESSION Macro
'

Range("A:A").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Range("B2").Select
End Sub

Une solution? Merci

 
Trier par date Trier par votes
Bonsoir Moreno076,

En effet il faut masquer les lignes qu'on ne veut pas imprimer.

Mais quelles colonnes doivent être vides pour qu'on masque une ligne ?

A priori j'utiliserai le filtre avancé.

A+
 
Vote positif 0 Vote négatif
job75 à dit:
Bonsoir Moreno076,

En effet il faut masquer les lignes qu'on ne veut pas imprimer.

Mais quelles colonnes doivent être vides pour qu'on masque une ligne ?

A priori j'utiliserai le filtre avancé.

A+
Cliquez pour agrandir...
Bonsoir.
Dans ma macro la colonne A se masque c'est ce que je veux après il peut y avoir 5 10 100 lignes, ca depend. Il faut que toutes les lignes soient imprimées sauf vides.

A+
 
Vote positif 0 Vote négatif
A priori d'après l'image il s'agit d'imprimer les colonnes B:N :
VB: 
Sub Impression()
With ActiveSheet 'à adapter
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1 '1 page en largeur
    .PageSetup.PrintArea = "B:N" 'zone d'impression
    .[O2] = "=COUNTIF(B2:N2,""><"")+COUNT(B2:N2)" 'critère de filtrage
    .[A:N].AdvancedFilter xlFilterInPlace, .[O1:O2] 'filtre avancé
    '.PrintPreview 'pour tester
    .PrintOut 'pour imprimer
    .[O2] = ""
    If .FilterMode Then .ShowAllData
End With
End Sub
Edit 1 : j'avais oublié de mettre le Zoom à False.

Edit 2 : s'il y a des valeurs d'erreur elles seront traitées comme les vides.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
65
vazvaz
V
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
380
Helios77
H
S
  • Résolu(e)
XL 2016 Ne pas imprimer si 0 dans une cellule
Réponses
14
Affichages
413
AtTheOne
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
84
CortoXls
C
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
467
ph.vanne
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
156
Phil69970
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
280
cdric78
C
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
211
sylvanu
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
42
un internaute
U
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
566
candido57
C
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
403
Phil69970
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
65
job75
S
  • Question Question
XL 2016 Erreur dans fonction VBA
Réponses
2
Affichages
384
sylvanu
O
  • Question Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
375
Oddoneju
O
A
  • Résolu(e)
XL 2010 Impression par VBA
Réponses
4
Affichages
608
Appo1985
A
R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
151
dysorthographie
  • Résolu(e)
XL 2010 amélioration code
Réponses
3
Affichages
93
jeanmi
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
103
danielco
D
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
380
micie1509
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
173
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…