Erreur à la fin d'une boucle do while

Fermé
randall Messages postés 423 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 20 juin 2024 - 30 janv. 2023 à 18:53
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 - 30 janv. 2023 à 19:38

Bonjour,

Dans la feuille Excel ci-dessous j'arrive bien à supprimer les lignes contenant la valeur "nul" en commençant par la fin mais cela me génère une erreur è la fin de la procédure car la boucle continue une fois arrivée en haut de la colonne comment l'arrêter à la ligne B2 pour que la boucle cesse (erreur 1004 erreur définie par l'application ou par l'objet)

Sub bouclewhilesupressionnul()
 

Range("B25").Select
Do While ActiveCell <> ""
If ActiveCell = ("nul") Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop

End Sub

1 réponse

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
30 janv. 2023 à 19:38

Bonsoir,

la question, vous l'avez déjà posé sous une autre forme et j'avais donné la réponse  qui vous avait convenu

https://forums.commentcamarche.net/forum/affich-37778606-ligne-vides-ne-se-suppriment-pas

0