Erreur d’exécution "6" Dépassement de capacité. [Fermé]

Signaler
-
Messages postés
12909
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 novembre 2020
-
Bonjour,

Je suis entrain de créer une macro qui me permet de supprimer des lignes d'une colonne. Seulement, lorsque que je veux exécuter celle-ci, le message d'erreur : "erreur d’exécution "6" Dépassement de capacité." apparaît.
Voici mon programme.

Sub Bouton1()

Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("B" & i).Value = "C00001" Then
.Rows(i).Delete
End If
Next i
End With
End Sub


Pouvez-vous m'éclairer?
Merci d'avance


2 réponses

Messages postés
15398
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 389
Bonjour,

Integer: Nombre entier de -32768 à 32767

votre dernier ligne est a quelle nombre??
Ma dernière ligne est à 1 048 576.
Messages postés
15398
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 389
Re,

il faut declarer un entier long
Long Numérique Nombre entier de - 2147483648 à 2147483647.
Re,

Merci pour ce conseil, j'ai changé "Dim i As Integer" par "Dim i As Long" seulement celà m'affiche un nouveau message d'erreur ahah; celui-ci : "Erreur d'execution '13' : Incompabilité de type".
Messages postés
12909
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 novembre 2020
723 > needhelp
ohoh, sur quelle ligne as-tu l'erreur?
Messages postés
15398
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 389
Re,

Ma dernière ligne est à 1 048 576.
Y a un probleme, vous avez 1 048 576 cellules non vides!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Messages postés
12909
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 novembre 2020
723
bonjour, sur quelle ligne de code obtiens-tu l'erreur?
as-tu essayé
Dim i As Long
?