jeanba
XLDnaute Occasionnel
Bonjour,
Mon code ci-dessous renvoie une erreur de genre
Quelqu'un peut à vue de nez me dire ce qui va pas... ?
Merci par avance
Jeanba
Mon code ci-dessous renvoie une erreur de genre
Quelqu'un peut à vue de nez me dire ce qui va pas... ?
Merci par avance
Jeanba
Code:
Public WithEvents txtB As MSForms.TextBox
Private Sub txtB_Change()
Application.ScreenUpdating = False
Dim Total As Double
'Initialise la variable à 0
Total = 0
'Boucle de 1 a 13 pour 13 TextBox
For i = 100 To 112
'Si un des TextBox est différent de rien alors
If Me.Controls("TextBox" & i) <> "" Then
Me.Controls("TextBox" & i + 13).Value = _
Format(Me.Controls("TextBox" & i).Value * _
Me.Controls("TextBox" & i).Tag, "#,##")
'Ben le total est le total de tous les TextBox
Total = Total + CDbl(Me.Controls("TextBox" & i + 13))
'Fin de la condition
Else
Me.Controls("TextBox" & i + 13).Value = Null
End If
'Fin de la boucle
Next i
'Le TextBox "txtTotal" recoit le total
Me.TboTotal.Value = Format(Total, "#,##")
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub