Masquage des colonnes

[zeltron24]

Bonjour le forum,

Pourriez vous svp me dire si en masquant une quantité de rangées dans le genre :

Rows("108:135").Select
        Range("B108").Activate
            Selection.EntireRow.Hidden = True
                ActiveWindow.SmallScroll Down:=-21

il m'est possible par un autre code de ne démasquer que par exemple les rangées de 115 à 125
J'ai essayé avec

Rows("115:125").Select
        Range("B115").Activate
            Selection.EntireRow.Hidden = False
                ActiveWindow.SmallScroll Down:=-21

mais cela ne fonctionne pas j'ai un message d'erreur
D'avance merci pour votre aide
zeltron24

 

[abtony]

Re : Masquage des colonnes

Bonjour zeltron,

peut être comme ceci

Sub masqer()
Rows("108:135").Select
    Selection.EntireRow.Hidden = true
End Sub

Sub Afficher()
Rows("115:125").Select
Selection.EntireRow.Hidden = False
End Sub

 

[zeltron24]

Re : Masquage des colonnes

Merci abtony

En effet cela fonctionne correctement
Encore merci à toi et bon Week End
Cordialement
zeltron24

 

[Staple1600]

Re : Masquage des colonnes

Bonjour à tous


Pour faire d'une pierre , deux coups

Sub md() 
[COLOR=Green]'permet d'utiliser un seule macro
'pour le masquage/démasquage[/COLOR]
Dim a As Range
Set a = Rows("108:135")
a.EntireRow.Hidden = Not a.EntireRow.Hidden
End Sub

Un autre possibilité (si tu veux 2 macros distinctes)

Sub masquer(m As Boolean)
Dim a As Range
Set a = Rows("108:135")
a.EntireRow.Hidden = m
End Sub

Sub masquer() [COLOR=Green]'pour masquer[/COLOR]
masquer True
End Sub

Sub demasquer() [COLOR=Green]'pour démasquer[/COLOR]
masquer False
End Sub