Userform et Combobox

Renvoi valeur Combobox

Bonjour à tous,

je cherche à envoyer la valeur d'une combobox utilisé dans un userform,vers une cellule (la E2 sur mon exemple)...en fait cette fonction sera integré dans une macro qui deplace des valeurs de textbox vers des cellules...Mais je n'arrive pas a faire de meme pour les valeur de mes combobox!

Je vous mets la fonction pour mes textbox au cas ou! mais je souhaiterais plus une sequence a ajouter après cette partie de la macro 🙂


Dim Dl As Long 'déclare la variable Dl (Dernière ligne)
Dim x As Byte 'déclare la variable x

With Sheets("Listing Contact")
.Activate 'active l'onglet "Feuil2"
Dl = .Range("A65536").End(xlUp).Row + 1 'définit la variable Dl

'place les donnés dans le tableau
For x = 1 To 16 'boucle sur 24 éléments
.Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
Next x
Dl = .Range("A65536").End(xlUp).Row + 1 'définit la variable Dl

'place les donnés dans le tableau
For x = 18 To 28 'boucle sur 24 éléments
.Cells(Dl, x).Value = Me.Controls("TextBox" & x).Value
Next x

Unload Me 'vide et ferme l'UserFOrm
End With




Merci d'avance