macro pour masquer des lignes

[bodbod]

Bonjour,
Je suis amené a vous ecrire car, je suis a la recherche d'une macro a composer.
En faite, je voudrais pouvoir masquer les lignes qui ont une case = 1.
Je m'explique, prenons une ligne x et la colones de reference B, comment
masquer les lignes dont Bx =1.
Par ex : masquer la ligne 12 si B12=1
masquer la ligne 25 si la case B25=1 et ainsi de suite...

J'ai deja trouve la macro pour masquer les lignes "selectionnées" et vide

________
Sub masquelignesvides()

' Macro enregistrée le 19/07/99 par Alain DI MAGGIO

For Each c In Selection

If Application.CountA(c.EntireRow) = 0 Then Rows(c.Row).RowHeight = 0

Next c



End Sub
_________

mais je suis nul en macro alors, si vous pouviez m'aider, je vous en serai tres reconnaissant ;-)
Merci

 

[Ti]

Voilà :

Sub MasqueLignes()
'Ti
Dim Plage As Range, Cel As Range
Set Plage = Range("B1", Range("B65536").End(xlUp))
For Each Cel In Plage
If Cel.Value = 1 Then Cel.EntireRow.Hidden = True
Next Cel
End Sub

 

[bodbod]

Je vais essayer 🙂
Je suppose que le "B1" et le "B65536" sont la premiere te derniere ligne de reference, non ?

En tout cas, c'est super sympa de ta part

Pour tout autre prob informatique autre que excel, viens me retrouver sur www.aideonline.com ;-)
@+