Userform et Combobox

[jonleboss]

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

 

[deudecos]

Re : Userform et Combobox

Salut Jonleboss, le forum,

Pas sur d'avoir compris ce que tu voulais, mais bon, vois le fichier joint...

Bonne journee

Olivier