Remplir automatiquement combobox vb

Fermé

alexandretlse Messages postés 35 Date d'inscription vendredi 25 mars 2011 Statut Membre Dernière intervention 28 avril 2011 - 11 avril 2011 à 10:57
alexandretlse Messages postés 35 Date d'inscription vendredi 25 mars 2011 Statut Membre Dernière intervention 28 avril 2011 - 11 avril 2011 à 15:45

Bonjour,

J'ai un petit souci je n'arrive pas a trouver la commande qui me permettra de remplir ma combobox.
Le pb c'est que je vais récupérer ce qu'il y aécrit dans un fichier txt et j'aimerais l'écrire dans ma combobox.
Voici mon pgm:

Private Sub CommandButton1_Click()
'Public Sub txt_15col()
Dim lig As Long ' ligne
Dim col As Integer ' colonne
Dim art As String ' article lu
Dim cel As String ' valeur cellule
Dim fic As String ' chemin fichier
Dim idx As Integer ' index caractère
'fic = Application.GetOpenFilename("Textes,*.txt")
Dim montab(364) As String

Columns("b:b").ClearContents

Do While (1)

DoEvents

fic = ("C:\Documents and Settings\8209632N\Bureau\alex.txt")
Open fic For Input As #1 ' ouvre fichier texte
lig = 1 ' ligne début
Do
Input #1, art ' lecture
idx = 0 ' initiatisation index
While idx < Len(art) ' boucle mongueur article
For col = 2 To 15 ' 15 colonnes
cel = "" ' initiatisation cellule
Do
idx = idx + 1
If Mid(art, idx, 1) = ";" Then Exit Do
cel = cel & Mid(art, idx, 1)
Loop While idx < Len(art)
'Cells(lig, col).Value = cel ' valorisation cellule
montab(lig) = cel
combobox1.Caption = montab(lig)
Next col
lig = lig + 1 ' changement de ligne
Wend
Loop While Not EOF(1)
Close #1

Loop

End Sub

Merci.

A voir également:

Remplir automatiquement combobox vb
Organigramme a remplir word - Guide
Vb cable - Télécharger - Audio & Musique
Remplir et signer pdf - Guide
Vb - Télécharger - Langages
Automatiquement - Guide

1 réponse

Réponse 1 / 1

hanane
11 avril 2011 à 14:32

salut !tu dois mettre ce code en formload
con.Open()
req = "select la colonne from la table"
cmd = New SqlCommand(req, con)
dr = cmd.ExecuteReader()
While (dr.Read())
combobox1.Items.Add(dr(0))
End While
dr.Close()
con.Close()

alexandretlse Messages postés 35 Date d'inscription vendredi 25 mars 2011 Statut Membre Dernière intervention 28 avril 2011 7
11 avril 2011 à 15:09

Salut merci pour le code mais étant débutant je sais pas ce que veux dire formload.
Que veux dire "con"?
Et ou est ce que je dois mettre le bout de code que tu m'as donné dans mon code a moi?

Merci pour le temps passé.

NanoO
11 avril 2011 à 15:31

Doubl click sur ton form et tu tap le code ke j t envoyé
con = c'est a dire ta connection
j 'esper ke t a compri !
a+

alexandretlse Messages postés 35 Date d'inscription vendredi 25 mars 2011 Statut Membre Dernière intervention 28 avril 2011 7
Modifié par alexandretlse le 11/04/2011 à 15:46

Re,

Je suis dsl mais j'ai fait ce que tu m'as dit et ca ne marche pas voici mon code en entier:

Private Sub CommandButton1_Click()
Dim lig As Long ' ligne
Dim col As Integer ' colonne
Dim art As String ' article lu
Dim cel As String ' valeur cellule
Dim fic As String ' chemin fichier
Dim idx As Integer ' index caractère
Dim montab(364) As String

Do While (1)

DoEvents

fic = ("C:\Documents and Settings\8209632N\Bureau\alex.txt")
Open fic For Input As #1 ' ouvre fichier texte
lig = 1 ' ligne début
Do
Input #1, art ' lecture
idx = 0 ' initiatisation index
While idx < Len(art) ' boucle mongueur article
For col = 2 To 15 ' 15 colonnes
cel = "" ' initiatisation cellule
Do
idx = idx + 1
If Mid(art, idx, 1) = ";" Then Exit Do
cel = cel & Mid(art, idx, 1)

Loop While idx < Len(art)
montab(lig) = cel
Cells(lig, col).Value = montab(lig)
Next col

lig = lig + 1 ' changement de ligne
Wend
Loop While Not EOF(1)
Close #1

Loop

End Sub

Private Sub UserForm_Click()

con.Open()
req = "select la colonne from la table"
cmd = New SqlCommand(req, con)
dr = cmd.ExecuteReader()
While (dr.Read())
ComboBox1.Items.Add (dr(0))
End While
dr.Close()
con.Close()

End Sub

MERCI!!!

Discussions similaires

code couleur associé a une image

Remplir une cellule (texte) en fonction d'une autre (texte).

exo pix

[Excel 2010] Remplir cellule d'après contenu d'une autre

remplir un tableau a partir de données d'un autre tableau

Discussions similaires

Newsletters