Même principe que InputBox, mais avec une ComboBox

[GClaire]

Salut a toutes et tous

Existe il le même principe que pour l'InputBox, mais avec une ComboBox, qui me chargerai une listed'une feuille pour l'envoyer dans une célulle.


Par exemple avec l'InpuBox :

Dim stock As Long


With ActiveSheet
stock = InputBox("Entrer un numéro de lot", "Ajout d'une entrée")
.Range("E" & nbligne2) = stock
end with

Es-ce que je pourrais faire la même chose avec une ComboBox?

Merci, G'Claire

 

[myDearFriend!]

Salut G_Claire,

Je ne suis pas certain d'avoir bien compris ta question, mais bon...

Soit les valeurs de stock chargées dans le ComboBox1 (et dans l'hypothèse où nblligne2 est une variable de portée "module" au minimum) :

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim stock As Long
        With ActiveSheet
                stock = Val(ComboBox1.Text)
                .Range("E" & nbligne2) = stock
        End With
End Sub


Cordialement,
Didier_mDF

 

[GClaire]

Didier_mDF, le forum

Merci, pour ton aide, mais c'est pas tout a fait cela, excuses, ci mi suis mal exprimé, en faite comme avec une InputBox existe t'il le même prinipe mais avec une ComboBox à la place du TextBox, et qui chargerai des données d'une liste d'une feuille, afin de l'envoyer au moment de la validation.

Voila, merci, G'Claire