Z
zeltron
Guest
Bonjour a tout le Forum,
J'ai une listbox sur une feuille excel, qui reprends des element d'une base sur une autre feuille excel ( grace à l'aide d'Hervé que je remercie encore).
Ce que j'aimerais faire c'est lorsque l'on clique sur cette listbox, un usf s'ouvre. Ce usf a qqles textbox, et je voudrais que la valeur des ces textbox soit par exemple la valeur de la 3eme colonne de la ligne de la listbox qui a été cliquée pour ouvrir cet usf.
Cliqué sur la listbox et que le usf s'ouvre: pas de pb.avec le code suivant dans :
Private Sub ListBox_MEMO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm12.Show
End Sub
Seulement dans le code de l'usf ( qui contient le textbox1), j'ai mis le code suivant ( en m'inspirant de ce que j'ai vu sur le forum):
Private Sub UserForm_Initialize()
NomLBindex = listbox1.ListIndex + 2
TextBox1 = Sheets('Base_MEMO').range('A' & NomLBindex)
'End Sub
Et là:
soit le textbox reste vide
soit il me pose pb avec Private Sub UserForm_Initialize() qu'il me souligne en jaune.
Quelqu'un peut il m'aider?
Je vous un petit exemple
Merci d'avance pour votre aide
Cordialement
Zeltron
J'ai une listbox sur une feuille excel, qui reprends des element d'une base sur une autre feuille excel ( grace à l'aide d'Hervé que je remercie encore).
Ce que j'aimerais faire c'est lorsque l'on clique sur cette listbox, un usf s'ouvre. Ce usf a qqles textbox, et je voudrais que la valeur des ces textbox soit par exemple la valeur de la 3eme colonne de la ligne de la listbox qui a été cliquée pour ouvrir cet usf.
Cliqué sur la listbox et que le usf s'ouvre: pas de pb.avec le code suivant dans :
Private Sub ListBox_MEMO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm12.Show
End Sub
Seulement dans le code de l'usf ( qui contient le textbox1), j'ai mis le code suivant ( en m'inspirant de ce que j'ai vu sur le forum):
Private Sub UserForm_Initialize()
NomLBindex = listbox1.ListIndex + 2
TextBox1 = Sheets('Base_MEMO').range('A' & NomLBindex)
'End Sub
Et là:
soit le textbox reste vide
soit il me pose pb avec Private Sub UserForm_Initialize() qu'il me souligne en jaune.
Quelqu'un peut il m'aider?
Je vous un petit exemple
Merci d'avance pour votre aide
Cordialement
Zeltron