Discussion :

[Merryy]

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

[vinc_bilb]

Bonjour,

Avec les informations comprises, je modifierai bien I as Long. Sur quelles ligne est l'erreur?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim D As Long, I As Long
 
Debug.Print Range("H9").End(xlDown).Row
 
For I = 9 To .Range("H9").End(xlDown).Row

[kiki29]

Salut, Integer de -32 768 à 32 767, Long de -2 147 483 648 à 2 147 483 647
à titre de curiosité voir aussi ceci

[Merryy]

Bonjour,

Avec les informations comprises, je modifierai bien I as Long. Sur quelles ligne est l'erreur?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim D, I As Long
 
Debug.Print Range("H9").End(xlDown).Row
 
For I = 9 To .Range("H9").End(xlDown).Row

il me donne erreur dans la ligne du for I

[vinc_bilb]

et quoi sur la fenêtre immédiate?

Debug.Print Range("H9").End(xlDown).Row


et il y a une erreur je pense:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For I = 9 To Range("H9").End(xlDown).Row

[patricktoulon]

bonjour
c'est pourtant simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TextBox1.Text = TextBox1.Text + .Cells(I, 8).Value

donc ce qu'il y a dans le txbox est un string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 R = TextBox1.Value / D

3patate-2carrottes donnent forcement un depacement de capacité
forcement un string donne 0
0 diviser x=dépacement de capacité

essaie val(textbox)

ou tu change tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TextBox1.value= val(TextBox1.value)+ .Cells(I, 8).Value

[Merryy]

et quoi sur la fenêtre immédiate?

Debug.Print Range("H9").End(xlDown).Row


et il y a une erreur je pense:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For I = 9 To Range("H9").End(xlDown).Row

maintenant avec I as long il me donne erreur 13 incompatibilité de type

bonjour
c'est pourtant simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TextBox1.Text = TextBox1.Text + .Cells(I, 8).Value

donc ce qu'il y a dans le txbox est un string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 R = TextBox1.Value / D

3patate-2carrottes donnent forcement un depacement de capacité
forcement un string donne 0
0 diviser x=dépacement de capacité

essaie val(textbox)

ou tu change tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TextBox1.value= val(TextBox1.value)+ .Cells(I, 8).Value

Tjr le même problème

[patricktoulon]

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.value= 0
With Worksheets("SuiviBudget")
 
 For I = 9 To .Range("H9").End(xlDown).Row
   If .Cells(I, 8) <> "" Then
   D = D + 1
   TextBox1.value= val(TextBox1.value)+ val(.Cells(I, 8).Value
)   End If
   Next I
   R = val(TextBox1.Value) / D
   MsgBox R
   End With
End Sub

[Merryy]

Erreur dans la ligne de For
je ne sais pas pourquoi

[patricktoulon]

attention tout de meme aux arguments que tu utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(I, 8) <> "" Then

et si il y a quelque chose mais pas un long D va etre increnenté quand meme mais l'item vaut 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

D = D + 1

histoire d'etre sur
j'aurais fait comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if isnumerc(cells(I,8).value) then

ou alors les deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(I, 8) <> ""  and  isnumerc(cells(I,8).value) then