Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment augmenter la taille de la liste déroulante dans Excel?

doc Augmenter la taille de la police déroulante 1

La liste déroulante est une fonctionnalité très utile dans Excel, lorsque vous créez une liste déroulante dans votre feuille de calcul, avez-vous déjà essayé d'augmenter la taille de la liste déroulante pour rendre l'enregistrement sélectionné plus grand et plus lisible? Cet article va parler d'une solution de contournement pour le résoudre.

Augmentez la taille de la liste déroulante avec le code VBA pour agrandir le zoom


Combiner / importer plusieurs feuilles de calcul ou fichiers CSV dans une feuille de calcul ou un classeur:

Dans votre travail quotidien, combiner plusieurs feuilles de travail, classeurs et fichiers csv en une seule feuille de travail ou classeur peut être un travail énorme et laborieux. Mais, si vous avez Kutools for Excel, avec son utilité puissante - Combiner, vous pouvez rapidement combiner plusieurs feuilles de calcul, classeurs ou fichiers CSV dans une feuille de calcul ou un classeur.

doc calculer la lettre lettre 1

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Augmentez la taille de la liste déroulante avec le code VBA pour agrandir le zoom


En fait, il n'existe aucun moyen direct d'augmenter la taille de la police de la liste déroulante, mais vous pouvez appliquer le code VBA suivant pour modifier le paramètre de zoom des cellules de la liste déroulante afin d'agrandir le texte. S'il vous plaît faites comme suit:

1. Allez dans la feuille de calcul qui contient la liste déroulante que vous voulez augmenter sa taille de police.

2. Cliquez avec le bouton droit sur l'onglet de la feuille et sélectionnez Voir le code dans le menu contextuel, dans le menu contextuel Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant dans le champ vide Module fenêtre:

Code VBA: Augmenter la liste déroulante la taille de la police pour agrandir le zoom de la cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20160530
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

3. Ensuite, enregistrez et fermez ce code, maintenant, lorsque vous cliquez sur les cellules de la liste déroulante, le zoom de la cellule sera agrandi, et la liste déroulante apparaîtra plus grande, mais, lorsque vous cliquez sur les autres cellules ne contiennent pas la liste déroulante, le zoom cellulaire sera normal.

Note: Dans le code ci-dessus, xZoom = 130 va changer le zoom des cellules de la liste déroulante pour être 130, vous pouvez changer ce numéro de zoom selon vos besoins.


Démo: Augmentez la taille de la liste déroulante avec le code VBA pour agrandir le zoom



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Ace · 4 months ago
    Hi, Just question i have pasted the code onto blank Module window (Right click in view code). Once i save, is function well that was good. But when i close the file and re-open it, the code was gone and no more enlarge for the drop down list. Can i know how to set for permanent use?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello, Ace,
      To save the code, you should save the Excel file as Excel Macro-Enabled Workbook format. Please try it.
  • To post as a guest, your comment is unpublished.
    Paul Roberts · 10 months ago
    How can I apply this font change size to only one column? I have several columns with drop-down boxes and I only want one specific column to change font size?
  • To post as a guest, your comment is unpublished.
    Dave Harlev · 1 years ago
    This zooms the whole sheet to 130%
    How do I increase only the drop menu ?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Dave,
      To only increase the drop down menu, here is a workaround to solve it.

      First, after inserting the drop down list in your worksheet, then you should insert an Combo Box (ActiveX Controls),and then apply the following VBA code into the sheet module code:

      Dim xRg As Range
      Private Sub ComboBox1_Change()
      On Error Resume Next
      xRg.Value = Me.ComboBox1.Text
      End Sub
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      On Error GoTo LblExit
      With Me.ComboBox1
      .Visible = False
      If Target.Validation.Type = xlValidateList Then
      Target.Validation.InCellDropdown = False
      .ListWidth = 120
      .ListFillRange = ""
      .ListFillRange = Target.Validation.Formula1
      .Left = Target.Left
      .Top = Target.Top
      .Width = Target.Width
      .Height = Target.Height
      .Font.Size = 16
      .Visible = True
      Set xRg = Target
      End If
      End With
      LblExit:
      End Sub

      After inserting the code, now when you click the drop down list cell, a combo box will be displayed, and font size in the drop down menu is increased as you need. And the inserted combo box will be hidden automatically.

      Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        GJ · 2 months ago
        GENIUS! Thank you Skyyang! So grateful for your method! Works like a charm!
  • To post as a guest, your comment is unpublished.
    George · 1 years ago
    After using this code, I can't use return key on Excel. How can I code (install) return key?
  • To post as a guest, your comment is unpublished.
    John Driscoll · 1 years ago
    This does not work for me. I pasted the text as instructed. When i clicked on the drop down menu the font size was the same. When i then clicked on a different cell, the whole spreadsheet increased in size perhaps by 30%. Really would like a work around if possible