Bonjour Forum,
Voici ce que je cherche à faire:
À partir d'une textbox je veux chercher dans une listbox
Ma listbox est en fait tous les fichiers qui sont dans un dossier.
J'aimerais ajouter une textbox dans le formulaire vert qui m'aiderait à trouver plus rapidement soit un nom, ou le numéro de la soumission.
Voici comment mes listbox sont générées:
Private Sub UserForm_Initialize()
Dim Profil As String
Profil = Environ("username")
Dim repertoire3 As String, fichier3 As String
Dim repertoire4 As String, fichier4 As String
Dim NomFichier As String
NomFichier = UserForm12.Label11.Caption
repertoire3 = "C:\Users\" & Profil & "\OneDrive - bergerongagne\MAISON USINÉES COTÉ\Save_Devis_Excel\Devis\PDF\"
repertoire4 = "C:\Users\" & Profil & "\OneDrive - bergerongagne\MAISON USINÉES COTÉ\Save_Devis_Excel\Facture\PDF\"
fichier3 = Dir(repertoire3 & NomFichier & "*.pdf")
Do While fichier3 <> ""
ListBox3.AddItem fichier3
fichier3 = Dir
Loop
fichier4 = Dir(repertoire4 & NomFichier & "*.pdf")
Do While fichier4 <> ""
ListBox4.AddItem fichier4
fichier4 = Dir
Loop
End Sub
Merci!