macro qui ne s'arrête pas....

[mumu]

Bonjour,

Encore moi........ J'ai écrit ce bout de macro :

Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value <> "7" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Activate
End If
Loop

Jusque là tout va bien elle fait ce que je veux. Le problème est que quand elle arrive à la dernière ligne de ma feuille, elle continu à supprimer les lignes comme si la cellule de la ligne suivante qui est vide ne l'était pas. J'ai réussi à stopper la macro en supprimant le contenu de la cellule de la ligne qui est vide.....
J'ai essayé de remplacer <> "" par <> empty sans succès

Est-ce quelqu'un aurait une explication et une éventuelle solution, car du coup ça bloque à cet endroit ?.......

D'avance merci !!

Mumu

 

[Gruick]

Re : macro qui ne s'arrête pas....

Bonjour Mumu,

Essayes de remplacer While (tant que ta cellule est vide)
par Until (jusqu'à ce que ta cellule soit vide)

si j'ai bien compris ton problème

Gruick

 

[mumu]

Re : macro qui ne s'arrête pas....

Salut Gruick,

Merci de t'occuper de mon cas....
Quand je remplace Do while par do until, il saute carrément la boucle....

 

[PascalXLD]

Re : macro qui ne s'arrête pas....

Bonjour

perso je préfère calculer le nombre de ligne est bouclé du style

maligne =range("A65536").end(xlup).row
for x = maligne to 1 step -1
if range("A" & x)<> 7 then rows(x).entirerow.delete
next

 

[mumu]

Re : macro qui ne s'arrête pas....

Salut PascalXLD,

C'est vrai que c'est beaucoup plus simple comme ça !!!!!!
Je me complique parfois un peu trop, j'ai pas les bons réflexes.

Merci pour cette solution !!

@ +

mumu