Option Explicit
Public WithEvents txttotal As MSForms.TextBox
Public WithEvents txtsomme As MSForms.TextBox
Public WithEvents txtDate As MSForms.TextBox
Dim C As Integer, D As Integer, E As Integer, lCol As Long, lCal As Long, a As Integer, F As Integer
Dim lo As ListObject
Dim li As ListObject, lb As ListObject
Dim lu As ListObject
Dim cls() As New Page12_2ModifDossierRealOutil
Private Sub UserForm_Initialize()
'Me.TxtNumDossier = ActiveCell
'D = 250
For C = 1 To 10
Me.Controls("TextBox" & C).Locked = True
'D = D + 1
Next
End Sub
Private Sub UserForm_Activate()
Dim i&, a&
For i = 11 To 20: a = a + 1: ReDim Preserve cls(1 To a): Set cls(a).txtDate = Me.Controls("TextBox" & i): Next
For i = 31 To 40: a = a + 1: ReDim Preserve cls(1 To a): Set cls(a).txtDate = Me.Controls("TextBox" & i): Next
For i = 21 To 30: a = a + 1: ReDim Preserve cls(1 To a): Set cls(a).txtsomme = Me.Controls("TextBox" & i): Next
For i = 41 To 50: a = a + 1: ReDim Preserve cls(1 To a): Set cls(a).txtsomme = Me.Controls("TextBox" & i): Next
For i = 51 To 60: a = a + 1: ReDim Preserve cls(1 To a): Set cls(a).txttotal = Me.Controls("TextBox" & i): Next
End Sub
Private Sub txtDate_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'evenement unique pour les textboxs 11 à 20 et 31 à 40
txtDate = Date
End Sub
Private Sub txttotal_Change() 'evenement unique pour les textboxs 51 à 60
Call CalculTotal
End Sub
Private Sub txtsomme_Change() 'evenement unique pour les textboxs 21 à 30 et 41 à 50
Call CalculSomme
End Sub
Private Sub CommandButton1_Click()
If MsgBox("Voulez-vous sortir sans enregistrer?", vbYesNo, "Demande de confirmation") = vbYes Then
Unload Me
End If
End Sub
Private Sub TextBox61_Change()
TextBox61.Text = Format(TextBox61, "# ###,## €")
End Sub
Sub CalculSomme()
'te reste plus qu'a re écrire tes fonction au propre ici
MsgBox " on calcul somme ici"
End Sub
Sub CalculTotal()
'te reste plus qu'a re écrire tes fonction au propre ici
MsgBox "calcul total ici"
End Sub