cs_Fabian123
Messages postés180Date d'inscriptionvendredi 18 janvier 2008StatutMembreDernière intervention22 novembre 2013
-
29 févr. 2008 à 10:43
cs_Fabian123
Messages postés180Date d'inscriptionvendredi 18 janvier 2008StatutMembreDernière intervention22 novembre 2013
-
29 févr. 2008 à 11:07
Bonjour à tous!
la question est dans le titre, mais j'explique quand même un peu!
j'ai créé un userform dans lequel j'ai un combobox, un textbox et un commandbutton.
Lorsque l'utilisateur entre un nom dans le textbox et qu'il clique ensuite sur le bouton, l'information est enregistrée
dans un fichier .txt.
j'ai aussi un combobox qui est lié à la liste des noms du fichier.txt malheureusement le combobox ne se met pas à jour automatiquement. donc lorsque l'utilisateur entre un nouveau nom, il est bien enregistré dans le fichier.txt mais il n'apparait pas dans le combobox. Il faut fermer le UserForm et le relancer...
Est-il possible de faire une mise à jour automatique?
je vous laisse ci-dessous le code:
Private Sub UserForm_Activate()
'ouverture du fichier et lecture ligne par ligne
Open "C:\essai.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ligne$
ComboBoxNom.AddItem Mid(ligne$, 1)
Loop
Close #1
End Sub
Private Sub CommandButtonEnregistrer_Click()
Dim texte
texte = TextBoxNom.Text
Open "C:\essai.txt" For Append As #1
Print #1, texte
Close #1
TextBoxNom.Text = ""
End Sub
A voir également:
Mise a jour automatique d'un combobox lié a un fichier .txt
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 29 févr. 2008 à 10:59
Salut,
Il te suffit au moment ou tu enregistre le nom dans le fichier, de l'ajouter à la combo box.
Private Sub CommandButtonEnregistrer_Click()
Dim texte As String
texte = TextBoxNom.Text
Open "C:\essai.txt" For Append As #1
Print #1, texte
Close #1
Call ComboBoxNom.AddItem(texte)
TextBoxNom.Text = vbNullString
End Sub , ----
[code.aspx?ID=41455 By Renfield]