VBA Excel erreur d'execution 1004 - Suppression de lignes SI
Résolu/Fermé
rakoto be
-
Modifié par pijaku le 23/04/2013 à 09:45
pijaku
pijaku
- Messages postés
- 12257
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 3 septembre 2021
A voir également:
- VBA Excel erreur d'execution 1004 - Suppression de lignes SI
- VBA Excel erreur d'execution 1004 - Suppression de lignes SI ✓ - Forum - VB / VBA
- Excel erreur d'exécution 1004 - Forum - Programmation
- Excel Erreur d'execution 1004 ✓ - Forum - Programmation
- VBA Excel: erreur d'execution '438' lors du copier / coller ✓ - Forum - VB / VBA
- VBA erreur 1004 ✓ - Forum - VB / VBA
2 réponses
f894009
23 avril 2013 à 09:24
- Messages postés
- 16610
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 6 juillet 2022
23 avril 2013 à 09:24
Bonjour,
Rows(i & ":" & i).Delete
Rows(i & ":" & i).Delete
pijaku
23 avril 2013 à 09:41
- Messages postés
- 12257
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 3 septembre 2021
23 avril 2013 à 09:41
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