besoin de support et useform

[marleauc]

bonsoir,

J'ai (a l'aide de Monsieur Boisgonthier) effectuer un userform de base. par contre j'aimerais bien changer les données a l'intérieur en date et non en nombre et que lorsque je sélectionne un choix que celui-ci soit inscrit dans la cellule a1

un gros merci encore

 

[Guest]

Re : besoin de support et useform

Bonjour,

Voici le code de ton userForm:

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+

 

[marleauc]

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

 

[mutzik]

Re : besoin de support et useform

bonjour,

tu mets unload me avant le end sub de listbox_click

 

[marleauc]

Re : besoin de support et useform

merci et bonne journée a tous