Menu déroulant à choix multiples qui s'efface automatiquement

Bonjour,

je recherche une solution qui n'existe peut etre pas.

J'ai créé une liste déroulante à choix multiples (cascade). Lorsque je choisi un choix en E3, cela me donne une liste de choix en F3 suivant mon choix effectué en E3. Tous cela fonctionne parfaitement.

j'ai aussi mis un code dans ma feuille, pour que quand je change de choix en E3, cela efface la cellule F3. Tout cela fonctionne ausis parfaitement.

Mon soucis, c'est que j'ai 2000 lignes dans mon tableau, et mon code marche que pour la première ligne. Pour que cela fonctionne sur les autres lignes, je suis obligé de répéter le code. Je voulais savoir si j'étais obligé de recopier mon code et de l'adapter pour 2000 lignes (très long) ou existe t'il un code qui fonctionne sur toute la colonne.

Voici le code que j'ai mis sur ma feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then Range("F3") = ClearContents
If Target.Address = "$E$4" Then Range("F4") = ClearContents
If Target.Address = "$E$5" Then Range("F5") = ClearContents
If Target.Address = "$E$6" Then Range("F6") = ClearContents
If Target.Address = "$E$7" Then Range("F7") = ClearContents
If Target.Address = "$E$8" Then Range("F8") = ClearContents
If Target.Address = "$E$9" Then Range("F9") = ClearContents
If Target.Address = "$E$10" Then Range("F10") = ClearContents
If Target.Address = "$E$11" Then Range("F11") = ClearContents
If Target.Address = "$E$12" Then Range("F12") = ClearContents

End Sub

Je vous remercie par avance pour votre aide, en espérant avoir était assez claire.

Bonjour,

Une proposition, à adapter.

Efface la cellule à droite de la même ligne (uniquement pour la colonne E)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 5 Then 'colonne E
        'efface la cellule de la colonne suivante, dans la même ligne
        Cells(Target.Row, Target.Column + 1).ClearContents
    End If

End Sub

Bouben

Bonjour,

C'est parfait, ca fonctionne parfaitement sur toute ma colonne jusqu'à 2000. Vous me faite gagner du temps même si on en a un peu en ce moment.

Merci

Vous me faite gagner du temps même si on en a un peu en ce moment.

Ah mince, il ne fallait pas proposer une solution trop vite !

Il faut maintenant trouver une autre occupation pour l'après-midi

Bouben