Comment faire la référence à un comboBox de UserForm ?

Bonjour les professionnels du VBA,

J’ai besoin de votre aide svp.

J’ai créé un formulaire qui contient 2 zones de listes modifiables et un bouton de commande.

Chaque zone de liste modifiable contient les données (mais il sera aussi possible que l’utilisateur rentre sa propre valeur).

Quand je choisi une valeur dans les deux zones, je veux qu’en cliquant sur le bouton de commande, l’Excel prenne les valeurs choisies et en fasse une somme de ces deux valeurs et l’affiche. (La formule que je vais utiliser est bien plus compliquée mais j’ai choisi la somme comme exemple juste pour comprendre le fonctionnement)

J’écris d’abord ma formule personnalisée:

Function Test()
Dim x As Integer
Dim y As Integer
Dim z As Integer
    x = ComboBox1.Value
    y = Combobox2.Value
    z = x + y
End Function

Ensuite, je crée une procedure qui fera fonctionner ma formule:

Sub Calculer()
Dim z As Integer
Application.WorksheetFunction.Test
End Sub

Enfin, j’écris un code qui devra me sortir le résultat en cliquant sur mon bouton de commande :

Private Sub Calculer2 _Click()
MsgBox.Calculer
End Sub

Ma question :

Est est-ce que j’ai bien utilisé la référence à des valeurs de mes deux zones modifiables ?

Mais en cliquant sur le bouton de commande je n’obtiens pas de message avec le résultat voulu 

Aidez-moi svp..

Je vous remercie par avance

bonjour

essaie ainsi

Function Test()
Dim x As Integer
Dim y As Integer
    x = ComboBox1.Value
    y = Combobox2.Value
    test = x + y
End Function

Private Sub Calculer2_Click()
MsgBox test
End Sub

Bonjour,

Test n'est pas une WorksheetFunction mais une fonctions personnalisée.

Tu peux écrire directement :

Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
    x = ComboBox1.Value
    y = ComboBox2.Value
MsgBox x + y
End Sub

A+

h2so4 et galopin01, je vous remercie beaucoup pour vos réponses !

Les deux méthodes fonctionnent parfaitement, c’est exactement ce que je voulais !

Merci encore !