Bonjour,
J'ai un bouton "modifier" sur mon fichier, je souhaite rechercher une analyse lorsque je clique sur la ligne ma Userform de saisie s'ouvre avec les données déjà connues.
J'ai crée un code :
Private Sub ListBoxResultat_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' Choisir Contact
Dim Compteur As Integer
For Compteur = 0 To (ListBoxResultat.ListCount - 1)
If ListBoxResultat.Selected(Compteur) = True Then
UserForm1.TextBox4 = UserForm3.ListBoxResultat.List(Compteur, 0)
UserForm1.TextBox2 = UserForm3.ListBoxResultat.List(Compteur, 1)
UserForm1.TextBox25 = UserForm3.ListBoxResultat.List(Compteur, 2)
UserForm1.TextBox3 = UserForm3.ListBoxResultat.List(Compteur, 3)
UserForm1.ComboBox4 = UserForm3.ListBoxResultat.List(Compteur, 4)
UserForm1.ComboBox3 = UserForm3.ListBoxResultat.List(Compteur, 5)
UserForm1.ComboBox2 = UserForm3.ListBoxResultat.List(Compteur, 6)
UserForm1.ComboBox1 = UserForm3.ListBoxResultat.List(Compteur, 7)
UserForm1.TextBox5 = UserForm3.ListBoxResultat.List(Compteur, 8)
UserForm1.Show
Exit Sub
End If
Next
ActiveCell = ListBoxResultat.Value
End Sub
Cela fonctionne, juste au niveau de ma Combobox 4 il ne me saisie pas le bon format, j'attend des service = 2021, 2026.... au lieu de ça il me note 1, 2....
Et lorsque je souhaite continuer mon code pour qu'il me remplisse le reste des analyses, cela beugue...
Bref je suis bloqué.