Impression avec Critères

[UJAP]

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]

Re : Impression avec Critères

Bonjour UJAP,

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

 

[UJAP]

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]

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]

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]

Re : Impression avec Critères

Ok,

Peux-tu me guider dans la procédure ?

 

[UJAP]

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]

Re : Impression avec Critères

Bonjour,

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]

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]

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 :

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]

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,