Empecher de rentrer valeur dans cellule avec liste deroulante

Elf à dit:

....Là te t'aperçoit que tu ecrire ton propre texte et dans ce qu'a D2 prend la valeur du texte que tu viens de taper....

Cliquez pour agrandir...

Elf à dit:

si quelqu'un rentre une mauvaise valeur car derière je declanche un Private Sub Worksheet_Change(ByVal Target As Range) qui part la suite me génère une erreur. Alors pour éviter cela je veux interdire toute ecriture (en dehors de la liste)

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
    Set c = Sheets(2).Range("MaListe")
    If Application.CountIf(c, Target) = 0 Then
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
        Exit Sub
    Else
        'Ton code ici
    End If
End If

End Sub

Elf à dit:

Si je ne peu pas gerer directement sur la feuille ma cellule et la liste associé, peut-être y a t'il un autre moyen comme par exemple par macro? a voir

Cliquez pour agrandir...

Elf à dit:

Si j'ai d'autre question je repasse vous voir A+

Cliquez pour agrandir...