I folima Elda
Messages postés24Date d'inscriptionvendredi 11 avril 2008StatutMembreDernière intervention10 juillet 2016
-
11 août 2010 à 10:47
Bonjour à tous,
Voilà, j'ai quelque soucis en ce moment avec mon code. En effet, j'ai créer une userbox très simple pour tenir des comptes: 2 optionbutton (pour savoir si c'est un crédit ou un débit) et 3 textbox pour indiquer la date, l'objet et le montant.
Au fil de mes recherche, j'ai trouver comment convertir mon textbox 'montant' pour qu'il mette une valeur numérique. Mais le soucis c'est que lorsque je décide de la mettre dans une cellule, elle ne m'indique pas les valeurs décimals. Elle mets simplement xxx.00€
Comment faire pour lui faire mettre les valeurs décimals? Si je pouvais avoir une explication avec la solution, ça serai très bien. Merci à vous.
mon code est le suivant
'vérification textbox
If IsNumeric(TextBox3.Value) = False Then
MsgBox TextBox3.Value & " n'est pas une valeur valide. Entrez une valeur valide", vbExclamation, "Valeur non valide"
GoTo fin
End If
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then
MsgBox "Des champs ne sont pas remplis. Veuillez remplir tous les champs.", vbExclamation, "Valeur(s) requise(s)"
GoTo fin
Else
Unload UserForm1
End If
' donne la derniere ligne écrite
Dim MaLigne As Variant
MaLigne = Range("A65536").End(xlUp).Address
MaLigne = Range(MaLigne).Row
'ajout d'une ligne
MaLigne = MaLigne - 2
Rows(MaLigne & ":" & MaLigne).Select
Selection.Insert Shift:=xlDown
Selection.RowHeight = 25
Range("A" & MaLigne & ":C" & MaLigne).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1").Select
Dim montant As String
montant = Val(CStr(TextBox3.Value))
Cells(MaLigne, 1) = TextBox1.Value
Cells(MaLigne, 2) = TextBox2.Value
If OptionButton1.Value = True Then
Cells(MaLigne, 3) = "-" & montant
ElseIf OptionButton2.Value = True Then
Cells(MaLigne, 3) = montant
End If
fin: