Envoyer valeur combobox dans cellule [Résolu/Fermé]

Signaler
-
 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

1 réponse

Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
253
Mais cher ami il faut lui dire sinon ton programme ne le fera pas !!!

// ç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!
Merci, Merci, Merci