Discussion :

[WalTT]

Bonjour à tous,

J'ai un formulaire avec un combobox ecrit comme ci-dessous.
Au lieu d'avoir les différentes valeurs dans le code VBA, j'aimerai que les valeurs soient dans un fichier .txt
Cela permettrait plus facilement de remplacer les valeurs par un utilisateur novice en VBA.
Les valeurs seront écrites dans le fichier .txt l'une en dessous de l'autre (en colonne)
Y a t'il un moyen d'aller lire dans le fichier .txt et de remplir mon comobox?

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
ComboBoxTraitementSurface.Clear
ComboBoxTraitementSurface.Value = TraitementSurfaceLu
ComboBoxTraitementSurface.AddItem "Peinture Ral"
ComboBoxTraitementSurface.AddItem "Peinture Fixe"
ComboBoxTraitementSurface.AddItem "Peinture Mobile"
ComboBoxTraitementSurface.AddItem "Brunissage"
ComboBoxTraitementSurface.AddItem "Anodisation"

[Nain porte koi]

Hello,

comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Initialize()
 
    Dim Chemin As String
    Dim Ligne_Texte As String
    Dim Num_Fichier As Integer
 
    Chemin = "C:\temp\liste.txt"
 
    Num_Fichier = FreeFile
    Open Chemin For Input As #Num_Fichier
 
    Do While Not EOF(Num_Fichier)
        Line Input #Num_Fichier, Ligne_Texte
        ComboBox1.AddItem Ligne_Texte
    Loop
 
    Close #Num_Fichier
 
End Sub

[Franc]

Salut, pourquoi un fichier texte plutôt qu'une liste dynamique sur une feuille ?
Voici un exemple, j'ai créé un tableau sur ma "Feuil2" et je l'ai appelé "Traitement".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lo As ListObject
    Dim i As Long
 
    Set ws = ThisWorkbook.Sheets("Feuil2")
    Set lo = ws.ListObjects("Traitement")
 
        With ComboBoxTraitement
            .Clear
            For i = 1 To lo.ListRows.Count
                .AddItem lo.DataBodyRange.Cells(i, 1).Value
            Next i
        End With
End Sub

[Thumb down]

bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
ComboBoxTraitementSurface.List = LireFichierListe
End Sub
Function LireFichierListe() As String()
    Dim Num_Fichier As Integer: Num_Fichier = FreeFile ' Obtenir un numéro de fichier libre
    Open Environ("temp") & "\liste.txt" For Input As #Num_Fichier ' Ouvrir le fichier en mode lecture
    LireFichierListe = Split(Input(LOF(Num_Fichier), Num_Fichier), vbCrLf) ' Lire tout le fichier d'un coup, et retourne tableau
    Close #Num_Fichier ' Fermer le fichier
End Function

[WalTT]

Hello,

comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Initialize()
 
    Dim Chemin As String
    Dim Ligne_Texte As String
    Dim Num_Fichier As Integer
 
    Chemin = "C:\temp\liste.txt"
 
    Num_Fichier = FreeFile
    Open Chemin For Input As #Num_Fichier
 
    Do While Not EOF(Num_Fichier)
        Line Input #Num_Fichier, Ligne_Texte
        ComboBox1.AddItem Ligne_Texte
    Loop
 
    Close #Num_Fichier
 
End Sub

Merci, c'est exactement ce don j'avais besoin! super!

[WalTT]

Salut, pourquoi un fichier texte plutôt qu'une liste dynamique sur une feuille ?
Voici un exemple, j'ai créé un tableau sur ma "Feuil2" et je l'ai appelé "Traitement".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lo As ListObject
    Dim i As Long
 
    Set ws = ThisWorkbook.Sheets("Feuil2")
    Set lo = ws.ListObjects("Traitement")
 
        With ComboBoxTraitement
            .Clear
            For i = 1 To lo.ListRows.Count
                .AddItem lo.DataBodyRange.Cells(i, 1).Value
            Next i
        End With
End Sub

Merci mais je souhaite vraiment aller lire le fichier .txt qui est utilisé pour d'autre choses. Ainsi tout sera centralisé sur ce fichier, ça évitera des doublons pas forcément mis à jour...
Merci quand même

[WalTT]

bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
ComboBoxTraitementSurface.List = LireFichierListe
End Sub
Function LireFichierListe() As String()
    Dim Num_Fichier As Integer: Num_Fichier = FreeFile ' Obtenir un numéro de fichier libre
    Open Environ("temp") & "\liste.txt" For Input As #Num_Fichier ' Ouvrir le fichier en mode lecture
    LireFichierListe = Split(Input(LOF(Num_Fichier), Num_Fichier), vbCrLf) ' Lire tout le fichier d'un coup, et retourne tableau
    Close #Num_Fichier ' Fermer le fichier
End Function

Bonjour,
Cette solution à l'air bien, mais mon niveau en VBA ne me permet pas de comprendre comment l'appliquer.
A quel endroit doit-on indiquer le répertoire et le nom du fichier?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F:\07- Listes propriétes personalisées 2023\Liste dessinateur

Merci

[Thumb down]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
ComboBoxTraitementSurface.List = LireFichierListe("F:\07- Listes propriétes personalisées 2023\Liste dessinateur.txt")
End Sub
Function LireFichierListe(Txt as string) As String()
    Dim Num_Fichier As Integer: Num_Fichier = FreeFile ' Obtenir un numéro de fichier libre
    Open TxtFor Input As #Num_Fichier ' Ouvrir le fichier en mode lecture
    LireFichierListe = Split(Input(LOF(Num_Fichier), Num_Fichier), vbCrLf) ' Lire tout le fichier d'un coup, et retourne tableau
    Close #Num_Fichier ' Fermer le fichier
End Function

[WalTT]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
ComboBoxTraitementSurface.List = LireFichierListe("F:\07- Listes propriétes personalisées 2023\Liste dessinateur.txt")
End Sub
Function LireFichierListe(Txt as string) As String()
    Dim Num_Fichier As Integer: Num_Fichier = FreeFile ' Obtenir un numéro de fichier libre
    Open TxtFor Input As #Num_Fichier ' Ouvrir le fichier en mode lecture
    LireFichierListe = Split(Input(LOF(Num_Fichier), Num_Fichier), vbCrLf) ' Lire tout le fichier d'un coup, et retourne tableau
    Close #Num_Fichier ' Fermer le fichier
End Function

Parfait, merci beaucoup!