VBA Excel erreur d'execution 1004 - Suppression de lignes SIRésolu/Fermé

Question

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

Configuration: Windows 7 / Chrome 26.0.1410.64

f894009 · Answer

Bonjour,

Rows(i & ":" & i).Delete

pijaku · Answer

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 :
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

VBA Excel erreur d'execution 1004 - Suppression de lignes SI

2 réponses

Newsletters