VBA Excel erreur d'execution 1004 - Suppression de lignes SI
Résolu
rakoto be
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
Bonjour,
Je veux supprimer les lignes qui contiennent le mot LEGER ou MODERE. à chaque fois que j'execute mon programme VBA ci-dessus, un message d'erreur "erreur d'execution "1004" s'affiche sur l'ecran et la ligne "Rows(i).Delete" devient jaune. pouvez vous m'aider à resoudre ce probleme. voici mon code:
Sub SUPPRESSIONLIGNE()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "LEGER", "MODERE")
'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets("BILAN GENERAL")
For i = .Range("E" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("E" & i).Value = Editeur Then
Rows(i).Delete
End If
Next i
End With
End Sub
merci beaucoup.
be
Je veux supprimer les lignes qui contiennent le mot LEGER ou MODERE. à chaque fois que j'execute mon programme VBA ci-dessus, un message d'erreur "erreur d'execution "1004" s'affiche sur l'ecran et la ligne "Rows(i).Delete" devient jaune. pouvez vous m'aider à resoudre ce probleme. voici mon code:
Sub SUPPRESSIONLIGNE()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "LEGER", "MODERE")
'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets("BILAN GENERAL")
For i = .Range("E" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("E" & i).Value = Editeur Then
Rows(i).Delete
End If
Next i
End With
End Sub
merci beaucoup.
be
A voir également:
- VBA Excel erreur d'execution 1004 - Suppression de lignes SI
- Forcer suppression fichier - Guide
- Si ou excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
2 réponses
Bonjour,
Dans un bloc With end With, si l'objet que vous utilisez appartient à l'objet référencé par le bloc with, il convient de le précéder par un point.
Autrement dit, votre ligne Rows(i), est située dans la feuille "Bilan général", donc, vous devez la faire précéder d'un point :
Dans un bloc With end With, si l'objet que vous utilisez appartient à l'objet référencé par le bloc with, il convient de le précéder par un point.
Autrement dit, votre ligne Rows(i), est située dans la feuille "Bilan général", donc, vous devez la faire précéder d'un point :
Sub SUPPRESSIONLIGNE()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "LEGER", "MODERE")
'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets("BILAN GENERAL")
For i = .Range("E" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("E" & i).Value = Editeur Then
.Rows(i).Delete
End If
Next i
End With
End Sub
