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

Impression

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion VpierreV
  • Date de début Date de début

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
V

VpierreV

Guest
Bonjour à tous,

J'ai une question relative à l'impression.
Je vous décrit ce que j'aimerais faire avec un exemple :
"Si A33=1, j'imprime la page 1.
Sinon, j'imprime les pages 1 à 4." (ou Si A33=2 par exemple)

Est-ce possible?

Merci à ceux qui répondront.

P.S : je ne maîtrise pas du tout vba, donc je recherche d'abord une solution via Excel...
 
Trier par date Trier par votes
Re : Impression

Bonjour,

Désolé mais tu ne pourras pas effectuer cette opération sans passer par vba. Il est donc temps pour toi de faire tes premiers pas dans vba 😛. Pour te faciliter la tache, voici le code à copier / coller dans un module :

Code: 
Sub Impression()

If Cells(33, 1) = 1 Then
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Else
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1
End If

End Sub

Bonne journée
 
Vote positif 0 Vote négatif
Re : Impression

Merci âme charitable pour cette réponse rapide!

Je ne veux pas paraître pour quelqu'un qui attend qu'on lui fasse tout😀, mais du coup comme je suis "plongé" dans vba, peux-tu me rajouter les modifications du code pour faire :
"Si A33=1, imprimer page 1 de Données et page 1 de Résultats.
Sinon, imprimer page 1 de Données et pages 1 à 4 de Résultats."
Données et Résultats étant des noms de feuilles.

Merci🙂

Je suppose qu'il faut juste changer le "ActiveWindow" et rajouter un "And", mais je ne sais pas quoi mettre à la place du "ActiveWindow"...
 
Vote positif 0 Vote négatif
Re : Impression

Re,

Voici le code modifé :

Code: 
Sub Impression()

ThisWorkbook.Sheets("Données").PrintOut From:=1, To:=1, Copies:=1
If ThisWorkbook.Sheets("[COLOR="Red"]NomDeLaFeuilleAPreciser[/COLOR]").Cells(33, 1) = 1 Then
    ThisWorkbook.Sheets("Résultats").PrintOut From:=1, To:=1, Copies:=1
Else
    ThisWorkbook.Sheets("Résultats").PrintOut From:=1, To:=4, Copies:=1
End If

End Sub

Je serai toi, je préciserez tout de même le nom de la feuille contenant cette fameuse cellule A33 (indiqué en rouge dans le code.

Bonne journée
 
Vote positif 0 Vote négatif
Re : Impression

Oui effectivement, ça me parait intelligent de préciser le nom de la feuille, merci!

Bon ben, tout ça c'est nickel, je te remercie bien!
Et vive vba!😉

Bonne journée
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.
4 5 6
Réponses
78
Affichages
2 K
Agecanonix35400
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
263
sylvanu
U
  • Résolu(e)
XL 2016 Création d'un fichier excel à partir d'un bouton
Réponses
7
Affichages
488
Utilisateur_X
U
A
  • Question Question
XL 2021 Impression multi format
Réponses
5
Affichages
422
wDog66
W
F
  • Question Question
XL 2016 Demande d'aide sur un tableau excel
Réponses
9
Affichages
373
job75
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
335
Marie.
M
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
698
jeff1494
S
  • Question Question
XL 2016 RESOLU MERCI Division des points en cas d'égalité
Réponses
2
Affichages
283
spacem33t
S
C
  • Résolu(e)
XL 2019 Sélection en cascade ou Groupe
Réponses
12
Affichages
336
ciarab8442
C
C
  • Résolu(e)
XL 2013 Impression auto par rapport à une liste
2
Réponses
16
Affichages
1 K
candido57
C
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
946
marie3107
M
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
699
jeff1494
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
351
komarlehomard
K
F
  • Question Question
XL 2016 recherche de mots
2
Réponses
19
Affichages
866
job75
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
366
CortoXls
C
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
230
Marie L
M
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
411
nightswan
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
271
alexga78
A
M
  • Question Question
Microsoft 365 Impression et transfert de donné.
Réponses
5
Affichages
502
manga419
M
  • Question Question
Microsoft 365 probleme enregistrement de 2 fichiers
Réponses
3
Affichages
112
Nain porte quoi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…