Comment effacer le contenu d’une zone de liste déroulante à l’aide de code VBA dans Excel ?
Généralement, vous pouvez effacer le contenu d’une zone de liste déroulante en supprimant les données de sa plage d’entrée. Mais comment faire pour vider **toutes** les zones de liste déroulante d’une feuille Excel en une seule fois ? Cet article vous propose deux macros VBA qui permettent non seulement d’effacer le contenu d’une seule zone de liste déroulante, mais aussi celui de **toutes les zones simultanément** sur une même feuille Excel.
Effacer facilement le contenu d’une zone de liste déroulante à l’aide d’un code VBA
Effacer facilement le contenu d’une zone de liste déroulante à l’aide d’un code VBA
Les deux codes VBA ci-dessous vous permettent d’effacer le contenu d’une zone de liste déroulante ou de toutes les zones de liste déroulante présentes dans la feuille active. Voici la marche à suivre.
1. Dans la feuille où vous souhaitez effacer le contenu d’une zone de liste déroulante, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module, puis copiez le code VBA ci-dessous dans la fenêtre Code.
VBA 1 : Effacer le contenu d’une zone de liste déroulante dans une feuille
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubRemarque : dans le code, « Drop Down 2 » est le nom de la zone de liste déroulante dont vous souhaitez effacer le contenu. Remplacez-le par le vôtre.
VBA 2 : Effacer le contenu de toutes les zones de liste déroulante de la feuille active
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour lancer le code.
Vous constaterez alors que le contenu a été effacé dans la zone de liste déroulante spécifiée ou dans toutes les zones de la feuille active, comme illustré ci-dessous :
Remarque : ces codes VBA peuvent être utilisés à la fois avec les listes déroulantes (contrôles de formulaire) et les listes déroulantes (contrôles ActiveX).
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Articles associés :
- Comment supprimer à la fois le contenu et la mise en forme des cellules dans Excel ?
- Comment effacer le contenu d’une plage nommée dans Excel ?
- Comment supprimer les valeurs restreintes dans des cellules Excel ?
- Comment effacer automatiquement le contenu de certaines cellules lorsque la valeur d’une autre cellule est modifiée dans Excel ?
- Comment effacer le contenu de cellules spécifiques à l’ouverture et à la fermeture d’un classeur Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels