http://boisgontierjacques.free.fr/fi...AjoutListe.xls

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target < "" Then
If IsError(Application.Match(Target.Value,[Liste], 0)) Then
If MsgBox("Add?", vbYesNo) = vbYes Then[Liste].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Liste").[Liste].Sort key1:=Sheets("Liste").Range("A2")
Else
Application.Undo
End If
End If
End If
End If
End Sub

Named range:
=Offset(Liste!$A$2,,,CountA(Liste!$A:$A)-1)

JB


On 4 avr, 01:00, GEdwards wrote:
I cannot find if there is a way to have a dropdown list that contains
pre-defined data validation entries and also allow a user to input their own.

Is there a way to do this in Excel?