Private Sub annuler_Click()
'Annuler
Unload Me
End Sub
Private Sub valider_Click()
'validation des objectifs
Dim Lg As Long
Dim I As Byte
Dim Tot As Double
'on travailler sur la caisse prev
With Sheets("prev")
Lg = .Range("AF2:AQ2 ").Find("*", , , , xlByRows, xlPrevious).Row
If Lg = 3 Then
MsgBox " erreur de code "
Exit Sub
End If
Lg = Lg + 1
Cells(Lg, 2).Value = Val(Replace(TextBox1, ",", ".")) ' janvier
.Cells(Lg, 3).Value = Val(Replace(TextBox2, ",", ".")) ' fevrier
.Cells(Lg, 4).Value = Val(Replace(TextBox3, ",", ".")) ' Mars
.Cells(Lg, 5).Value = Val(Replace(TextBox4, ",", ".")) ' Avril
.Cells(Lg, 6).Value = Val(Replace(TextBox5, ",", ".")) ' Mai
.Cells(Lg, 7).Value = Val(Replace(TextBox6, ",", ".")) ' Juin
.Cells(Lg, 8).Value = Val(Replace(TextBox7, ",", ".")) ' Juillet
.Cells(Lg, 9).Value = Val(Replace(TextBox8, ",", ".")) ' Aout
.Cells(Lg, 10).Value = Val(Replace(TextBox9, ",", ".")) ' Septembre
.Cells(Lg, 11).Value = Val(Replace(TextBox10, ",", ".")) ' octobre
.Cells(Lg, 12).Value = Val(Replace(TextBox11, ",", ".")) ' Novembre
.Cells(Lg, 13).Value = Val(Replace(TextBox12, ",", ".")) ' décembre
End With
For I = 1 To 12
Tot = Tot + Val(Replace(Me.Controls("TextBox" & I), ",", "."))
Next I
Unload Me
End Sub