Transformer liste déroulante en Text Box

Bonjour à toutes et à tous

je travaille sur un planning automatisé en VBA que j'ai repris et j'ai un soucis avec mon User Form. Il y a un champ qui est une liste déroulante (en jaune) et je voudrais la transformer en champ Texte libre (pour après pouvoir copier-coller du texte dedans.)

J'ai cela comme code:

Private Sub ComboBox_type_Change()

Dim j As Long

Me.ComboBox_meeting.Clear

If Me.ComboBox_type.ListIndex = -1 Then Exit Sub

For j = 1 To Range(Me.ComboBox_type).Rows.Count

Me.ComboBox_meeting.AddItem Range(Me.ComboBox_type).Range("A" & j)

Next j

End Sub

Avez-vous une idée sur les modifs que je dois apporter svp?

ci-dessous une capture d'écran du UserForm et une copie du fichier sur lequel je travaille.

merci de votre aide!!

dqjg
33cdl.zip (474.41 Ko)
Rechercher des sujets similaires à "transformer liste deroulante text box"