Discussion :

[zineb87]

Bonjour,

J'ai un code qui fonctionnait au début et au bout d'un certain moment on m'affiche une erreur ERREUR 1004-erreur défini par l'application ou par l'objet

Mon code est:

Code :

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

1
2
3
4
5
6
7
8
While Sheets("Bilan").Cells(i + 1, 2).Value = "" And i <= (n - 1)
b = b + 1
i = i + 1
Wend
 
Sheets("Bilan").Activate
 
Range(Sheets("Bilan").Cells(h, 2), Sheets("Bilan").Cells(h, 2).Offset(b, 5)).Select

L'erreur se produit sur cette dernière ligne.

Quelqu'un connaît-il la cause d'un tel problème?

En vous remerciant par avance

[Didier Gonard]

Bonjour,

tu ne mets pas le plus important sans doute :

ta version d'Excel et le type de ta variable...

testes ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub toto()
Dim i As Long
 
On Error GoTo errare
For i = 65000 To 65600
Cells(i, 1).Select
Next i
errare:
MsgBox i
End Sub

cordialement,

Didier

[zineb87]

Effectivement, vous avez raison j'ai commis une erreur lors de la déclaration de mes variables.Maintenant ça marche
Merci d'avoir pris le temps de me lire.