[Résolu]Supprimer une ligne entière selon 2 critères

Abardothe

XLDnaute Nouveau

• 15 Avril 2014

• #2

Re : Supprimer une ligne entière selon 2 critères

J'ai oublié de préciser que je voudrais que toutes les lignes se situant en dessous de la ligne supprimée remonte. Je viens de penser à cela, pour ça qu'il n'y a rien dans ma macro.

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 15 Avril 2014

• #3

Re : Supprimer une ligne entière selon 2 critères

Bonjour,

je ne suis pas sûr de comprendre . Le code présenté fonctionne comme souhaité (1). pourquoi vouloir en appliquer d'autres ?

(1) sauf Rows(c).Delete Shift:=xlUp à modifier en Rows(c.Row).Delete Shift:=xlUp

A+

 

Vote positif 0 Vote négatif

Abardothe

XLDnaute Nouveau

• 15 Avril 2014

• #4

Re : Supprimer une ligne entière selon 2 critères

Effectivement le code marche niquel =)
Merci pour ton aide, je sais pas si j'aurai trouvé tout seul ^^

Sujet résolu !
Merci et bonne journée !

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 15 Avril 2014

• #5

Re : [Résolu]Supprimer une ligne entière selon 2 critères

Bonjour Abardothe, Paf,

J'ai comme un doute: ne serait-il pas judicieux (et plus si affinités 😉) de supprimer les lignes en partant du bas!? Pour l'avoir lu à de nombreuses reprises ici même et l'avoir expérimenté, j'irais jusqu'à dire que de doutes je n'en ai pas, en fin de compte!

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 15 Avril 2014

• #6

Re : [Résolu]Supprimer une ligne entière selon 2 critères

bonjour Modeste

quand on gère dans une boucle sur les numéros de ligne, effectivement il vaut mieux commencer par la fin pour ne pas se mélanger les pinceaux.
Dans le cas présent, après test ça ne semble pas poser de problème. A priori, le N° de ligne n'est effectif qu'au moment de la lecture, donc il n'y a pas de décalage (c'est mon interprétation).

A+

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 15 Avril 2014

• #7

Re : [Résolu]Supprimer une ligne entière selon 2 critères

Bonjour Paf,

Ca ne saute pas toujours aux yeux (sauf si tu as plusieurs lignes qui se suivent et que tu dois supprimer)
Si, dans ta boucle, tu supprimes la ligne 15 (correspondant à Rows(c.Row)), la ligne 16 avant la suppression, devient automatiquement la 15ème. Or ta boucle poursuit son petit bonhomme de chemin et passe à la ligne 16 (qui était la 17ème avant la suppresion!) et donc la ligne 16, qui est devenue la 15, "passe entre les mailles du filet". Si elle ne doit pas être supprimée, tu ne t'en aperçois pas ... Tu me suis? 😛

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 16 Avril 2014

• #8

Re : [Résolu]Supprimer une ligne entière selon 2 critères

re Modeste
re Abardothe

J'avais réalisé le test suivant

Code:

for each ....
If c.Offset(, 2) = "" Then
    Rows(c.row).Delete Shift:=xlUp
End If
...

et n'ayant qu'une cellule vide toutes les 10 lignes, ça marchait parfaitement.

en mettant des cellules vides dans deux lignes successives, effectivement la deuxième n'est pas traitée !

A moins qu'on puisse inverser le sens de recherche de
For Each c In Range("E13:E" & Cells(Rows.Count, 5).End(xlUp).Row)

il vaut mieux utiliser une boucle
For i= Cells(Rows.Count, 5).End(xlUp).Row to 13 Step -1

A+

 

Vote positif 0 Vote négatif