× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Excel 2007 imprimer
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Cecilia2
  Posté le 28/11/2011 @ 22:20 
Aller en bas de la page 
Petite astucienne

Bonsoir,
J'ai un fichier de 1000 lignes. Je souhaite imprimer sur une feuille toutes les lignes concernant les pages 50, puis toutes les lignes des pages 10 etc.. tout en sachant que je ne les imprime pas toujours en même temps.Ci-joint un extrait.

Merci par avance,
Cécilia

http://cjoint.com/?3KCwmaDGbsa

Publicité
galopin01
 Posté le 28/11/2011 à 23:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Dans le menu Fichier > Imprimer [section paramètrres] > Page mettre 50 à 50

puis cliquer sur l'icone de l'imprimante

même chose pour imprimer la page 10

Dans le menu Fichier > Imprimer [section paramètrres] > Page mettre 10 à 10

Mytå
 Posté le 29/11/2011 à 00:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le forum

Utilise un filtre sur la première ligne.

Tu choisis ensuite la valeur à imprimer dans la première colonne

Tu lances ensuite l'impression

Mytå

Cecilia2
 Posté le 29/11/2011 à 21:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,

Merci pour vos réponses.
Je pense que je n'ai pas été assez explicite, il y a dans mon fichier ci-joint très réduit car normalement il fait plus de 1000 lignes une colonne avec en-tête page, donc je souhaite par exemple éditer toutes les lignes de la page 10 de A22 : E30.

Effectivement le filtre dans colonne A pourrait convenir, mais ce que j'aurai souhaité je tape 10 dans une cellule et là toutes les lignes s'affichent.

Bonne soirée

Cécilia

galopin01
 Posté le 30/11/2011 à 12:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

le fichier démo

En dehors de la solution proposée par myta, cela ne peut se faire que par macro et sur le fichier original pas sur une vague copie.

Donc tu devras adapter la macro à ton fichier en conséquence.

En particulier la Base de donnée devra être définie de manière dynamique comme dans la démo. (Sous 2007 voir Formules > Gestionnaire de Noms )

Si un autre nom que BDD est choisi il faudra modifier la macro en conséquence.

Si une autre plage que "G3" est choisie il faudra modifier la macro en conséquence.

Pour l'instant (pour des raisons évidentes) la macro exécute un Aperçu avant impression : Pour supprimer l'aperçu avant impression, me consulter.

A+

Cecilia2
 Posté le 30/11/2011 à 21:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir Galopin,
Merci pour la réponse. Elle me convient parfaitement. Maintenant comment faire cette macro avec ou sans impression. Elle est masquée car dans macro je ne vois rien ?
Bonne soirée,
Cécilia

galopin01
 Posté le 30/11/2011 à 22:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

La macro est dans le module de Feuil1

Au lieu de

ActiveSheet.PrintPreview mettre

ActiveSheet.PrintOut



Modifié par galopin01 le 30/11/2011 22:15
Cecilia2
 Posté le 30/11/2011 à 23:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,
C'est 2 façons sont très intéressantes, elles me serviront. Une dernière question, la visualisation peut elle être faîte sur la feuille 1 ?
A+


galopin01
 Posté le 30/11/2011 à 23:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

A mon avis ça ne présente pas un grand intéret :

Le PrintPreview permet soit d'abandonner par Echap, soit de modifier la mise en page puis imprimer ensuite, soit d'imprimer directement.

Et le PrinOut ne permet que l'impression directe.

Si tu ne veux pas imprimer mais juste afficher le filtre alors supprimer ces 2 lignes :

ActiveSheet.PrintPreview
Range("BDD").AutoFilter

mais dans ce cas il faudra ensuite lancer l'impression manuellement.

puis supprimer le filtre...



Modifié par galopin01 le 30/11/2011 23:22
Publicité
Cecilia2
 Posté le 30/11/2011 à 23:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,
C'est parfait.
Merci
Très bonne soirée.

Cecilia2
 Posté le 02/12/2011 à 22:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,

Est'il possible d'avoir les définitions de :
Target
AutoFilter Field:=6 filtrer colonne 6 ?
Criteria1:=V
GESTERR:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo GESTERR
If Target.Count = 1 Then
Set isect = Application.Intersect(Range("L3"), Target)
If Not isect Is Nothing And Target <> "" Then
V = Target: Target = ""
Range("BDD").AutoFilter Field:=6, Criteria1:=V
ActiveSheet.PrintPreview
Range("BDD").AutoFilter
End If
End If
GESTERR:
End Sub

Merci par avance

galopin01
 Posté le 02/12/2011 à 23:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Cette macro est une macro automatique définie par Microsoft. (on dit plutôt macro évènementielle)

Quand tu modifies la valeur d'une cellule cela constitue un évènement pour Excel qui procède à un tas de calculs et qui vérifie notamment s'il n'existe pas une

Private Sub Worksheet_Change à exécuter dans ce cas là.

Quand tu modifies une cellule : cette cellule est la Target (=cible)

Ce mot est un mot réservé de VBA : tu ne dois pas le modifier (pas plus que tu ne peux modifier cette ligne qui est prédéfinie dans le vocabuilaire de VBA :
Private Sub Worksheet_Change(ByVal Target As Range)

Donc comme il trouve cette Private Sub Worksheet_Change il la lit et constate que cette macro à été prévue pour contrôler une saisie en G3 (ou L3... si tu changes la cellule de saisie)

Donc il se dit "Chic alors du boulot pour moi"

je mémorise la valeur de Target dans la variable V :
V = Target

et ensuite on efface la cellule Target :
Target = ""

Ce que j'ai condensé en une seule ligne :
V = Target: Target = ""

GESTERR: est une étiquette de ligne que j'ai prédéfini tout au début de la macro ou j'ai écrit :
On Error GoTo GESTERR ':= S'il y a un problème aller à la fin sans passer par toutes les lignes intermédiaires.

Dans cette macro c'est nécessaire car dans quelques cas ça pourrais planter ton Excel... Et tu ne serais pas contente !

Range("BDD").AutoFilter Field:=6, Criteria1:=V

signifierait effectivement que tu veux filtrer sur la colonne 6 avec la valeur V mémorisée lors de ta saisie dans Target



Modifié par galopin01 le 02/12/2011 23:37
Cecilia2
 Posté le 03/12/2011 à 22:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,
Merci pour toutes ces informations.
Bonne soirée

Cecilia2
 Posté le 09/12/2011 à 21:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,

Je souhaite améliorer le fichier démo.
En G3, si je tape 10, il y a 10 lignes dans l'aperçu (une pour l'en tête de colonne et 9 pour la page 10). Est'il possible qu'il soit affiché en colonne F à partir de la ligne 2 : 1, 2, 3, 4, 5, 6, 7, 8, 9 ce qui correspondrai au nombre de page qui s'adapterai.

Par ailleurs, je souhaite également pouvoir avoir l'aperçu comme le modèle, mais également imprime directe. J'ai essayer de copier le même module dans la même fenêtre en modifiant Preview par Out mais ça ne fonctionne pas.

Merci par avance.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
299,99 €Xbox Series S en précommande à 299,99 €
Valable jusqu'au 02 Novembre

La nouvelle console Xbox Series S de Microsoft sort le 10/11 et vous pouvez d'ores et déjà la précommander à 299,99 €. Cette version plus compacte embarque une puce graphique de 4 teraflops et est compatible avec 4 générations de jeux. Elle intègre un SSD de 512 Go. Elle n'a pas de lecteur optique. Sur AmazonCdiscountFnac, ...


> Voir l'offre
14,99 €Carte mémoire SDXC UHS-I U3 SanDisk Extreme Pro 64 Go (jusqu'à 170 Mo/s) à 14,99 €
Valable jusqu'au 03 Novembre

Amazon fait une promotion sur la carte mémoire SDXC UHS-I U3 SanDisk Extreme Pro d'une capacité de 128 Go qui passe à 14,99  € alors qu'on trouve la carte ailleurs à partir de 35 €. Cette carte mémoire offre des vitesses jusqu'à 170 Mo/s en lecture et 90 Mo/s en écriture et intègre des mécanismes afin de gérer l'usure des cellules de la carte et augmenter ainsi sa durée de vie. Une valeur sûre pour les plus exigeants.


> Voir l'offre
16,99 €Ensemble clavier + souris Logitech MK120 à 16,99 €
Valable jusqu'au 01 Novembre

Amazon fait une promotion sur l'ensemble clavier + souris sans fil Logitech MK120 qui passe à 16,99 € alors qu'on le trouve habituellement autour de 25 €. Ce duo combine simplicité, confort, et prix attractif. Le clavier, silencieux, présente des touches à l'écriture particulièrement lisible et au design ultra-plat, couplées à une barre espace suffisamment incurvée pour améliorer la position de vos mains pendant que vous l'utiliserez. Résistant aux éclaboussures, il saura se protéger des accidents éventuels. Quant à la souris 3 boutons, nécessitant elle aussi un port USB pour fonctionner, elle se présente sous une forme ambidextre qui satisfera le plus grand nombre. Si vous ne souhaitez pas de fil, tournez-vous vers le modèle MK270 à 24,99 €.


> Voir l'offre

Sujets relatifs
Excel 2007 imprimer à l'aide d'une macro
menu contextuel excel 2007 ne fonctionne plus
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
EXCEL 2007-stdole32.tlb-WIN7 SP1x64
Formule excel 2007
Excel 2007, insertion ligne vierge en automatique
Récupération dates dans tableau excel 2007
mettre a jour liason feuille excel 2007
besoin d'une macro excel 2007
EXCEL 2007
Plus de sujets relatifs à Excel 2007 imprimer
 > Tous les forums > Forum Bureautique