deux chiffre apres la virgule

[zine pef]

bonjour le forum
j'ai cherché es je n'ai pas trouvé la reponce
pb les nombres saisie dans la feuil et usrf c'ecrie deux chiffre apres la virgule
je demmande l'aide SVP

 

[JORDAN]

Re : deux chiffre apres la virgule

Bonjour Zin Pef

Comme ceci peut-être, en rajoutant .Value :

  ActiveCell.Offset(0, 3).Value = Me.TextBox1.Value
  ActiveCell.Offset(0, 5).Value = Me.TextBox2.Value
  ActiveCell.Offset(0, 6).Value = Me.TextBox3.Value

 

[zine pef]

Re : deux chiffre apres la virgule

merci jordan pour le code
mais ce la regle la collone K seulement
et la collone J , G reste avec des nombres decimal de plus de 2 chiffres
je veux 2 chiffre exemple :25.466666 il ecrie 25.66

merci de votre aide

 

[JCGL]

Re : deux chiffre apres la virgule

Bonjour à tous,
Salut Jordan 🙂 (si tu es bien celui à qui je epense)

Peux-tu essayer en rajoutant Format(ta valeur,"0.00") ?

Private Sub CommandButton1_Click()
 '--- Positionnement dans la base
  [d65000].End(xlUp).Offset(1, 0).Select
  '--- Transfert Formulaire dans BD
  ActiveCell.Value = Application.Proper(Me.p1)
  ActiveCell.Offset(0, 1).Value = Format(Me.p2, "0.00")
  ActiveCell.Offset(0, 2).Value = Format(Me.p3, "0.00")
  ActiveCell.Offset(0, 4).Value = Format(Me.p4, "0.00")
  ActiveCell.Offset(0, 3).Value = Format(Me.TextBox1, "0.00")
  ActiveCell.Offset(0, 5).Value = Format(Me.TextBox2, "0.00")
  ActiveCell.Offset(0, 6).Value = Format(Me.TextBox3, "0.00")
 ' Me.TextBox1.Value = ActiveCell.Offset(1, -1).Value
  'Label1.Caption = Selection.Cells.Offset(1, -1).Value
  ActiveCell.Offset(1, -1).Select
  'Me.TextBox1.Value = Selection
  Me.Label1.Caption = Selection
  ' ActiveCell.Offset(0, 3).Value = Me.num
  p1.Value = ""
  p2.Value = ""
  p3.Value = ""
  p4.Value = ""
  p1.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub


Private Sub p1_Change()
If Not ((KeyAscii >= 46 And KeyAscii <= 57) Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
End Sub
Private Sub p2_Change()
If Not ((KeyAscii >= 46 And KeyAscii <= 57) Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
End Sub

Private Sub p3_Change()
TextBox1.Value = Format((Val(Val(p1) + Val(p2) + Val(p3)) / 3) * 2, "0.00")
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
End Sub
Private Sub p4_Change()
TextBox2.Value = Val(Val(p4) * 3)
TextBox3.Value = Val(Val(TextBox1) + Val(TextBox2)) / 5
If Not ((KeyAscii >= 46 And KeyAscii <= 57) Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
End Sub
Private Sub UserForm_Initialize()
'TextBox1.Visible = False
'TextBox2.Visible = False
'TextBox3.Visible = False
p1.SetFocus
[d65000].End(xlUp).Offset(1, 0).Select
End Sub

J'ai appliqué le format partout à toi de vérifier...


Voir le fichier

A+ à tous

 

[zine pef]

Re : deux chiffre apres la virgule

merci forum
merci jcgl & jordan
c'est resolu

 

[JORDAN]

Re : deux chiffre apres la virgule

Bonjour JCGL, Zine pef, le Forum,

et oui c'est bien moi (tout fonctionne toujours bien)

Bonne journée à tous