Private Sub UserForm4_Initialize()
'Initialisation de la recherche
Me.ListBox1.liste = [fiche_titre_2].Value
End Sub
'recherche par mot contenu
Private Sub TextBox2_Change()
'effacement de la zone de liste
Me.ListBox1.Clear
For Each l In [fiche_titre_2]
If UCase(l) Like "*" & UCase(Me.TextBox2) & "*" Then Me.ListBox1.AddItem l
Next l
End Sub
Private Sub listbox1_dblclick(ByVal cancel As MSForms.ReturnBoolean)
'validation du choix
[liste_alpha_3] = Me.ListBox1
[param_n°_ligne_fiche] = [pos_enreg_rech_3]
Unload Me
End Sub