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 SubRemarque : 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.
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 ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels