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 définir une valeur par défaut dans la liste déroulante Validation des données dans Excel?

Définir une valeur par défaut dans la liste déroulante Validation des données aide les autres utilisateurs à identifier facilement les cellules de la liste déroulante en un coup d'œil dans une feuille de calcul. Cet article fournit une méthode VBA pour définir une valeur par défaut dans la liste déroulante de validation des données en détails.

Définir une valeur par défaut dans la liste déroulante Validation des données avec le code VBA


Vous pouvez être intéressé par:

Combiner plusieurs feuilles de calcul / classeurs dans une seule feuille de calcul / classeur:

Combiner plusieurs feuilles de calcul ou classeurs dans une seule feuille de calcul ou classeur peut être une tâche énorme dans votre travail quotidien. Mais, si vous avez Kutools for Excel, son utilité puissante - Combiner peut vous aider à combiner rapidement plusieurs feuilles de calcul, classeurs dans une feuille de calcul ou un classeur.

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Lire la suite Téléchargez l'essai gratuit maintenant


Définir une valeur par défaut dans la liste déroulante Validation des données avec le code VBA


Comme ci-dessous capture d'écran, en supposant que toutes les cellules de la plage B2: C7 contiennent une liste déroulante, et que vous voulez définir une valeur par défaut (dit - Choisissez dans la liste -) dans cette liste déroulante avant d'en choisir les valeurs. Vous pouvez essayer le code VBA suivant.

1. Cliquez avec le bouton droit de la souris sur l'onglet de la feuille avec les listes déroulantes dont vous avez besoin pour définir une valeur par défaut, puis cliquez sur Voir le code dans le menu.

2. dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code VBA suivant dans la fenêtre Code.

Code VBA: définissez une valeur par défaut dans la liste déroulante Validation des données

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

Note: vous pouvez changer la valeur par défaut dans le code VBA à celle dont vous avez besoin.

6. appuie sur le F5 clé pour exécuter le code. Vous pouvez voir les valeurs par défaut sont ajoutées à toutes les cellules de la liste déroulante comme ci-dessous capture d'écran montré.

Remarques:

1. La valeur par défaut disparaîtra après avoir sélectionné la valeur dans la liste déroulante.

2. S'il n'y a aucune liste déroulante de validation de données dans la feuille de calcul en cours, vous obtiendrez la boîte d'invite ci-dessous.


Articles Liés:



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.
    Martin Goodwin · 4 months ago
    Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?