mise a jour automatique d'un combobox lié a un fichier .txtRésolu

Question

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

jrivet · Accepted Answer

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]

Je pense que cela devrait repondre à tes attentes

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Fabian123 · Answer

Merci!!!!!

et merci aussi de corriger les autres petites erreurs de mon code!

Mise a jour automatique d'un combobox lié a un fichier .txt

2 réponses

Votre réponse

Discussions similaires