Bonjour,
Je suis bloqué dans la programmation de mon fichier.
Au niveau de mon menu principal, pour modifier une analyse, je souhaiterai récupérer les valeurs de ma listbox pour ensuite ouvrir ma userfrom de saisie pour modifier les données.
J'ai essayer un code, ça merdouille au niveau du choix de la textbox
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
With UserForm1
Me.TextBox4 = Me.ListBoxResultat.List(Compteur, 0)
Exit Sub
End If
Next
ActiveCell = ListBoxResultat.Value
End Sub
Merci de votre aide
Je suis bloqué dans la programmation de mon fichier.
Au niveau de mon menu principal, pour modifier une analyse, je souhaiterai récupérer les valeurs de ma listbox pour ensuite ouvrir ma userfrom de saisie pour modifier les données.
J'ai essayer un code, ça merdouille au niveau du choix de la textbox
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
With UserForm1
Me.TextBox4 = Me.ListBoxResultat.List(Compteur, 0)
Exit Sub
End If
Next
ActiveCell = ListBoxResultat.Value
End Sub
Merci de votre aide