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

XL 2010 Modifier un code d'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
R

rosabelle

XLDnaute Junior
Bonsoir à tous,

J'aurais besoin d'un coup de pouce pour compléter ce code que vous m'aviez donné pour imprimer en noir et blanc et uniquement les zones pour lesquelles mes formules donnent un résultat :

Public Sub Imprimerzonespleines()
Dim n As Long

n = 9
With Feuil16
.Unprotect Password:="toto"
Do
If .Cells(n + 1, 1).Value = "" Then .Rows(n + 1).Hidden = True
n = n + 1
Loop While .Cells(n + 1, 1).Formula <> ""
With .PageSetup
.BlackAndWhite = True
.PrintArea = "$A1:G" & n
End With
.PrintOut Preview:=True
.Rows.Hidden = False
.Protect Password:="transall", UserInterFaceOnly:=True
End With

End Sub

Ce code fonctionne mais je ne sais pas comment indiquer que en plus les cellules :
A35:C35
et A36:C36
doivent aussi obligatoirement être imprimées

Merci par avance pour votre aide
Je vous souhaite de bonnes fêtes de fin d'année
 
Solution
Re

Je te propose cette solution qui remplace tout ton code

VB: 
Sub Imprimerzonesremplies()

Application.ScreenUpdating = False
Dim Derlig&, Derlig1&

With Feuil1
    .Unprotect Password:="toto"
    Derlig = .Range("B" & Rows.Count).End(xlUp).Row + 1
    Derlig1 = .Range("G" & Rows.Count).End(xlUp).Row - 1
    .Rows(Derlig & ":" & Derlig1).EntireRow.Hidden = True    'Masque les lignes vides

    With .PageSetup
        .BlackAndWhite = True
        .PrintArea = "$A$1:$G$36"
    End With
    .PrintPreview    'Prévisualisation
    .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False    'Lance l'impression
    .Rows(Derlig & ":" & Derlig1).EntireRow.Hidden = False    'Démasque les lignes vides
    .Protect Password:="toto"...
Trier par date Trier par votes
Bonjour,

Merci beaucoup @Phil69970 d'avoir pris le temps en cette période de "fêtes" de répondre à ma question.
J'ai bien noté pour le mot de passe.😕
J'ai collé le bout de code que vous avez ajouté et cela fonctionne très bien (j'ai juste modifié la zone supplémentaire à imprimer) :

Public Sub Imprimerzonespleines()
Dim n As Long

n = 9
With Feuil16
.Unprotect Password:="toto"
Do
If .Cells(n + 1, 1).Value = "" Then .Rows(n + 1).Hidden = True
n = n + 1
Loop While .Cells(n + 1, 1).Formula <> ""
With .PageSetup
.BlackAndWhite = True
.PrintArea = "$A$1:G" & n & ",$A$31:$G$36"
End With
.PrintOut Preview:=True
.Rows.Hidden = False
.Protect Password:="toto", UserInterFaceOnly:=True
End With

End SubPublic Sub Imprimerzonespleines()
Dim n As Long

n = 9
With Feuil16
.Unprotect Password:="transall"
Do
If .Cells(n + 1, 1).Value = "" Then .Rows(n + 1).Hidden = True
n = n + 1
Loop While .Cells(n + 1, 1).Formula <> ""
With .PageSetup
.BlackAndWhite = True
.PrintArea = "$A$1:G" & n & ",$A$31:$G$36"
End With
.PrintOut Preview:=True
.Rows.Hidden = False
.Protect Password:="transall", UserInterFaceOnly:=True
End With

End Sub

Le seul problème c'est que cela m'imprime systématiquement sur 2 pages alors que j'ai très peu d'infos et cela devrait tenir sur une seule....
Y a t il une solution?
Je joins mon fichier que j'ai anonymisé.
Merci par avance
 

Pièces jointes

Vote positif 0 Vote négatif
Re

Je te propose cette solution qui remplace tout ton code

VB: 
Sub Imprimerzonesremplies()

Application.ScreenUpdating = False
Dim Derlig&, Derlig1&

With Feuil1
    .Unprotect Password:="toto"
    Derlig = .Range("B" & Rows.Count).End(xlUp).Row + 1
    Derlig1 = .Range("G" & Rows.Count).End(xlUp).Row - 1
    .Rows(Derlig & ":" & Derlig1).EntireRow.Hidden = True    'Masque les lignes vides

    With .PageSetup
        .BlackAndWhite = True
        .PrintArea = "$A$1:$G$36"
    End With
    .PrintPreview    'Prévisualisation
    .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False    'Lance l'impression
    .Rows(Derlig & ":" & Derlig1).EntireRow.Hidden = False    'Démasque les lignes vides
    .Protect Password:="toto", UserInterFaceOnly:=True
End With

End Sub

*Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif
Solution
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

M
  • Question Question
Microsoft 365 Modifier code et format textbox
2 3
Réponses
35
Affichages
2 K
Marvin57
M
M
  • Question Question
Microsoft 365 Imprimer deux zones d'impression provenant de deux onglets sur une seule feuille
Réponses
5
Affichages
622
herve62
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
821
berru76
B
R
  • Résolu(e)
Autres Problème code VBA "objet requis"
2
Réponses
15
Affichages
2 K
rosabelle
R
J
  • Question Question
XL 2016 Transformer un nouveau Tableau à double entrée en liste en VBA - impossibilité d'adapter le code
2
Réponses
23
Affichages
2 K
patricktoulon
D
  • Question Question
Microsoft 365 VBA Problème dans un évènement Before Save
Réponses
5
Affichages
957
danielco
D
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
942
Yann71
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
J
  • Résolu(e)
XL 2016 Placer des données dans un fichier Excel avec un code VBA
Réponses
2
Affichages
863
Staple1600
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
M
  • Résolu(e)
XL 2016 Pb avec code VBA
Réponses
10
Affichages
1 K
MickaeL_D
M
L
  • Question Question
XL 2016 Aide code VBA verrouillage de la structure d'un onglet
Réponses
2
Affichages
1 K
laurent67
L
R
  • Question Question
Microsoft 365 Créer des fichiers PDF pour chaque personne et les envoyer à un destinataire unique
Réponses
1
Affichages
735
kiki29
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
3 K
Usine à gaz
  • Question Question
Microsoft 365 simuler clic sur un bouton macro
Réponses
12
Affichages
2 K
Usine à gaz
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
L
  • Question Question
XL 2019 Supprimer le fond d'une checkBox
Réponses
1
Affichages
1 K
Hasco
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
S
  • Résolu(e)
Microsoft 365 Optimisation / accélération execution code VBA
Réponses
13
Affichages
2 K
spike29
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…