Erreur à la fin d'une boucle do while

randall Messages postés 439 Date d'inscription   Statut Membre Dernière intervention   -  
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   -

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 1332 Date d'inscription   Statut Membre Dernière intervention   285
 

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