multiplier un textbox avec optionbutton

gerardd3617

XLDnaute Occasionnel
bonsoir à tous
je n' arrive pas à multiplier une optionbutton avec un textbox.
cordialement
 

Softmama

XLDnaute Accro
Re : multiplier un textbox avec optionbutton

Bonjour,

le temps de comprendre ce que tu voulais...
Remplace
Code:
  Me.TextBox1.Value = (CDbl(Me.OptionButton1) * CDbl(Me.ComboBox1))
par
Code:
  Me.TextBox1.Value = (CDbl(Replace(Me.OptionButton1.Caption, ".", ",")) * CDbl(Me.ComboBox1))

Ton fichier en retour.
 

Pièces jointes

  • multipli.xls
    24.5 KB · Affichages: 41
  • multipli.xls
    24.5 KB · Affichages: 45
  • multipli.xls
    24.5 KB · Affichages: 46

James007

XLDnaute Barbatruc
Re : multiplier un textbox avec optionbutton

Bonjour Gérard, salut softmama :)

Avec une petite modif du code :
VB:
Sub totalise()
On Error Resume Next
Me.TextBox1.Value = Me.ComboBox1.Value * IIf(Me.OptionButton1.Value, Me.OptionButton1.Caption, Me.OptionButton2.Caption)
End Sub

Voir fichier joint ...

A +
:)
 

Pièces jointes

  • TestMultiplic.xls
    33.5 KB · Affichages: 42

Fo_rum

XLDnaute Accro
Re : multiplier un textbox avec optionbutton

Salut

et cela ?
Code:
Private Sub OptionButton1_Change()
    TextBox1 = ComboBox1 * IIf(OptionButton1, 5.7, 9.5)
End Sub
Private Sub OptionButton2_Change()
    TextBox1 = ComboBox1 * IIf(OptionButton1, 5.7, 9.5)
End Sub
Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1 * IIf(OptionButton1, 5.7, 9.5)
End Sub
 

Discussions similaires

Réponses
3
Affichages
222
Réponses
19
Affichages
1 K

Statistiques des forums

Discussions
312 216
Messages
2 086 351
Membres
103 195
dernier inscrit
martel.jg