XL 2016 Liste déroulante ET texte libre

jonathanV21 · 24 Juin 2020

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 · 29 Juin 2020

Salut,
un début imparfait de solution :

VB:

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

XL 2016 Liste déroulante ET texte libre

jonathanV21

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

Discussions similaires