VBA Excel erreur d'execution 1004 - Suppression de lignes SI
Résolu
rakoto be
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
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
- Aller à la ligne excel - Guide
- Word et excel gratuit - 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
