Erreur d’exécution "6" Dépassement de capacité.
needhelp
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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
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
A voir également:
- Dépassement de capacité vba
- VBA excel : résoudre problème de capacité. ✓ - Forum Excel
- Erreur d'execution '6' Dépassement de capacité ✓ - Forum Excel
- Le logiciel amd a détecté un dépassement de délai du pilote ✓ - Forum Carte graphique
- VBA EXCEL - ERREUR 6 : DÉPASSEMENT DE CAPACITÉ ✓ - Forum Excel
- Dépassement de capacité VBA ✓ - Forum VB / VBA
il faut declarer un entier long
Long Numérique Nombre entier de - 2147483648 à 2147483647.
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".
Ma dernière ligne est à 1 048 576.
Y a un probleme, vous avez 1 048 576 cellules non vides!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!