Discussion :

[cocopops78]

Hello

Je me lance dans l'apprentissage de VBA pour excel par la pratique.

Je suis confronté à un problème : les listbox que je créés dans le userform ne se lancent pas au clic alors que c'est bien programmé ( ie Sub Listbox_click créé ).

Merci de l'aide .

EXCEL 2000
XP PRO SP3

[Ben_L]

Bonjour,

Passez la propriété 'ListStyle' de la ListBox à 'fmListStyleOption' permet d'accéder à l'événement _Click().
Il convient également de vérifier que la propriété 'MultiSelect' vaut bien 'fmMultiSelectSingle'.

Cdt

[cocopops78]

Merci du retour rapide.
J'ai fait la modif ; ça ne marche pas.
La procédure associée est la suivante pour la ListBox :

Code :

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

1
2
3
4
5
6
Private Sub Import_Click()
Dim fichier_choisi As String
fichier_choisi = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Sélectionner le fichier CSV")
liste_fichiers.AddItem (fichier_choisi)
 
End Sub

Peut-être que le souci vient de paramétrage du UserForm ? (Je vois par exemple un champ 'MousePointer' ?)

[Ben_L]

L'événement _Click() ne se déclenche que lorsqu'on clique sur un élément de la liste.
Votre liste doit donc absolument contenir des éléments. Et cliquer sur la zone qui existe potentiellement en bas de la listbox, là où aucun élément n'est présent, ne lancera pas l'événement.

Contrairement à ce que j'affirme dans mon premier post, fixer la propriété ListStyle n'est pas nécessaire.
Par contre, il faut bien que MultiSelect vaille 0.

Cdt

[cocopops78]

En fait j'essaie de dérouler le tuto suivant ( importer des fichiers texte sous excel ) :
https://www.bonbache.fr/importer-et-...excel-145.html

Le soucis on n'a pas acces au code source directement ( mais il y en a un peu partout sur le tuto ). Peut etre que le tuto est faux ? En tout cas je n'arrive pas à declencher les procedures qui sont codés pour la liste box .
Je ne vois pas ce qui manque .

[Thautheme]

Bonjour le fil, bonjour le forum,

Si tu ne te décides pas à fournir le code complet de l'UserForm difficile de t'aider...