Comment effacer automatiquement la cellule associée à une liste déroulante dépendante dès que la sélection principale est modifiée dans Excel ?
Pour une liste déroulante dépendante, lorsque la valeur de la liste parente est modifiée, la sélection dans la deuxième liste devient invalide. Il vous faut alors supprimer manuellement cette valeur obsolète après avoir changé la première sélection. Dans cet article, je vous présente une méthode pour effacer automatiquement la cellule de la liste déroulante dépendante dès que la sélection change dans Excel.
Effacer automatiquement la cellule d’une liste déroulante dépendante après modification de la sélection à l’aide d’un code VBA
Le code VBA suivant efface automatiquement la liste déroulante dépendante dès que vous modifiez la sélection dans Excel.
1. Cliquez avec le bouton droit sur l’onglet de la feuille contenant la liste déroulante dépendante que vous souhaitez effacer automatiquement, puis sélectionnez Afficher le code dans le menu contextuel.
2. Dans la fenêtre Microsoft Visual Basic pour Applications qui s’ouvre, copiez le code VBA ci-dessous dans cette fenêtre.
Code VBA : effacer la cellule d’une liste déroulante dépendante après modification de la sélection
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 2018/06/04
Application.EnableEvents = False
If Target.Column = 5 And Target.Validation.Type = 3 Then
Target.Offset(0, 1).Value = ""
End If
Application.EnableEvents = True
End Sub Remarque : Dans ce code, le chiffre 5 correspond au numéro de la colonne contenant la liste déroulante parente. Dans cet exemple, ma liste parente se trouve dans la colonne E.

3. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
Désormais, dès qu’une modification est apportée à la liste déroulante parente, le contenu de la deuxième liste déroulante est automatiquement effacé. Voir la capture d’écran :


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 créer des listes déroulantes hiérarchiques et dépendantes dans Excel ?
- Comment créer des listes déroulantes hiérarchiques dynamiques dans Excel ?
- Comment remplir automatiquement d’autres cellules lorsqu’une valeur est sélectionnée dans une liste déroulante Excel ?
- Comment activer la saisie semi-automatique lors de la saisie dans une liste déroulante Excel ?
- Comment créer un calendrier sous forme de liste déroulante dans 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