VBA supprimer des membres d'une collection (de lignes) sur condition

[Guy_M]

Bonjour,

L'objectif de ce post n'est pas de trouver une solution mais de comprendre le comportement des collections dans Excel.

Une collègue m'a demandé de lui faire une macro supprimant certaines lignes d'une feuille. J'ai bêtement codé ainsi :

'Attention, syntaxe approximative
For each ligne in activesheet.usedrange.rows
  if condition = vrai then ligne.delete
next ligne

Ça n'a pas marché et je ne comprends pas pourquoi et je suppose que ce doit être pareil avec toutes les collections (aurais-je abandonné trop vite cette piste ? lire le postscriptum)

Pourriez-vous, s'il vous plaît, m'expliquer pourquoi cela ne fonctionne pas ?

Par avance, merci pour vos réponses

A bientôt
Guy

PS : Pour éviter que vous me proposiez une solution, j'ai très vite programmé autrement la macro et elle fonctionne très bien

'Attention, syntaxe approximative
For i = activesheet.usedrange.rows.count to 1 step -1
  if condition = vrai then activesheet.rows(i).delete
next i

 

[Dranreb]

Bonjour.
Lorsqu'on supprime une partie de ligne entière il est conseillé de mettre xlShiftUp derrière. Parce que s'il choisit xlShiftToLeft par défaut ce sont les colonnes de cette ligne qui disparaissent, non la ligne.

 

[Guy_M]

Merci Dranreb,

Je m'aperçois que je n'ai pas décrit comment ça ne marche pas : la boucle "for each" fait 1 delete puis s'arrête.

A bientôt
Guy

 

[Dranreb]

Je ne vois pas d'où ça peut venir.