besoin de support et useform

G

Guest

Guest

• 8 Octobre 2009

• #2

Re : besoin de support et useform

Bonjour,

Voici le code de ton userForm:

Code:

Private Sub ListBox1_Click()
If ListBox1.ListIndex > -1 Then Range("A1") = ListBox1.Value
End Sub
Private Sub UserForm_Initialize()
  Me.ListBox1.List = Range("choix1").Value
End Sub

A+

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 8 Octobre 2009

• #3

Re : besoin de support et useform

merci bcp,

peut-on rajouter un code pourqu'il se referme après le click

bonne journée et merci encore

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 8 Octobre 2009

• #4

Re : besoin de support et useform

bonjour,

tu mets unload me avant le end sub de listbox_click

 

Vote positif 0 Vote négatif

M

marleauc

XLDnaute Occasionnel

• 8 Octobre 2009

• #5

Re : besoin de support et useform

merci et bonne journée a tous

 

Vote positif 0 Vote négatif