Envoyer valeur combobox dans cellule
Résolu/Fermé1 réponse
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
277
Modifié par Bidouilleu_R le 28/02/2011 à 16:14
Modifié par Bidouilleu_R le 28/02/2011 à 16:14
Mais cher ami il faut lui dire sinon ton programme ne le fera pas !!!
// ça c'est pour initialiser ... d'ailleurs c'est écrit
Maintenant dans la fenêtre de ton userform sur Combobox1 tu fais un double click, et tu obtiens ça!
C'est pas mal mais ça ne fais rien!
Quand l'évènement "change" du combobox sera activé ce code sera executer!
Voilà
Bon code!
// ça c'est pour initialiser ... d'ailleurs c'est écrit
Private Sub UserForm_initialize()
Dim Plage As String
With Sheets("code")
Plage = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Address
End With
ComboBox1.RowSource = "code!" & Plage
Range("saisie!K7").Value = ComboBox1.Value ' ne sert à rien car en initialisant c'est vide
End Sub
Maintenant dans la fenêtre de ton userform sur Combobox1 tu fais un double click, et tu obtiens ça!
Private Sub ComboBox1_Change() End Sub
C'est pas mal mais ça ne fais rien!
Private Sub ComboBox1_Change()
Sheets("saisie").range("K7").Value = ComboBox1.Value
End Sub
Quand l'évènement "change" du combobox sera activé ce code sera executer!
Voilà
Bon code!
28 févr. 2011 à 16:20