suppression de lignes vides avec condition

[lesuisse]

bonjour à toutes et à tous,

Est-ce que ce code est correct ? Parce que ca prend un temps assez long jusque la macro termine.

Sachant qu'en fait je souhaite que la macro me supprime les lignes a l exception de celles ayant un font bleu et jaune (8 et 6 dans l index des couleurs).

Merci de vos conseils

Dim cell As Range

For Each cell In Range("I2:I65536")
If cell.interior.colorindex <> 8 then
If cell.interior.colorindex <> 6 then
cell.entirerow.delete
End If
End If
Next cell

 

[Dan]

Bonjour lesuisse,

Juste une question as-tu vraiment des données jusqu'à la 65536 ième ligne ?
C'est cela qui fait trainer ta macro.
Je pense qu'il faudrait t'y prendre autrement en définissant la plage dans laquelle se trouve tes données et appliquer cela dans ta macro.

En allant également dans le menu "Chercher" et encoder "supprimer lignes", tu devrais trouver quelques posts qui ont traité de ce sujet.

Si pb, n'hésite pas

@+

Dan

 

[lesuisse]

Salut Dan, le forum, la Suisse, la France, etc...

Merci pour ton aide.
C'est vrai que j'ai pas pensé directement à aller voir dans les posts existants déjà... Maintenant c'est chose faite !

Bonne journée et @ +

Le Suisse