Staple1600
XLDnaute Barbatruc
Bonjour le forum
En modifiant une macro trouvée ici
https://www.excel-downloads.com/threads/suppression-lignes.77404/
J'obtiens un message d'erreur dont je comprend pas l'origine.
Le code ci-dessus fonctionne puis s'arrete : Erreur Exécution 13
Le code ci-dessous lui génère l'erreur 13 des le départ
Merci de votre aide
En modifiant une macro trouvée ici
https://www.excel-downloads.com/threads/suppression-lignes.77404/
J'obtiens un message d'erreur dont je comprend pas l'origine.
Code:
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Left(Cells(i, 1), 4) = "Subj" Then MsgBox Rows(i).Address(False, False)
Next
Le code ci-dessous lui génère l'erreur 13 des le départ
Code:
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(i, 1)) Or Not Left(Cells(i, 1), 4) = "Subj" Then Rows(i).Delete
Next
Merci de votre aide