Discussion :

[manufer]

Salut à tous,

Voilà j'essaie de créer une barre de recherche en VBA,
Celle-ci chercherait ces informations dans une base de donnée

J'ai donc dans un module standar:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Const base As String = "UID=xxxxxxxxxxx;PWD=xxxxxxxxxxxxxxx;" & "Server=xxxxxxxxxxxxxxxx;"

Ensuite dans l'userform1
J'ai un textbox et une listbox
Pour L'ouverture de la connexion:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change()
Dim conxn As New ADODB.Connection
Dim rqt As New ADODB.Recordset
Dim SQL As String
'pilote de connexion
conxn.Provider = "SQLOLEDB"
'chaîne de connexion
conxn.ConnectionString = base
'Ouverture bd
conxn.Open

ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If TextBox1 = "" Then ListBox1.Visible = False
If TextBox1 <> "" Then  (c'est ici que je souhaite alimenter la listbox)
 
SQL = "SELECT CONCAT(ville, ' - ', 'numdep', ) FROM bdclient"
 
ListBox1.AddItem = SQL

cette dernière partie ne fonctionne pas.

et enfin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

conxn.close

Pouvez-vous m'éclairer svp parce que j'ai essayé des choses mais rien ne fonctionne.

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If TextBox1 = ""Then ListBox1.Visible = FalseIf TextBox1 <> "" Then  (c'est ici que je souhaite alimenter la listbox)
 
SQL = "SELECT CONCAT(ville, ' - ', 'numdep', ) FROM bdclient"
  ListBox1.list= application.transpose(conxn.execute(SQL).getrows)

[manufer]

Salut,

Merci dysorthographie.

J'ai voulu récupérer le résultat de la requête dans le textbox1 après un click sur un élément de listbox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ListBox1_Click()
Alpha = ListBox1.ListIndex
For i = 0 To ListBox1.ColumnCount - 1
Me.Controls("TextBox1") = ListBox1.List(Alpha, i)
Next
End Sub

Cela fonctionne, mais si je souhaite en plus de cela placé l'élément sélectionné dans la dernière cellule non vide de la feuille 2 colonne "A",

cela ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub ListBox1_Click()
 
Dim Lig As Long
Alpha = ListBox1.ListIndex
 
For i = 0 To ListBox1.ColumnCount - 1
 
Me.Controls("TextBox1") = ListBox1.List(Alpha, i)
 
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Range("A65536").End(xlUp).Row = ListBox1.List(Alpha, i)
 
Next
End Sub

Savez-vous comment procéder svp ?

[manufer]

Salut à tous

J'ai aussi essayé ça mais ça ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub ListBox1_Click()
-------------------------------
Dim derLig As Long
derLig = Sheets("Feuil2").Cells(Rows.Count, 5).End(xlUp).Row + 1
Me.Controls("TextBox1").Copy Destination:=derLig
---------------------------------------------------------

Avez-vous des solutions svp ?

[manufer]

Voilà ce que j'ai fait et ça l'air de fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Worksheets("Feuil3").Activate
 
dligne = Feuil3.Range("A" & Rows.Count).End(xlUp).Row
If dligne < 5 Then dligne = 5
Worksheets("Feuil3").Range("A" & dligne + 1).Value = TextBox1.Value

[manufer]

Est-il possible de filtrer sur le listbox,

pour qu'au fur et à mesure de la saisie dans le textbox,

le listbox ne fasse apparaitre que les éléments saisis ?

Avez-vous des idées parce ce que je suis un peu bloqué sur ce point ?