Bonjour tout le monde,
Sur ma feuille OD je souhaiterais masquer les lignes vides (elles sont vides de valeurs mais contiennent des formules. Il faudrait que le code masque les cellules (de la ligne 6 à la ligne 305) pour l'enregistrement de la feuille en fichier et que la macro reaffiche toutes les lignes à la fin du code.
En navigant sur le forum j'ai trouvé un bout de code, mais c'est pour supprimer, or je souhaite juste masquer pour l'enregistrement puis reafficher.
Sub supp_ligne_zero_formule()
Application.ScreenUpdating = False
Columns("B:B").Insert Shift:=xlToRight
Range("B1:B" & [C65536].End(xlUp).Row).Value = Range("C1:C" & [C65536].End(xlUp).Row).Value
With Range("B1:B" & [B65536].End(xlUp).Row)
.Replace What:="0", Replacement:="", LookAt:=xlWhole
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Columns("B:B").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub
Merci de votre aide