Erreur d’exécution "6" Dépassement de capacité.
needhelp
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
