Liste déroulante effacer cellule ou changement de couleur

Bonjour à tous,

J'ai créé un tableau excel de gestion de stock de piéce. voir PJ

Aprés avoir fais de nombreux essais, j'ai un petit probléme.

Je m'explique:

* Choix Liste déroulante en colonne C qui me permet d'avoir un choix spécifique en colonne D, qui également me donne un choix spécifique en colonne D. (Fonctionnel)

Ce que je voudrai faire et que je n'arrive pas, c'est si je modifie en cours de route le choix en colonne C , la colonne D et E change de couleur (rouge) ou ils s'effacent afin que je remette les bon choix.

Je voudrai que cela s'applique ligne par ligne afin de ne pas tous effacer, ce qui met déja arrivé.

merci par avance pour votre aide

Cordialement

Bonjour et bienvenu,

Merci de modifier le titre en minuscule.

Bonjour Raja,

Titre modifier désolé

Cordialement

Re,

Insère le code suivante dans le module de la feuille qui efface au changement la colonne D et E :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C:C"), Target) Is Nothing Then
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 2).ClearContents
    End If
End Sub

Merci beaucoup Raja, vous me retirez une sacrée épine du pied

* Modif choix colonne C --} efface choix colonne D et E

Cela marche super bien.

serait t'il posible également de faire la même chose

* Modif choix colonne D efface colonne E

Merci par avance.

Cordialement

Avec un peu de réflexion, j'ai écris ceci:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("C:C"), Target) Is Nothing Then

Target.Offset(0, 1).ClearContents

Target.Offset(0, 2).ClearContents

End If

If Not Intersect(Range("D:D"), Target) Is Nothing Then

Target.Offset(0, 1).ClearContents

Target.Offset(0, 1).ClearContents

End If

End Sub

Cela fonctionne parfaitement.

Merci Beaucoup pour le coup de main.

Cordialement