masquer ligne explication du code:resolu

[jeffe]

bonjour le forum,
j'essaie d'adapter à un fichier ce code trouvé sur le forum

Sub MasquerLigneVides()
Dim i
Application.ScreenUpdating = False
For i = 3 To Range("A65535").End(xlUp).Row
If Application.CountIf(Range(Cells(i, 19), Cells(i, 153)), 0) = 134 Then Rows(i).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

avec l'espion, je vois par exemple que quand i=10,
Application.CountIf(Range(Cells(i, 19), Cells(i, 153)), 0)=67
pouvez vous m'expliquer à quoi correspond ce 67 ?
merci
chaque cellule du tableau, de la colonne 20 à 153 contiennent des formules qui me retournent soit rien "" ou 0 ou une valeur numerique
le but étant de masquer les lignes qui sont soit =0 ou ""

 

[jeffe]

Re : masquer ligne explication du code

Hello je viens de voir ,
en fait c'est à cause des "" de mes formules, donc, comment je pourrais ecrire le code pour masquer si c'est 0 ou ""?
merci

 

[Si...]

Re : masquer ligne explication du code

salut

voir Si... cela convient :

Sub MasquerLigneVides()
  Dim Dl As Long, c As Range
  Application.ScreenUpdating = False
  Dl = Cells(Rows.Count, 1).End(xlUp).Row
  For Each c In Range(Cells(1, 19), Cells(Dl, 153)).SpecialCells(xlCellTypeFormulas)
    Rows(c.Row).Hidden = (c = 0 Or c = "")
  Next
  Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : masquer ligne explication du code

Bonjour,

une autre approche peut être ainsi :

Dim i As Long
Application.ScreenUpdating = False
For i = 3 To Range("A65535").End(xlUp).Row
    Rows(i).Hidden = Application.CountIf(Cells(i, 19).Resize(, 135), ">0") = 0
Next i
Application.ScreenUpdating = True

bonne soirée
@+

 

[jeffe]

Re : masquer ligne explication du code

bonjour Si...,Pierrot93, le forum,
merci pour ces infos c'est super
je vais aussi essayer avec Application.WorksheetFunction.Sum(Colonne) = 0
bonne journée à vous