Masquer une colonne

[ouafae]

Bonjour tout le monde,

je voudrais ecrire un code (macro) ui me permet de masquer une colonne ou une lige si toute les valeurs de cette dernière egal à zéro.
merci d avance

 

[edelweisseric]

Bonsoir

Sub largeurhauteur()
ActiveCell.ColumnWidth = 0
ActiveCell.RowHeight = 0
End Sub

Bon courage

 

[Charly2]

Bonsoir ouafae et eric,

Tu peux utiliser ces procédures en les modifiant pour qu'elles agissent comme tu le souhaites :

Option Explicit

Sub MasqueColonne0()
If WorksheetFunction.Sum(ActiveCell.EntireColumn) = 0 Then
ActiveCell.EntireColumn.Hidden = True
End If
End Sub

Sub MasqueLigne0()
If WorksheetFunction.Sum(ActiveCell.EntireRow) = 0 Then
ActiveCell.EntireRow.Hidden = True
End If
End Sub

A+

 

[ouafae]

bonjour tt le monde;

merci charly ca marché trés bien