Sujet Précédent Sujet Suivant

Impression "complexe" sur EXCEL

Résolu/Fermé
mAnu - Modifié par mAnu le 12/05/2011 à 16:47
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 13 mai 2011 à 10:12
Bonjour,
Voici mon problème: je possède un fichier Excel avec plusieurs feuilles, les 5 premières feuilles servent à remplir les suivantes donc je ne veux pas les sélectionner lors de l'impression. De plus, le nombre des feuilles à imprimer est variable! (En fait, c'est une liste et grâce à des macro je supprime ou non les feuilles, et à la fin j'imprime les feuilles qui restent.)
Sachant que je veux commander l'impression par un simple bouton, comment doit-je procéder?

Merci !

A voir également:

3 réponses

Réponse 1 / 3
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
12 mai 2011 à 21:10
Salut le forum

Tu peux t'inspirer de ceci, en ajoutant des conditions pour l'ajout des feuilles. (Méthode Add) 

Sub Imprimer()
Dim Tablo As New Collection
Dim I As Byte

Tablo.Add "Feuil1"
Tablo.Add "Feuil2"

For I = 1 To Tablo.Count
    Sheets(Tablo(I)).PrintOut , , 1
Next I

End Sub

Mytå
0
Réponse 2 / 3
pépé35530 Messages postés 2942 Date d'inscription vendredi 1 mai 2009 Statut Membre Dernière intervention 19 mars 2016 1 384
12 mai 2011 à 20:37
Bonjour,
En sélectionnant à la main toutes les feuilles que tu veux imprimer (utiliser la touche CTRL ou Maj selon le cas), tu peux lancer directement l'impression en une seule manipulation (la case feuilles sélectionnées étant activée dans la fenêtre d'impression.
A+
pépé
-1
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
12 mai 2011 à 21:13
Salut le forum

J'ai bien lu :
Sachant que je veux commander l'impression par un simple bouton, comment doit-je procéder?

Mytå
0
mAnu
13 mai 2011 à 08:16
Bonjour,

Bonne remarque Myta, merci pour ta réponse pépé35530 mais effectivement je veux que l'impression soit commander par un bouton car ce sera un fichier utilisé par des personnes ne connaissant pas du tout Excel et je veux aller au plus simple.

Merci.
0
Réponse 3 / 3
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
12 mai 2011 à 20:53
bonsoir,
avec macros, utiliser PrintOut
bonne suite
-1
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
12 mai 2011 à 21:16
Salut le forum

Très succinct comme solution :)

Mytå
0
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
Modifié par ccm81 le 12/05/2011 à 21:22
re
dans ma mesure où toutes les feuilles doivent etre imprimées ceci devrait suffire , après avoir mis un bouton (controle activeX) 
Private Sub CommandButton1_Click()  
Dim nf As Long  
For nf = 1 To Sheets.Count  
  Sheets(nf).PrintOut  
Next nf  
End Sub

bonne soirée
0
mAnu
13 mai 2011 à 08:22
Merci d'avoir essayé mais justement je ne veux pas imprimer toute les feuilles!
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
13 mai 2011 à 09:22
Bonjour,
excusez l'incruste
dans la acro de ccm81
tu remplaces
For nf = 1 To Sheets.Count
par
For nf = 6 To Sheets.Count
puisque tu ne veux pas imprimer les 5 premières
0
mAnu
13 mai 2011 à 09:38
Merci pour ton incruste, ça marche! C'était simple en final mais encore fallait-il le trouver, merci à vous.
0