Liste déroulantes a partir fichier texte

  • Initiateur de la discussion Initiateur de la discussion hlander
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

hlander

Guest
Bonjour,

J'explique mon pb, Je dispose d'un fichier texte avec deux colonnes :

1;description1
2;description2

etc.....

J'aimerais pouvoir a partir d'une feuille excel remplir une colonne en choisissant au sein de la liste présent dans le fichier texte.

J'ai pensé utiliser les listes déroulantes, mais comment faire a partir d'un fichier.

Merci pour votre aide
 
Re : Liste déroulantes a partir fichier texte

Bonjour,

Code:
Private Sub ComboBox1_DropButtonClick()
  Open "maliste.txt" For Input As #1
  Dim a()
  n = 0
  Do While Not EOF(1)
    Line Input #1, temp
    b = Split(temp, ";")
    n = n + 1
    ReDim Preserve a(1 To 2, 1 To n)
    a(1, n) = b(0)
    a(2, n) = b(1)
  Loop
  Close #1
  ComboBox1.List = Application.Transpose(a)
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour