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
A voir également:
- Affecter valeur combobox vba
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur ascii - Guide
- Valeur relative et absolue ✓ - Forum Webmastering
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Excel ne pas afficher #valeur ✓ - Forum Excel
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 é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!
philippe
Merci, Merci, Merci