Formule dans une formulaire excel sous VBA

Bonjour tout le monde Novice dans la programmation sous excel grace à VBA, je me suis lancé dans un projet qui devrait etre tout simple. Malheureusement mon petit projet VBA n'avance guere du fait d'un blocage au niveau de mon formulaire. Mon projet consiste simplement à grace à un formulaire de convertir le montant des produits du dollar en euro en choisissant un des deux taux au choix Ce formulaire est consister comme ceci: Une comboBox qui liste l'ensemble des montants avec le produits associés le montant selectionné est ensuite divisé par un taux. Le choix du taux est conditionné par la selection d'un des deux optionbutton qui renvoie chacun à une cellule de la feuille. Le resultat de la divison entre la selection du produit de la combobox et du taux doit apparaitre dans une listebox du formualaire. En resumé: voila ce que je n'arrive pas a faire. Je n'arrive pas a faire cette operation qui est vraiment toute bete Je vous remercie d'avance pour votre aide . Charles

Ce serait plus simple de t'aider si tu mettais le bout de code qui ne fonctionne pas.

MPi²

voici mon code pour le choix du taux
__________________________________________________________________________
Private Sub OptionButton1_Click()

If OptionButton1 = True Then Feuil1.Select
Range("H1").Select
If OptionButton1 = False Then
Sheets("feuil1").Select
Else
OtionButton2 = True
End If

End Sub

Private Sub OptionButton2_Click()

If OptionButton2 = True Then Feuil1.Select
Range("K1").Select
If OptionButton2 = False Then
Sheets("feuil1").Select
Else
OtionButton1 = True
End If

End Sub



__________________________________________________________________
Mais il n'y a pas de souci pour ce code:  il selectionne un des deux taux present sur la feuille, mais vous l'aviez compris ;-)

En ce qui concerne la selection de ma combobox2, il n'y a pas de code car tout est crée a partir des proprietés du bouton.
Quant je clique sur la combobox , j'ai une liste deroulante qui se presente comme cela:

Montant    Produit
10            P1
20            P2
40            P3
50            P4

le probleme se situe la : commme diviser avec mon taux le montant choisi et mettre se resultat dans ma listBox

J'avais penser a quelque chose comme cela mais cela ne marche pas (bien entendue)


Range("A10").value = Quotient (ComboBox2.value : Optionbutton.value)
      ' A10 etant le controlsource de ma list box

je vous remercie

Bonjour,

Essaie plutôt ceci :

Range("A10").value = ComboBox2.value / Optionbutton.value

au lieu de cela :


Range("A10").value = Quotient (ComboBox2.value : Optionbutton.value)

la division sous Excel est   /    et non    :   


Bon courage




patdan