IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

masquer/afficher une range via bouton


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Décembre 2010
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2010
    Messages : 44
    Points : 41
    Points
    41
    Par défaut masquer/afficher une range via bouton
    Bonsoir,

    j'aurais une question? Est-il possible de créer une macro qui, lorsqu'on appuie sur un bouton, masque une range définie et lorsqu'on ré-appuie dessus nous l'affiche (et vice versa)?

    J'ai commencé le début d'une possible macro mais elle ne marche pas

    Merci d'avance de vos réponses

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub CommandButton1_Click()
     
    ActiveSheet.Rows("10:34").Select
    If Selection.EntireRow.Hidden = True Then Selection.EntireRow.Hidden = False
    End If
    If Selection.EntireRow.Hidden = False Then Selection.EntireRow.Hidden = True
    End If
    End Sub

  2. #2
    Expert éminent Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Points : 9 548
    Points
    9 548
    Par défaut
    Bonsoir,

    essaies comme ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub CommandButton1_Click()
     
    ActiveSheet.Rows("10:34").Select
    If ActiveSheet.Rows("10:34").Hidden = True Then Selection.EntireRow.Hidden = False
    If ActiveSheet.Rows("10:34").Hidden = False Then Selection.EntireRow.Hidden = True
    End Sub

  3. #3
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
    Rows("10:34").Hidden = Not Rows("10:34").Hidden
    End Sub

  4. #4
    Membre du Club
    Profil pro
    Inscrit en
    Décembre 2010
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2010
    Messages : 44
    Points : 41
    Points
    41
    Par défaut
    Merci Mercatog. Ca marche.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] afficher/masquer zone de lignes via bouton "+" / "-"
    Par easyhour dans le forum Excel
    Réponses: 2
    Dernier message: 30/11/2010, 09h21
  2. afficher une image via la css
    Par benkunz dans le forum Mise en page CSS
    Réponses: 5
    Dernier message: 18/05/2008, 13h22
  3. Réponses: 7
    Dernier message: 18/07/2007, 12h01
  4. Réponses: 1
    Dernier message: 25/05/2007, 15h46
  5. Réponses: 4
    Dernier message: 12/09/2005, 19h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo