Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S’enregistrer  \/ 
x

or

Comment imprimer toutes les options dans une liste déroulante dans Excel?

Avez-vous déjà essayé d'imprimer toutes les options d'une liste déroulante dans une feuille de calcul Excel? Cet article parle de l'impression de toutes les options d'une liste déroulante sur une impression distincte dans Excel.

Imprimer toutes les options sur une liste déroulante avec le code VBA


Imprimer toutes les options sur une liste déroulante avec le code VBA


Le code VBA suivant peut vous aider à imprimer toutes les options dans une liste déroulante dans la feuille de calcul. Veuillez faire comme suit.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer insérer > Module. Copiez ensuite le code VBA suivant dans la fenêtre Module. Voir la capture d'écran:

Code VBA: imprimer toutes les options d'une liste déroulante spécifiée sur une impression séparée

Sub Iterate_Through_data_Validation()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("B8")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

importante: Dans le code, Sheet1 est le nom de la feuille de calcul qui contient la liste déroulante que vous souhaitez imprimer. Et B8 est la cellule contenant la liste déroulante. Veuillez les remplacer par vos besoins.

3. appuie sur le F5 clé pour exécuter le code.

Ensuite, toutes les options de la liste déroulante spécifiée dans une certaine feuille de calcul sont imprimées séparément.


Imprimez facilement des pages spécifiées dans la feuille de calcul actuelle dans Excel:

Avec la Imprimer des pages spécifiques utilité de Kutools pour Excel, vous pouvez facilement imprimer des pages spécifiées dans la feuille de calcul actuelle, comme imprimer tout pages impaires, tout pages paires, imprimer juste page actuelle, ainsi que l'impression d'une plage de pages personnalisée comme illustré ci-dessous.
Téléchargez et essayez-le maintenant! (Parcours gratuit de 30 jours)


Articles connexes:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    mich · 9 days ago
    Thanks i used the first option it s amazing but i need to add to it that if there is a blank cell it should not print that option
  • To post as a guest, your comment is unpublished.
    Mich · 9 days ago
    Thanks i used the first option it s amazing but i need to add to it that if there is a blank cell it should not print that option
  • To post as a guest, your comment is unpublished.
    Cloud · 11 months ago
    @crystal Sorry I totally forgot about this. I'm using Excel 2013.

    So it wasn't actually a blank data.

    I have this dynamic drop down list in cell R17 which also populates other cells in the worksheet using VLOOKUP Function. What happens during print out is that the odd-positioned items on the list appears on the cell while the even-positioned items seemed not to show up that's why I thought it's printing blank pages.

    Thanks!
  • To post as a guest, your comment is unpublished.
    Zack · 1 years ago
    Hi is there a way to be able to preview first all the possible printouts in my drop-down list before it actually prints?
  • To post as a guest, your comment is unpublished.
    crystal · 1 years ago
    @Cloud Hi Cloud,
    What version of Excel are you using?
    The problem can't be reproduced in my case. Sorry for the inconvenience.
  • To post as a guest, your comment is unpublished.
    tj123 · 1 years ago
    How can i select a specific droplist, i want to print? , For example if i have 200 names on my droplist and i want to print a specific list, maybe 50 out of 200, How will i do this please?
  • To post as a guest, your comment is unpublished.
    Cloud · 1 years ago
    Thanks for the code. But I'm experiencing a minor issue when printing. When I tried to print the sheet with the drop down list. The first print out, prints the first item on the list while the next print out prints a blank data before it prints the second item from the list. What should I do?
  • To post as a guest, your comment is unpublished.
    Juliette · 2 years ago
    Thank you for the post, this has helped me a lot. I was wondering if you had a way to do VBA to print Page 1 based on one drop-down selection and print Page 1 and 2 based on another drop-down selection? Thanks for any help you can provide.