multiplier un textbox avec optionbutton

S

Softmama

XLDnaute Accro

• 18 Janvier 2011

• #2

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

Vote positif 0 Vote négatif

G

gerardd3617

XLDnaute Occasionnel

• 18 Janvier 2011

• #3

Re : multiplier un textbox avec optionbutton

merci softmama
nikel

 

Vote positif 0 Vote négatif

G

gerardd3617

XLDnaute Occasionnel

• 18 Janvier 2011

• #4

Re : multiplier un textbox avec optionbutton

re
parlé trop vite la formule multiplie toujours le premier choix

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 18 Janvier 2011

• #5

Re,

Oui c'est normal essaie :

Code:

Me.TextBox1.Value = (CDbl(Replace(Me.OptionButton1.Caption, ".", ",")) * IIf(Me.Combobox1, CDbl(Me.ComboBox1), CDbl(Me.ComboBox2))

 

Vote positif 0 Vote négatif

G

gerardd3617

XLDnaute Occasionnel

• 18 Janvier 2011

• #6

Re : Re: multiplier un textbox avec optionbutton

bonjour,
j'ai essayé avec la nvl formule mais toujours pas le bon résultat

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 18 Janvier 2011

• #7

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

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 18 Janvier 2011

• #8

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

 

Vote positif 0 Vote négatif

G

gerardd3617

XLDnaute Occasionnel

• 18 Janvier 2011

• #9

Re : multiplier un textbox avec optionbutton

bonsoir à tous
apres bien des essais je n'y suis pas arrivé.Alors j'ai affiché les 2 resultats pas terrible, si vous avez la solution,je suis sur que vous l'avez, je suis preneur
gégé

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 18 Janvier 2011

• #10

Re : multiplier un textbox avec optionbutton

Re,

bon allez, je te l'ai fait.

cf. fichier joint

 

Pièces jointes

• multipli.xls

  28 KB · Affichages: 34
• multipli.xls

  28 KB · Affichages: 34
• multipli.xls

  28 KB · Affichages: 37

Vote positif 0 Vote négatif

G

gerardd3617

XLDnaute Occasionnel

• 18 Janvier 2011

• #11

Re : multiplier un textbox avec optionbutton

bonsoir
j' ai bien galéré, merci maitre, c'est parfait
a+

 

Vote positif 0 Vote négatif