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.
A voir également:
- Remplir automatiquement combobox vb
- Organigramme a remplir word - Guide
- Automatiquement - Guide
- Copiez l'image dans un logiciel d'édition d'images ou un outil en ligne comme js paint ou pixlr e. remplissez les cases en suivant le code couleur. des cases supplémentaires vont se remplir automatiquement. que représente le dessin ? ✓ - Forum Windows
- Sauvegarder conversation snap automatiquement ✓ - Forum iPhone
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
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é.
con = c'est a dire ta connection
j 'esper ke t a compri !
a+
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!!!