Masquer des lignes et colonnes

[myelmehdi]

Bonjour à Tous,
Etant novice en VBA j'ai besoin une petite aide.
Voilà j'ai un tableau excel qui fait presque 1000 lignes et 50 colonnes.
je voulais savoir s'il est possible par codage VBA de :
Pour chaque chaque ligne, si la cellule (G: num de ligne) =0 , masquer la ligne
Pour chaque colonne , si la cellue (num de colonne : 12)=0, masquer la colonne.

merci pour votre aide.

 

[myelmehdi]

J'ai trouvé.Pour les intéressés:

Sub MasquerLigne()
'masquer les lignes de programme nulles

For i = 1400 To 17 Step -1
If Cells(i, 113) = "0" Then
Rows(i).Select
Selection.EntireRow.Hidden = True

End If
Next
End Sub



Sub Masquercolonne()
'masquer les colonnes d'usines nulles

For i = 109 To 7 Step -1
If Cells(14, i) = "0" Then
Columns(i).Select
Selection.EntireColumn.Hidden = True

End If
Next
End Sub

 

[zeb]

Et le règlement ?

 

[myelmehdi]

excuses moi zeb j'ai oublié la balise:

Sub MasquerLigne() 
'masquer les lignes de programme nulles 

For i = 1400 To 17 Step -1 
If Cells(i, 113) = "0" Then 
Rows(i).Select 
Selection.EntireRow.Hidden = True 

End If 
Next 
End Sub 



Sub Masquercolonne() 
'masquer les colonnes d'usines nulles 

For i = 109 To 7 Step -1 
If Cells(14, i) = "0" Then 
Columns(i).Select 
Selection.EntireColumn.Hidden = True 

End If 
Next 
End Sub 

[code]