Selection des cellules a coté et décaler vers le haut

Question

J'ai un tableau excel que j'ai la quantité en colonne J ce que que je veux faire c'est supprimer range en décalant vers le haut parce que j'ai des valeurs en colonne z et a que je veux pas les supprimer (je peux pas supprimer ligne entière) je veux dire en VBA : pour chaque ligne de la feuil2 colonne J si 0 alors supprimer en décalant vers le haut les cellules de colonne C au colonne R Merci...

3GB · Accepted Answer

Voici 2 propositions si j'ai bien compris, la seconde étant nettement plus rapide en principe : sub supprimer() with sheets("feuil2") dl = .cells(.rows.count, 3).end(xlup).row: if dl &lt; 2 then exit sub for i = dl to 2 step -1 if .cells(i, "J").value = "" or .cells(i, "J").value = 0 then .range("C:R").rows(i).delete xlshiftup end if next i end with end sub sub remplacer() with sheets("feuil2") dl = .cells(.rows.count, 3).end(xlup).row: if dl &lt; 2 then exit sub with .range("C2:R" & dl) &nbsp;&nbsp;&nbsp;&nbsp;t = .value &nbsp;&nbsp;&nbsp;&nbsp;for i = 1 to dl - 1 &nbsp;&nbsp;&nbsp;&nbsp;if t(i, 8) &lt;&gt; "" and t(i, 8) &lt;&gt; 0 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;n = n + 1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for k = 1 to 16 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;t(n, k) = t(i, k) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next k &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if &nbsp;&nbsp;&nbsp;&nbsp;next i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.clearcontents &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if n &gt; 0 then .resize(n, 16).value = t &nbsp;&nbsp;&nbsp;&nbsp;end with end with end sub Cdlt...