Supprimer des cellules contiennent "0" et les remonter

Bonjour,

j'ai besoin de Supprimer des cellules contiennent "0" et de les remonter, gardant le même ordre des autres cellules qui contiennent des valeurs.

ci-joint l'exemple.

merci.

Bonjour,

un essai vite fait avec l'enregistreur de macro

Sub Macro2()

   [A1].select
  Selection.CurrentRegion.Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$1:$D$873").AutoFilter Field:=1, Criteria1:="0"
  ActiveSheet.Range("$A$1:$D$873").AutoFilter Field:=2, Criteria1:="0"
  ActiveSheet.Range("$A$1:$D$873").AutoFilter Field:=3, Criteria1:="0"
  ActiveSheet.Range("$A$1:$D$873").AutoFilter Field:=4, Criteria1:="0"
  Range("a2:a" & Range("a65536").End(xlUp). _
        Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  Selection.AutoFilter
  [A1].Select
End Sub

bonjour

un essai sans macro

cordialement

Merci patrick1957 pour ton aide, mais apparemment il reste des cellules qui contiennent la valeur (0) non supprimées.

voir ci-joint le résultat Obtenu et le résultat Souhaité.

Bonjour

A vérifier

DAMOUN a écrit :

Merci patrick1957 pour ton aide, mais apparemment il reste des cellules qui contiennent la valeur (0) non supprimées.

voir ci-joint le résultat Obtenu et le résultat Souhaité.

re,

j'ai pensé qu'il fallait laisser les lignes qui contenaient des nombres <> 0 et donc enlever celles qui n'ont que des zéros...

entre temps , banzai t'a répond , donc c'est résolu

bonne semaine

merci beaucoup Banzai64 ton macro est parfait !!