Discussion :

[Un Internaute]

Bonjour le forum,
Comme décrit dans le titre je voudrais Afficher Masquer certaines lignes.
J'ai fait la macro ci-dessous ça accroche sur Rows
Quelqu'un a -il une idée?
Merci pour vos éventuelles réponses.
Bien cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub AfficherMasquerLignes()
 
    ActiveSheet.Unprotect
    Rows("13:15", "29:31", "46:48", "61:63").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
        Scenarios:=True
End Sub

[Thautheme]

Bonjour un internaute, bonjour le forum,

Essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub AfficherMasquerLignes()
ActiveSheet.Unprotect
Range("13:15, 29:31, 46:48, 61:63").EntireRow.Hidden = True
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
    Scenarios:=True
End Sub

Évite autant que possible les Select qui ne font que ralentir l'exécution du code...

[Un Internaute]

Bonjour Thautheme,
J'ai oublié de dire et je m'en excuse que je voulais Afficher Masquer .
J'ai modifié les lignes de la macro.
Merci pour ton éventuelle réponse
Bien cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub AfficherMasquerLignesRegularisation()
ActiveSheet.Unprotect
Range("13:16, 29:32, 45:48, 61:64").EntireRow.Hidden = True
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
    Scenarios:=True
End Sub

[Thautheme]

Bonjour un internaute, bonjour le forum,

Le code ci-dessous affichera les lignes si elles sont masquées et les masquera si elles sont affichées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub AfficherMasquerLignesRegularisation()
ActiveSheet.Unprotect
Range("13:16, 29:32, 45:48, 61:64").EntireRow.Hidden = Not Range("13:16, 29:32, 45:48, 61:64").EntireRow.Hidden
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
    Scenarios:=True
End Sub

[Un Internaute]

Re bonjour Thautheme,
SUPER ça fonctionne très bien.
Je te remercie et te souhaite ainsi qu'aux autres membres du forum un joyeux Noël
Bien cordialement