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

  1. #1
    Membre éclairé

    Profil pro
    Inscrit en
    janvier 2010
    Messages
    641
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 641
    Points : 655
    Points
    655
    Billets dans le blog
    19

    Par défaut Ouvrir tous les niveaux de regroupements de colonnes dont le nombre est aléatoire

    Bonjour à tous,


    Comment en VBA , ouvrir tous les regroupements de colonnes dont le nombre est aléatoire?


    Merci par avance
    Mes réponses vous ont aidé, un clic sur leur pouce vert
    Bonjour chez vous

  2. #2
    Membre éclairé

    Profil pro
    Inscrit en
    janvier 2010
    Messages
    641
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 641
    Points : 655
    Points
    655
    Billets dans le blog
    19

    Par défaut

    En croisant les sources de différents forums, j'ai développé cette routine pour ouvrir tous les niveaux de regroupement sur les colonnes !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     with oSt
        iLevels = 1
        Do While .Rows(1).SpecialCells(xlCellTypeVisible).Count <> .Rows(1).Columns.Count
            .Outline.ShowLevels ColumnLevels:=iLevels
            iLevels = iLevels + 1  
        Loop
    End with
    Je suis preneur d'autres solutions.
    Mes réponses vous ont aidé, un clic sur leur pouce vert
    Bonjour chez vous

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

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