Envoyer valeur combobox dans cellule
Résolu
philippe
-
philippe -
philippe -
Bonjour,
je cherche désespérément à envoyer le résultat d'une saisie combobox dans une liste de la feuille "code" (chiffre de 1 à 6) vers la cellule K7 de la feuille "saisie".
Tout fonctionne, la valeur selectionné apparait dans la combobox de mon userform mais cette valeur ne s'inscrit pas dans la cellule K7 de la feuille saisie!!
Quelqu'un peut-il me dire ce qui ne va pas?
ci-dessous, le petit programme en VB:
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
End Sub
merci
je cherche désespérément à envoyer le résultat d'une saisie combobox dans une liste de la feuille "code" (chiffre de 1 à 6) vers la cellule K7 de la feuille "saisie".
Tout fonctionne, la valeur selectionné apparait dans la combobox de mon userform mais cette valeur ne s'inscrit pas dans la cellule K7 de la feuille saisie!!
Quelqu'un peut-il me dire ce qui ne va pas?
ci-dessous, le petit programme en VB:
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
End Sub
merci
1 réponse
-
Mais cher ami il faut lui dire sinon ton programme ne le fera pas !!!
// ça c'est pour initialiser ... d'ailleurs c'est écritPrivate 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!
