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 lignes macro [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2013
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Bâtiment

    Informations forums :
    Inscription : Août 2013
    Messages : 3
    Par défaut Masquer lignes macro
    Bonjour à tous,

    J'aimerai créer une macro permettant de masquer les lignes 17 à 37, 39 à 59, 61 à 81, et ainsi de suite. Seule une ligne restera donc affichée entre les lignes masquées.
    En revanche, l'opération sera effectuée N fois, soit N la valeur affichée en B10.
    Par exemple, si N=1, alors les lignes 17 à 37 seront masquées,
    si N=2, les lignes 17 à 37 et 39 à 59 seront masquées,
    si N=3, les lignes 17 à 37 et 39 à 59 et 61 à 81 seront masquées,
    et ainsi de suite..

    Merci à vous tous !

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    A mettre dans le module de la feuille en question :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
     
    Private Sub Worksheet_Change(ByVal Target As Range)
     
        Dim I As Long
        Dim J As Long
     
        If Target.Address(0, 0) <> "B10" Then Exit Sub
     
        J = 17
     
        For I = 1 To Cells(10, 2).Value
     
            'mettre "False" pour afficher les lignes masquées
            Range(Cells(J, 1), Cells(J + 20, 1)).EntireRow.Hidden = True
            J = J + 22
     
        Next I
     
    End Sub
    Hervé.

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2013
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Bâtiment

    Informations forums :
    Inscription : Août 2013
    Messages : 3
    Par défaut
    Merci beaucoup Hervé, parfait !!

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

Discussions similaires

  1. Macro afficher masquer ligne condition Vlookup
    Par m.hamzaoui dans le forum Général VBA
    Réponses: 3
    Dernier message: 01/06/2014, 20h20
  2. Macro Excel: Masquer ligne en fonction
    Par henrynv dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 29/06/2012, 17h38
  3. [E03] Masquer lignes vides
    Par Niagala dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 04/04/2008, 12h00
  4. Afficher/masquer ligne tableau PB IE
    Par vct68 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 05/03/2008, 23h20
  5. pb masquer ligne d'un tableau sous IE (fonctionne sous firefox)
    Par nocoment dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 20/04/2007, 16h37

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