Problème lors de la suppression de lignes VBA

[Fermé]
Signaler
-
Messages postés
41663
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
19 octobre 2021
-
Bonjour,


je suis en train de travailler sous VBA et j'ai un soucis.
Je dois supprimer les lignes qui ne commencent pas par un point.
J'ai fais cela :

For i = 1 To 250
If Not Cells(i, 1) Like ".*" Then
Cells(i, 1).Delete
End If
Next i


Le seul soucis, c'est qu'il reste encore des lignes qui ne sont pas correctes.

En fait, je crois que c'est du au fait qu'il remonte les lignes à chaque fois. Je m'explique.

Il analyse la ligne 1 : imaginons qu'elle soit mauvaise, il la supprime. Donc tout remonte d'une ligne.
Il analyse ensuite la ligne 2. Mais ce qui était auparavant dans la ligne 2 est dorénavant dans la ligne 1. Donc il n'a pas analysé cela.
Je sais pas si c'est compréhensible.

Comment faire?

Merci.

2 réponses

Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 289
Bonjour,

au lieu de faire
For i=1 To 250

fais
For i= 250 To 1 Step -1


Cordialement.
Messages postés
41663
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
19 octobre 2021
12 090
Bonjour
________              ___.   .__                 
\______ \   ____  __ _\_ |__ |  |   ____   ____  
 |    |  \ /  _ \|  |  \ __ \|  |  /  _ \ /    \ 
 |    '   (  <_> )  |  / \_\ \  |_(  <_> )   |  \
/_______  /\____/|____/|___  /____/\____/|___|  /
        \/                 \/                 \/ 

voir ici
https://forums.commentcamarche.net/forum/affich-18313977-probleme-lors-de-la-suppression-de-lignes-vba