[XL-2007] Combo box et renvoie valeur dans une cellule!

[bedoch]

Bonsoir à tous,

je viens de réaliser un userform avec une combobox, je cherche à reporter la valeur choisi dans une cellule.

Voici le début de mon code mais il n'aboutit pas

Code :

1
2
3
4
5
6
7
8
Sub Macro1()
If IsEmpty(Sheets("FORMULAIRE DE SAISIE").Range("A5")) = True Then
UserForm1.ComboBox1.RowSource = ("A82:A84")
UserForm1.Show
variable = UserForm1.ComboBox1.Value
Sheets("FORMULAIRE DE SAISIE").Range("A5").Value = variable
End If
End Sub

Quelqu'un aurait une idée pour un petit bidouilleur comme moi?

[Gorfael]

Salut bedoch et le forum
Ton code ne peut pas aboutir : "UserForm1.Show" lance l'USF et bloque ton code tant qu'il n'est pas fermé.

Code :

1
2
3
4
5
Sub Macro1()
If IsEmpty(Sheets("FORMULAIRE DE SAISIE").Range("A5")) Then
     UserForm1.ComboBox1.RowSource = ("A82:A84")
     UserForm1.Show
End Sub

Dans le module lié à l'USF crée une macro automatique, soit en créant un bouton, soit en fermant. En fermant :

Code :

1
2
3
4
 
UserForm1_Terminate()
Sheets("FORMULAIRE DE SAISIE").Range("A5").=me.ComboBox1.
end sub

Essaie de tester tes macros en pas-à-pas. Ça te permettra de voir ceque fait le code. Tu peux mettre des espions, ou utiliser la fenêtre variables locales.
Met un point d'arrêt sur la variable terminate et avance pas-à-pas avec F8.

A+