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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
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
 
'insertion des données
montant = Val(TextBox3.Value)
Cells(MaLigne, 1) = TextBox1.Value
Cells(MaLigne, 2) = TextBox2.Value
    If OptionButton1.Value = True Then
        Cells(MaLigne, 3) = -1 * montant
    ElseIf OptionButton2.Value = True Then
        Cells(MaLigne, 3) = montant
    End If
 
fin: