Envoyer valeur combobox dans cellule

Résolu/Fermé

philippe - 28 févr. 2011 à 15:22
philippe - 28 févr. 2011 à 16:20

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

A voir également:

Affecter valeur combobox vba
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 289
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

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!

philippe
28 févr. 2011 à 16:20

Merci, Merci, Merci

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

"L'indice n'appartient à la sélection" + VBA

La valeur d'une cellule dans une variable VBA

Formule Excel : "SI" une cellule contient un mot, alors ?

VBA : Range avec références variables..

Discussions similaires

Newsletters