Comment définir une valeur par défaut dans une liste déroulante de validation des données dans Excel ?

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

Définir une valeur par défaut dans une liste déroulante de validation des données avec un code VBA

Définir une valeur par défaut dans une liste déroulante de validation des données avec un code VBA

Comme illustré ci-dessous, supposons que toutes les cellules dans la plage B2:C7 contiennent une liste déroulante, et vous souhaitez définir une valeur par défaut (par exemple - Choisissez dans la liste -) dans ces listes déroulantes avant de sélectionner des valeurs. Vous pouvez essayer le code VBA suivant.

1. Faites un clic droit sur l'onglet de la feuille contenant les listes déroulantes pour lesquelles vous devez définir une valeur par défaut, puis cliquez sur Affichage du code dans le menu.

2. Dans la fenêtre Microsoft Visual Basic for Applications, copiez et collez le code VBA suivant dans la fenêtre Code.

Code VBA : définir une valeur par défaut dans une liste déroulante de 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

Remarque : vous pouvez modifier la valeur par défaut dans le code VBA selon vos besoins.

6. Appuyez sur la touche F5 pour exécuter le code. Vous pouvez voir que les valeurs par défaut sont ajoutées à toutes les cellules de la liste déroulante comme illustré ci-dessous.

Remarques :

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment activer l'autocomplétion lors de la saisie dans une liste déroulante Excel ?
• Comment créer un calendrier sous forme de liste déroulante dans Excel ?
• Comment créer une liste déroulante avec fonction de recherche dans Excel ?
• Comment créer une liste déroulante avec plusieurs sélections ou valeurs dans Excel ?
• Comment remplir automatiquement d'autres cellules lors de la sélection de valeurs dans une liste déroulante Excel ?