Remplir automatiquement combobox vb
alexandretlse
Messages postés
35
Statut
Membre
-
alexandretlse Messages postés 35 Statut Membre -
alexandretlse Messages postés 35 Statut Membre -
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.
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.
1 réponse
-
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()-
-
-
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!!!
-
