Opérations -+*/ par VBA

[Minus]

Type : Microsoft office Excel 2003

Bonjour,

J'ai, dans un Userform, 1 Textbox, et 2 Label

Mon but, pour une valeur donnée dans Textbox1 :

Textbox1 = Label1 /3
Textbox1 = Label2 /2

Mon intéret est de calculer en instantané les Label pour une selection donnée dans la Textbox une fois les macros actives.

En vous remerciant !

 

[seb33]

Re : Opérations -+*/ par VBA

private sub textbox_change()
label1= textbox.value / 2
...
end sub

A+
seb

 

[skoobi]

Re : Opérations -+*/ par VBA

Bonsoir,

Essaye ceci:

Label1.Caption = Val(Textbox1.Value) / 3
Label2.Caption = Val(Textbox1.Value) / 2

 

[Minus]

Re : Opérations -+*/ par VBA

Merci à vous !

Au moins je connaitrai la fonction, même si... cela ne fonctionne pas.

Private Sub textbox_change()
Label4.Caption = Val(TextBox1.Value) / 3
Label5.Caption = Val(TextBox1.Value) / 2
End Sub

ou

Private Sub textbox_change()
Label4 = Textbox1.Value / 3
Label5 = Textbox1.Value / 2
End Sub

C'est un autre problème... je trouverai. Encore merci pour les infos.

 

[skoobi]

Re : Opérations -+*/ par VBA

Re,

alors ceci:

Label4.Caption = Cstr(Val(TextBox1.Value) / 3)
Label5.Caption = Cstr(Val(TextBox1.Value) / 2)

 

[Minus]

Re : Opérations -+*/ par VBA

J'ai même essayé avec ceci histoire de varier l'objet...

Private Sub TextBox_change()
TextBox2.Caption = CStr(Val(TextBox1.Value) / 3)
End Sub

ou

Private Sub TextBox_change()
TextBox2.Value = CStr(Val(TextBox1.Value) / 3)
End Sub

en bloquant TextBox2 (Locked = true) pour éviter de selectionner la case.

Je ne voie pas du tout d'où vient l'erreur... dans les options ?

Sinon je regarderai ca une autre fois. Merci pour les propositions Skoobi.

 

[myDearFriend!]

Re : Opérations -+*/ par VBA

Bonsoir Minus, seb33, skoobi,

Merci à vous !

Au moins je connaitrai la fonction, même si... cela ne fonctionne pas.

Private Sub textbox_change()
Label4.Caption = Val(TextBox1.Value) / 3
Label5.Caption = Val(TextBox1.Value) / 2
End Sub
...

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] [B]TextBox[/B][SIZE=3][B][COLOR=RED]1[/COLOR][/B][/SIZE]_change()
    Label4.Caption = Val(TextBox1.Value) / 3
    Label5.Caption = Val(TextBox1.Value) / 2
[COLOR=NAVY]End Sub[/COLOR]

Ca ne serait pas plutôt de ce côté là ton problème ?

Cordialement,

 

[Minus]

Re : Opérations -+*/ par VBA

Merci myDearFriend!, ca fonctionne du coup. 😉

 

[seb33]

Re : Opérations -+*/ par VBA

oups, désolé pour l'erreur de frappe....