Augmenter ou réduire le nombre de décimales par un spinbutton

Gregouz59 · 27 Avril 2012

Bonjour à tous,
Je suis actuellement en phase de création d'un fichier excel avec de nombreuses UF.
Dans l'une d'elles il y a un textbox ou s'affiche le résultat d'un calcul (provenant d'autres textbox), à côté de ce textbox j'ai mis un Spinbutton afin de permettre à l'utilisateur d'augmenter ou de diminuer (mini 3 et maxi 6) le nombre de chiffres après la virgule.

Cela fait 2 jours que je me creuse la tête pour faire fonctionner ce spinbutton et réussir à faire bouger la quantité de décimales et...RIEN !

J'ai essayé une variable pour incrémenter le
"textbox75 = format(textbox75, "0." & variable)"
à chaque fois que l'on clique sur le Spinbutton (haut ou bas) mais ça ne fonctionne pas.

Quelqu'un aurait-il la solution "miracle" à ce problème ?

Merci d'avance pour votre aide.

Bonne soirée

Greg

Modeste geedee · 27 Avril 2012

Re : Augmenter ou réduire le nombre de décimales par un spinbutton

Bonsour®
tu ne peut prendre directement le contenu du textbox75,
l'affichage est un texte
ce qui est tronqué est alors perdu,
ce qui n'est pas affiché n'existe pas .
il faut passer par une variable intermediaire (résultat du calcul)
fixer les bornes du spin_button ici min=3; max=6

Private Sub SpinButtonXX_Change()
'-- adapter le N° du spinbutton
TextBox75 = Format(CDbl(Range("G9")), "0." & String(SpinButtonXX.Value, "0"))
End Sub

Gregouz59 · 27 Avril 2012

Re : Augmenter ou réduire le nombre de décimales par un spinbutton

Bonsoir geedee,

Merci pour le coup de main, j'ai réussi à faire ce que je voulais.
J'ai rajouté deux/trois opérations pour tester mon code et tout fonctionne, je met le code complet de mon test si jamais vous trouvez qu'il peut être "allégé".

Encore merci et bon week-end.

Greg

Code de mon "test" :

Private Sub SpinButton1_SpinUp()
TextBox1.Value = Val(TextBox2.Value) * Val(TextBox3.Value)
TextBox1 = Format(CDbl(TextBox1), "0." & String(SpinButton1.Value, "0"))
TextBox1 = Replace(TextBox1.Text, ",", ".")
TextBox4 = Val(TextBox1.Value) * 10
TextBox4 = Replace(TextBox4.Text, ",", ".")

End Sub

Private Sub SpinButton1_Spindown()
TextBox1.Value = Val(TextBox2.Value) * Val(TextBox3.Value)
TextBox1 = Format(CDbl(TextBox1), "0." & String(SpinButton1.Value, "0"))
TextBox1 = Replace(TextBox1.Text, ",", ".")
TextBox4 = Val(TextBox1.Value) * 10
TextBox4 = Replace(TextBox4.Text, ",", ".")
End Sub

Private Sub TextBox3_Change()
TextBox1.Value = Val(TextBox2.Value) * Val(TextBox3.Value)
TextBox1 = Replace(TextBox1.Text, ",", ".")
TextBox4 = Val(TextBox1.Value) * 10
TextBox4 = Replace(TextBox4.Text, ",", ".")
End Sub

Private Sub TextBox2_Change()
TextBox1.Value = Val(TextBox2.Value) * Val(TextBox3.Value)
TextBox1 = Replace(TextBox1.Text, ",", ".")
TextBox4 = Val(TextBox1.Value) * 10
TextBox4 = Replace(TextBox4.Text, ",", ".")
End Sub

Bebere · 29 Avril 2012

Re : Augmenter ou réduire le nombre de décimales par un spinbutton

bonjour Gregouz,Modeste
suis donc l'exemple de Modeste
pour ce code besoin de 3 textbox et d'1 spinbutton

Code:

Dim result As Double

Private Sub SpinButton1_Change()

If TextBox3 <> "" Then
TextBox3 = Format(result, "0." & String(SpinButton1.Value, "0"))
End If

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 44 Or KeyAscii = 46 Then          'Check for decimal separator "." or ","
        KeyAscii = Asc(Application.International(xlDecimalSeparator))
    End If
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 44 Or KeyAscii = 46 Then          'Check for decimal separator "." or ","
        KeyAscii = Asc(Application.International(xlDecimalSeparator))
    End If
End Sub

Private Sub TextBox2_Change()
If IsNumeric(Me.TextBox1) And IsNumeric(Me.TextBox2) Then
result = CDbl(Me.TextBox1) / CDbl(Me.TextBox2)
Me.TextBox3 = result
End If
End Sub

Private Sub UserForm_Initialize()

Me.SpinButton1.Min = 3
Me.SpinButton1.Max = 6

End Sub

Augmenter ou réduire le nombre de décimales par un spinbutton

Gregouz59

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

Gregouz59

XLDnaute Nouveau

Bebere

XLDnaute Barbatruc

Discussions similaires

Augmenter ou réduire le nombre de décimales par un spinbutton

Gregouz59

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

Gregouz59

XLDnaute Nouveau

Bebere

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency