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

Impression cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion David590
  • 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
D

David590

XLDnaute Occasionnel
Bonjour à tous,

J'utilise ce code pour imprimer des cellules de la feuil1 via un bouton qui se trouve sur la feuil1, ca fonctionne bien mais j'aimerai l'utilisé maintenant sur un bouton qui se trouve sur la feuil5 mais toujours pour imprimer la feuil1

Code: 
ActiveSheet.PageSetup.PrintArea = Range("AB102:AE" & Range("AE65000").End(xlUp).Row).Address
    ActiveWindow.SelectedSheets.PrintOut


J'ai donc modifier le code en précisant la feuil à imprimer (feuil1), mais ça imprime quand même la feuil ou se trouve le bouton (feuil5)
Pouvez vous m'aider?

Code: 
ActiveSheet.PageSetup.PrintArea = Feuil1.Range("AB102:AE" & Feuil1.Range("AE65000").End(xlUp).Row).Address
    ActiveWindow.SelectedSheets.PrintOut
 
Trier par date Trier par votes
Re : Impression cellules

Bonjour Dadid590

Essayes

ActiveSheet.PageSetup.PrintArea = sheets("Feuil1").Range("AB102:AE" & Sheets("Feuil1").Range("AE65000").End(xlUp).Row).Address
ActiveWindow.SelectedSheets.PrintOut

J'avais des problémes similaires et en faisant cela, ça fonctionnait.

A tenter sans garantie.

A+
 
Vote positif 0 Vote négatif
Re : Impression cellules

Bonjour,
Code: 
Feuil1.PageSetup.PrintArea = Range("AB102:AE" & Range("AE65000").End(xlUp).Row).Address
Feuil1.PrintOut
La première ligne délimite la zone à imprimer
La deuxième ligne lance l'impression de la feuille
A+
 
Vote positif 0 Vote négatif
Re : Impression cellules

néné06, le code ne fonctionne pas mais merci quand meme
pour Hippolite il fonctionne, il imprime la feuil1 mais par rapport à ce qui est écrit dans la feuil5 ou se trouve le bouton, j'ai juste eu à ajouter la selection de la feuille devant range


Feuil1.PageSetup.PrintArea = feuil1.Range("AB102:AE" & feuil1.Range("AE65000").End(xlUp).Row).Address
Feuil1.PrintOut

Grand merci à vous

@+
 
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

S
  • Résolu(e)
XL 2016 Ne pas imprimer si 0 dans une cellule
Réponses
14
Affichages
694
AtTheOne
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
787
AtTheOne
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
588
sylvanu
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Question Question
XL 2016 trier 4 colonnes d'une plage de cellules
Réponses
8
Affichages
228
KTM
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
183
deudecos
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
788
lynyrd
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
914
TooFatBoy
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
240
treza88
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
705
Helios77
H
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
401
Claudinedu13
C
S
  • Résolu(e)
Microsoft 365 Problème de référence à une Feuil de calcul avec .FormulaLocal
Réponses
6
Affichages
481
sylvanu
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
565
mikeduff
M
N
  • Résolu(e)
XL 2013 Somme VBA sur plusieurs ligne
Réponses
8
Affichages
319
Nico77
N
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
486
sylvanu
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
448
job75
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
808
MBEPID
M
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
2 K
jurassic pork
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…