Erreur à la fin d'une boucle do while

Fermé

randall Messages postés 426 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 23 octobre 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

A voir également:

Erreur à la fin d'une boucle do while
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Erreur 1001 outlook - Accueil - Bureautique

1 réponse

Réponse 1 / 1

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
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

Discussions similaires

[BASH] Existe t-il un boucle do while?

Instagram "Désolé, une erreur s'est produite"

Mon pc s'allume et s'éteint en boucle

Table des matières dont les titres n'apparaissent pas..

Erreur de lecture sur iptv smarters