Récupération valeur combobox
SylSSet
-
jimmy1120112 Messages postés 713 Statut Membre -
jimmy1120112 Messages postés 713 Statut Membre -
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?
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?
2 réponses
-
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 ?
-
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
