Récupération valeur combobox

Fermé
SylSSet - 30 nov. 2010 à 15:37
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 - 30 nov. 2010 à 20:25
Bonjour,
Voici ma requête, je cherche à récupérer la valeur d'une ComboBox (ComboBoxClients) sur un autre UserForm.

"SELECT clients.Numero, clients.Nom, clients.Prenom, clients.Adresse, clients.CodePostal, clients.Ville, clients.DateNaissance, clients.NumeroSS, clients.Banque, clients.Telephone FROM clients WHERE clients.numero = " + UserForm1.ComboBoxClients .....

Que faut il que je marque?
A voir également:

2 réponses

jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
30 nov. 2010 à 15:58
salut

op op op, pas trop vite.

tu veut récupéré la valeur d'une ComboBox dans un UserForm pour la mettre dans une cellule ?
0
Euh oui !!!
0
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
30 nov. 2010 à 20:19
ok, je vais chercher dans mon ta de parasse virtuel XD
0
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
Modifié par jimmy1120112 le 30/11/2010 à 20:34
Alors il faut que dans ta UserForm il y est un bouton qui fait office de validation, tu double clique dessus et tu met se code :

Si tu veut qu'a chaque fois que tu valide un formulaire sa vienne en liste met sa :

Dim Lg As String, i As Long, IntLigne As Long
IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1
'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox1
Lg = Sheets("NOM DE TA FEUIL").Cells(65536, 1).End(xlUp).Row + 1
'texte des cases
Sheets("NOM DE TA FEUIL").Cells(Lg, "A").Value = NOM DE TA USERFORM.ComboBox1.Value

Tu peut modifier (Lg, "A") par la colonne que tu veut

Si tu veut que sa vienne remplacer la valeur de la cellule a chaque fois ses sa :

Sheets("NOM DE TA FEUIL").Range("A1").Value = NOM DE TA USERFORM.ComboBox1.Value

MAIS DANS LE BOUTON VALIDER, PAS DANS LA COMBOBOX

Bonne continuation
A+
Cordialement.
Jim
0