Listbox

[jmsonnet]

Bonjour

Je viens de réaliser une listbox mais je ne sais pas comment sélectionner une ligne du résultat dans la listbox merci de votre aide
😕

 

[gilbert_RGI]

Re : Listbox

Bonjour

quelle listbox ?

formulaire ou active X

 

[jmsonnet]

Re : Listbox

Désolé voici mon code :
Private Sub CommandButton6_Click()
Dim myarray()
Dim fs As Object
Dim i As Integer

' Declaration filesearch object.
Set fs = Application.FileSearch

' Set du dossier à chercher
'fs.LookIn = "\\file\partage\MAJ\Groupe PP\Suivi-BT-HV"
'fs.LookIn = "\\file\partage\MAJ\Groupe PP\Suivi-BT-HV"
fs.LookIn = "C:\Documents and Settings\jeanmimi\Bureau\MBR\Suivi-BT-HV"
Dim Recherche As String
Recherche = InputBox("Rechercher d'un BT") '"*.doc"

' Set pour le nom de fichier à chercher
fs.Filename = Recherche


'Exécutez le fichier de recherche, et vérifie si le fichier(s) sont Présents.
If fs.Execute > 0 Then

' Redimensionner le tableau par apport au nombre de fichiers trouvés.
ReDim myarray(fs.FoundFiles.Count)

' Boucle à travers tous les noms de fichiers trouvés et rempli le tableau.
For i = 1 To fs.FoundFiles.Count
myarray(i) = fs.FoundFiles(i)
Next i
Else
' Affichage d'un message si aucun fichier n'a été trouvé.
MsgBox "Pas de fichiers trouvés"
End If

' Boucle dans le tableau et rempli la zone de liste sur l'UserForm.
For i = 1 To fs.FoundFiles.Count
UserForm2.ListBox1.AddItem myarray(i)
Next i

' Affichage de l'UserForm
Unload UserForm1
UserForm2.Show
End Sub

 

[jmsonnet]

Re : Listbox

lorsque j'utilise cette macro je récupére le chemin et non le nom du fichier comment faire pour récuperer que le nom merci de votre aide