Microsoft 365 Macro masquer/Afficher des lignes avec un bouton

[rikano94]

Bonjour,

Je n'y connais absolument rien en macro je démarre tout juste avec cette question, j'espère un moyens de me lancer gentiment puisque j'ai des idées à mettre en place qui reste bloqué dans ma tête.

J'aimerais créer une macro avec un bouton, quand je clique sur ce bouton des lignes prédéfinis par exemple ligne 1 à ligne 7 disparaissent et quand je clique de nouveau sur ce même bouton ces lignes réapparaissent.

Merci d'avance.

 

[gbinforme]

Bonjour
Voici une macro qui effectue ton souhait :

Public Sub Voir_cacher()
Const pre_def = "1:7" ' lignes concernées
    With ThisWorkbook.ActiveSheet.Range(pre_def).Rows
        If .Hidden = False Then
             .Hidden = True
        Else
            .Hidden = False
        End If
    End With
End Sub

 

[Staple1600]

Bonjour

Une variante en onliner (pour les IfElseIfEndfophobes 😉 )

Sub hide_unhide()
ActiveSheet.Range("1:7").Rows.Hidden = Not ActiveSheet.Range("1:7").Rows.Hidden
End Sub

PS: et aussi pour meubler mon après-midi pluvieux 😉

 

[rikano94]

Oui c'est ça c'est super merci.
Mais je n'ai pas de bouton sur la feuille ?

 

[Staple1600]

Re

Et la version light

Sub hide_unhide()
Rows("1:7").Hidden = Not Rows("1:7").Hidden
End Sub

 

[Staple1600]

Re

@rikano94
Il suffit d'ajouter un bouton et d'y affecter la macro de ton choix

 

[rikano94]

Effectivement avec un petit tuto c'était facile à trouver merci.
Par contre j'ai vu des boutons que l'on pouvait modifier au niveau visuel (ombre, relief...).
Tout ce qu'il y a dans onglet format de forme est grisé.

 

[gbinforme]

Mais je n'ai pas de bouton sur la feuille ?

re
Nous n'avions pas de feuille 😛
Pour les boutons il faut utiliser les paramètres pour les décorer !

 

[Staple1600]

Re

@rikano94
Il y a bouton et bouton
Soit un bouton issu de la barre Outils Formulaire
Soit un CommandButton (ActiveX)
Soit une forme automatique (Shape) en guise de bouton

La aussi, moult tutos sur le web 😉