Discussion :

[Benjycool]

Bonjour,

Lorsque j'appuie sur mon bouton j'ai une erreur qui survient

Erreur d'exécution '6' :
Dépassement de capacité

Mais pourquoi ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton1_Click()
 
Dim j as Integer
Dim i As Double
 
...
 
For i = 9 To j
    f1.Cells(i, 7) = f1.Cells(i, 5) / f1.Cells(i, 3)
Next i

Merci de bien vouloir m'aider.

Benjycool

[Invité]

Bonjour

Deux choses

• Déclarer i en entier ou Long, mais pas en double.
• Comment est initialisé ta variable j, car là pour moi sa valeur est 0.

Philippe

[Benjycool]

j et la dernière case remplite du tableau.

Code :

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

1
2
3
4
5
6
7
j = 0
For i = 9 To 21
    If f1.Cells(i, 3) <> "" Then
    j = j + 1
    End If
Next i
j = j - 1