Liste déroulantes a partir fichier texte

H

hlander

Guest

• 7 Janvier 2009

• #2

Re : Liste déroulantes a partir fichier texte

Idealement je souhaiterais pourvoir faire de la completion.

Biensur j'imagine ça en VBA

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Janvier 2009

• #3

Re : Liste déroulantes a partir fichier texte

Bonjour hlAnder,

Vas voir la faq et notament ceci pour le traitement des fichiers textes.

A bientôt

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 7 Janvier 2009

• #4

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

• Classeur1.xls

  27 KB · Affichages: 104
• Classeur1.xls

  27 KB · Affichages: 107
• Classeur1.xls

  27 KB · Affichages: 104

Vote positif 0 Vote négatif

H

hlander

Guest

• 7 Janvier 2009

• #5

Re : Liste déroulantes a partir fichier texte

merci pour votre aide

 

Vote positif 0 Vote négatif