Discussion :

[philguio]

Bonjour
Voila je suis debutant en vb 2005.
Je suis en train de faire une application gerant une base de donnée access et une feuille excel. ma question est la suivant je cherche a remplir mes combobox avec les colonnes access

merci de me donner un petit coup de main car je " patoge".
@
Philippe

[ouskel'n'or]

Bonjour philguio, bienvenue sur le forum. As-tu fait une recherche sur le forum VBA avec "Access & Excel" comme mots clé ?
Regarde déjà là http://www.developpez.net/forums/sho...t=Access+Excel
Mais il y a de nombreuses réponses
A+

[philguio]

bonjour,
voila je commence a sortir un peut la tete de l'eau, mes combobox ce remplisse avec ce que je veut, par contre je veut récuperer la valeur le la liste du combo. Pour le moment je récupére la valeur dans une textbox,mais le text ne change pas quand je choisi un autre nom sur le combo

merci de me montret le début du chemin

@
Philippe

[ouskel'n'or]

Code :

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

LaVal = ComboBox1.list(ComboBox1.listindex)

A+

[philguio]

Erreur 1 'list' n'est pas un membre de 'System.Windows.Forms.ComboBox'.

et idem pour listindex

je ne comprend pas bien ce qu'il faut ajouter

voila ce que j'ai essayé

Dim LaVal As String

LaVal = ComboBox1.list(ComboBox1.listindex)

merci
@
Philippe

[philguio]

et derriere

j'ai ajouté TextBox1.Text = LaVal

@+

[netomin]

Je sais pas si c'est ça que tu cherche, mais voilà le code:

Code :

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

1
2
3
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = ComboBox1.SelectedItem.ToString
    End Sub

Ici à la place du textbox.text tu peut utiliser ta variable LaVal.

[Khalid.bounouader]

je coris que vous chercher ce code:
dans la form ou se trouve ton combobox1 tu vas ajouté ce code dans form1_load pour remplir ton combobox1 par les elements d'une table access:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
connect.open
dim cmd as sqlcommand = new sqlcommand("select Nom form Etudiant",connect)
dim read as sqldatareader  = cmd.executereader
combobox1.items.clear
if (read.hasrowsx) then
while read.read
combobox1.item.add(read?getvalue(0))
end while 
end if
read.close
connect.close