masquer des lignes et colonnes

masquer des lignes et colonnes - VB/VBA/VBS - Programmation

Marsh Posté le 26-02-2009 à 12:02:58    

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.

Reply

Marsh Posté le 26-02-2009 à 12:02:58   

Reply

Marsh Posté le 26-02-2009 à 15:47:28    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed