Impression avec Critères

UJAP · 6 Avril 2009

Abcd vient de m'expliquer l'impression de champs nommés,

Sauf j'ai une une dernière question :

Peut-on demander une impression juste des lignes contenant un montant juste en spécifiant les lignes ?

Ici dans mon exemple je voudrai de la zone 1 juste les lignes qui contiennent un montant colonne D ?

Peut-on le réaliser ?

tototiti2008 · 6 Avril 2009

Re : Impression avec Critères

Bonjour UJAP,

je n'ai rien compris... désolé

UJAP · 6 Avril 2009

Re : Impression avec Critères

Ok,

Je recommence mes explicat°,

Question : Peut-on lors d’une impression préciser des critères ?

Ce matin par l’intermédiaire de « ABCD » j’ai créé des zones d’impressions « Zone Europe » et « Zone Afrique ». Par l’intermédiaire d’une liste déroulante en F3 je sélectionne le choix de l’impression.

Et je voudrai savoir si on peut obtenir juste les lignes de la colonne D où le montant est supérieur à 0 lors de l’impression ? afin que les lignes avec 0 ne doivent pas être imprimées

Merci,

tototiti2008 · 6 Avril 2009

Re : Impression avec Critères

Re,

avec une petite macro évènementielle.
Sans macro, je ne vois pas... peut-être possible pour les pros des macros Excel 4...

tototiti2008 · 6 Avril 2009

Re : Impression avec Critères

Re,

Oups, j'ai répondu à la même question qu'abcd mais avec une macro. Comment as-tu fait sans macro ??

UJAP · 6 Avril 2009

Re : Impression avec Critères

Ok,

Peux-tu me guider dans la procédure ?

UJAP · 6 Avril 2009

Re : Impression avec Critères

Re,

Si tu n'as pas la petite fenêtre "Affichages personnalisés" dans la barre d'outils "Mise en forme" :
Clic du bouton droit de la souris dans une zone vide des barres d'outils.
Dans la fenêtre qui s'est ouverte, clic sur "Personnaliser" (tout en bas).
Dans la nouvelle fenêtre, clic sur "Affichage".
Dans la nouvelle fenêtre cherche au moyen de l'ascenseur "Affichages personnalisés" (chez moi, sixième position).
Clic, et maintient le bouton de la souris enfoncé, sur la petite flèche à droite de "Affichages personnalisés".
Glisse cette petite fenêtre dans la barre d'outils (à l'endroit de ton choix).
Lache le bouton de la souris.

Barre d'outils Affichage / Affichages personnalisés / Ajouter
Attribue un nom à cet affichage (par exemple : complet).
Sélectionne sur la feuille la zone d'impression.
Menu Fichier / Zone d'impression

Organise ta feuille telle que tu la désires (masquer des colonnes et/ou des lignes, par exemple, mais ce n'est pas obligatoire).
Barre d'outils Affichage / Affichages personnalisés / Ajouter
Attribue un nom à cet affichage (par exemple : Zone 1).
Sélectionne sur la feuille la zone d'impression.
Menu Fichier / Zone d'impression.

Idem pour chaque Affichage et/ou zone d'impression.

Clic sur la petite flèche à droite de la petite fenêtre "Affichages personnalisés" dans la barre d'outils.
Une liste déroulante te permet de choisir un affichage personnalisé, y compris sa zone d'impression.
Tu peux le vérifier par l'aperçu avant impression.

abcd

Je te transmets la procédure de Abcd,

BOISGONTIER · 6 Avril 2009

Re : Impression avec Critères

Bonjour,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$F$3" Then
   champ = Target
   n = Range(champ).CurrentRegion.Rows.Count
   For i = 2 To Range(champ).Rows.Count
     temoin = False
     For c = 2 To Range(champ).Columns.Count
        If Range(champ).Cells(i, c) <> 0 Then temoin = True
     Next c
     Rows(i + Range(champ).Row - 1).Hidden = Not temoin
   Next i
   ActiveSheet.PrintPreview
   Cells.EntireRow.Hidden = False
 End If
End Sub

JB
Formation Excel VBA JB

UJAP · 6 Avril 2009

Re : Impression avec Critères

Peux-tu m'expliquer ? juste pour l'adapter dans mon travail ? afin de savoir comment modifier le code

Merci,

tototiti2008 · 6 Avril 2009

Re : Impression avec Critères

Bonjour Boisgontier,
Re,

sinon, en utilisant les affichages personnalisés préconisés par abcd (et un petit code VBA dans Feuil1) :

J'ai donc défini un affichage Afrique et un affichage Europe qui contiennent chacun un filtre automatique. Le code VBA de la Feuil1 :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$3" Then ActiveWorkbook.CustomViews(ActiveSheet.Range("F3").Value).Show
End Sub

se contente de dire d'appliquer l'affichage personnalisé dont le nom se trouve en F3

UJAP · 6 Avril 2009

Re : Impression avec Critères

J'essaye de modifier le code de BOISGONTIER,pour l'adapter à mon exemple,

Sauf que j'e n'arrive pas,

Quelles sont les zones à modifier si je veux l'adapter dans une autre feuille excel,

Merci,

Impression avec Critères

UJAP

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

UJAP

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Pièces jointes

tototiti2008

XLDnaute Barbatruc

UJAP

XLDnaute Occasionnel

UJAP

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

UJAP

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Pièces jointes

UJAP

XLDnaute Occasionnel

Discussions similaires

Impression avec Critères

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency