Bonjour Forum,
Je suis bloqué sur ce type d'erreur et je n'arrive pas trouvé comment le corriger .
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
Private Sub CommandButton3_Click()
Dim D, I As Integer
Dim R As Long
D = 0
R = 0
Sheets("SuiviBudget").TextBox1.Text = 0
With Worksheets("SuiviBudget")
 
 For I = 9 To .Range("H9").End(xlDown).Row
   If .Cells(I, 8) <> "" Then
   D = D + 1
   TextBox1.Text = TextBox1.Text + .Cells(I, 8).Value
   End If
   Next I
   R = TextBox1.Value / D
   MsgBox R
   End With
End Sub