Vba

[Stephane.dantigny]

Bonjour,
Je voudrais savoir comment mettre une valeur numérique dans une variable et afficher cette variable dans un textbox sans passer par une cellule excel.

Merci d'avance

Stéphane

 

[nat54]

Re : Vba

Bonjour

tu declares wr comme etant une variable long il te faut donc utiliser l'instruction set pour initialiser cette variable :
Dim wr As Long
Set wr = 2 'par exemple


puis dans ta textbox wr.value

 

[Stephane.dantigny]

Re : Vba

Ca ne marche pas,
Vous comprendrez surement ce que j'essaye de faire mais sans resultat

Private Sub Option1_Click()
' Cuivre
Dim wr As Long
Set wr = 2
End Sub

Private Sub Option2_Click()
' Aluminium
Dim wr As Long
Set wr = 3
End Sub

Private Sub Text9_Change()
Text9.Text = wr.Value
End Sub

 

[Staple1600]

Re : Vba

Bonjour

Comme ca cela fonctionne non?

Private Sub OptionButton1_Click()
If Me.OptionButton1 Then UserForm1.TextBox9.Text = 2
End Sub

Private Sub OptionButton2_Click()
If Me.OptionButton2 Then UserForm1.TextBox9.Text = 3
End Sub

Une variante

Private Sub OptionButton1_Click()
TextBox9.Text = IIf(OptionButton1 = True, 2, vbNullString)
End Sub

Private Sub OptionButton2_Click()
TextBox9.Text = IIf(OptionButton2 = True, 3, vbNullString)
End sub

End Sub

 

[Stephane.dantigny]

Re : Vba

Ca fonctionne, mais je voudrais quand je clic
-Sur optionbutton1 mettre 2 dans une variable K
-Sur optionbutton2 mettre 3 dans une variable K

Faire afficher K dans text9box

Merci

 

[Staple1600]

Re : Vba

RE


Dans ce cas

Public K As Long
Private Sub OptionButton1_Click()
K = IIf(OptionButton1 = True, 2, vbNullString)
TextBox9.Text = K
End Sub

Private Sub OptionButton2_Click()
K = IIf(OptionButton2 = True, 3, vbNullString)
TextBox9.Text = K
End Sub

 

[Stephane.dantigny]

Re : Vba

pk quand je multiplie un textbox1 de 18.51 par un textbox2 de 1.28 le resultat dans un textbox 3 me donne 18?

 

[Staple1600]

Re : Vba

Re

Avec des nombres décimaux
Private Sub TextBox2_AfterUpdate()
TextBox3.Value = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)
End Sub


Avec des chiffres entiers
Private Sub TextBox2_AfterUpdate()
TextBox3.Value = Val(TextBox1.Value) * Val(TextBox2.Value)
End Sub

 

[Stephane.dantigny]

Re : Vba

j'ai le cos phi dans une textbox1 puis je clic sur un bouton et le sin phi est dans une textbox2.


Merci d'avance

Stéphane

 

[jeanpierre]

Re : Vba

Bonsoir Stéphane, le fil,

Peux-tu mettre un petit fichier exemple... (ZIPPE, clic droit dans l'explorateur et Envoyer vers/Dossier compressé), et tu nous l'envoies, en bas du post, Gérer les pièces jointe, le rechercher sur ton disque et Uploader...

Bonne nuit.

Jean-Pierre

 

[Excel_lent]

Re : Vba

Salut à tous et aux autres,

Vois si cela t'inspire Stéphane.

 

[Stephane.dantigny]

Re : Vba

Voici ma requête, saisir le cos phi et trouver le sin phi.

Merci d'avance