XL 2016 Liste déroulante ET texte libre

[jonathanV21]

Bonjour a toutes et tous,

Je voudrais dans une cellule, que l'utilisateur puisse écrire et sélectionner dans une liste déroulante la suite de sa phrase.

Par exemple il écrit "A1 est lundi" puis il peut sélectionner dans sa liste "=K8:K10".

Merci de votre aide, en PJ mon Excel,

Jonathan

 

[fanch55]

Salut,
un début imparfait de solution :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Validation.InCellDropdown And Target.Column = 4 Then
    If Err = 0 And Target <> vbNullString Then
        Old = Target.Value
        Application.EnableEvents = False
            Application.Undo
            If InStr(Target, Old) = 0 Then Target = Old & vbLf & Target
        Application.EnableEvents = True
    End If
End If

End Sub

Attention:
une fois qu'un élément a été choisi, le seul moyen de tout recommencer est de vider la cellule