Macro Ouvrir / Fermer

[Egruat]

Bonjour,

Je cherche à masquer des lignes et à les démasquer avec un même bouton. Comment faut-il faire? Le code ci-dessous permet de masquer des lignes en appuyant une fois sur le bouton. Comment faire pour démasquer les lignes en appuyant une seconde fois sur ce même bouton? Merci !!

Private Sub CommandButton1_Click()
Range("6:7,9:10,12:13,15:16,18:19,21:22,24:25,27:28,30:31").Select
Selection.EntireRow.Hidden = True
End Sub

 

[phlaurent55]

Re : Macro Ouvrir / Fermer

Bonjour Egruat,

avec ceci:

Sub CommandButton1_Clic()
Range("6:7,9:10,12:13,15:16,18:19,21:22,24:25,27:28,30:31").Select
Selection.EntireRow.Hidden = IIf(Selection.EntireRow.Hidden = True, False, True)
End Sub

à+
Philippe

 

[Hippolite]

Re : Macro Ouvrir / Fermer

Bonjour,

Dim TrueFalse As Boolean
Private Sub CommandButton1_Click()
Range("6:7,9:10,12:13,15:16,18:19,21:22,24:25,27:28,30:31").Select
Selection.EntireRow.Hidden = TrueFalse
TrueFalse= Not TrueFalse
End Sub

A+

 

[Rep]

Re : Macro Ouvrir / Fermer

Bonjour,

Il n'est pas nécessaire de passer par une macro pour ce genre de choses : il suffit d'utiliser les plans.

Soit en passant par la barre de menus (Onglet "Données", sous-section "Plan" sur Office 2007) soit en utilisant le raccourci clavier SHIFT+ALT + Flèche droite pour grouper / Flèche gauche pour dissocier.

Même si vous ne pourrez pas créer un plan unique du fait que les lignes sélectionnées ne sont pas contigües, il est possible de les masquer/afficher en une seule fois par click sur le (1) et le (2) de la colonne grisée qui apparaîtra à gauche du tableau de cellules.

Bonne soirée,

 

[Egruat]

Re : Macro Ouvrir / Fermer

Bonjour,

Merci !

Si maitenant je voudrais cacher non pas toutes lignes mais une sélection de cellules, du type ("A9😛23, A27😛38") ??

Cordialement

 

[phlaurent55]

Re : Macro Ouvrir / Fermer

Re,

Bonjour,

Merci !

Si maitenant je voudrais cacher non pas toutes lignes mais une sélection de cellules, du type ("A9😛23, A27😛38") ??

Cordialement

pour cela tu n'as que la solution de "planquer" le contenu de la cellule ( par exemple caractères blancs sur fond blanc, jaunes sur fond jaune, ....................)

à+
Philippe

 

[Egruat]

Re : Macro Ouvrir / Fermer

Ma question est stupide car c'est impossible.

Désolé. Merci.