macro pour retrouver colonnes groupées Résolu/Fermé

Question

Bonjour 
suis nouveau et je connais pas grand chose en vba ou macro
je pique a gauche et a droite , mais le projet que je me suis lancée me prend trop de temps
alors je demande de l'aide
- j'ai trouvé une macro qui me permet de n'ouvrir que certaine colonnes a l'aide d'un bouton ToggleButton1
mais quand je rappuis  sur le bouton j’obtiens bien ma vue général mais les colonnes qui etaient   
groupées se retrouvent degroupées
voici mon code
---------------------------------------
Private Sub ToggleButton1_Click()

With ToggleButton1
Sheets("Analyses").Select
Worksheets("Analyses").Columns("c:db").Hidden = .Value
Worksheets("Analyses").Columns("dl:hw").Hidden = .Value
.Caption = IIf(.Value = -1, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
End With
End Sub
--------------------------------------------
en bref je voudrais que le retour a la vue normal se fasse avec les colonnes groupées
merci d'avance
et si quelqu’un est intéressé par mon projet je veux bien un coup de main
en sachant que c'est un fichier récupérer sur le net qui s'appel "Analyse de sang"
mais j'ai du changer pas mal de chose car les macros pour donner les graphs mettaient entre 15 et 20 secondes
donc j'ai tout fais en hypertextes
rodger

Patrice33740 · Answer

Bonjour,

Essaies :
Private Sub ToggleButton1_Click()
  With ToggleButton1
    Sheets("Analyses").Select
    Worksheets("Analyses").Columns("c:db").Hidden = .Value
    Worksheets("Analyses").Columns("dl:hw").Hidden = .Value
    Worksheets("Analyses").Outline.ShowLevels columnlevels:=1
    .Caption = IIf(.Value = -1, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
  End With
End Sub

rodger85830 · Answer

Bonjour ça marche bien,merci pour cette réponse rapide
mais j'aimerais copier le togglebutton1(Feuille Accueil) pour le mètre a coté des colonnes diabétes (Feuille Analyses)j'ai essayé mais le 1 boutton (Accueil) ne suis pas la vue normal quand je clique sur le  2éme boutton (Analyses)
pour une vue normal de la feuille Analyses
si vous ne comprenez rien c'est normal parce-que même moi quand je me relis cela fait brouillon
en fait je veux dupliquer le togglebutton 1 et que quand je clique sur un seul les deux reagissent

Patrice33740 · Answer

Bonjour,
Nommer les deux boutons : ToggleButton1
Dans le module de la feuille Accueil et dans celui de la feuille Analyses :
Option Explicit
Private Sub ToggleButton1_Click()
    If NoEvents Then Exit Sub Else NoEvents = True
    With Worksheets("Analyses")
        .Select
        .Columns("c:db").Hidden = Me.ToggleButton1.Value
        .Columns("dl:hw").Hidden = Me.ToggleButton1.Value
        .Outline.ShowLevels columnlevels:=1
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
        End With
    End With
    With Worksheets("Accueil")
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
        End With
    End With
    NoEvents = False
End Sub
 Et dans un module standard :
Option Private Module
Option Explicit
Public NoEvents As Boolean

rodger85830 · Answer

Bonjour
c'est mieux mais il y a un hic je suis obligé d'appuyer 2 fois sur le bouton de la feuille analyses pour pouvoir retrouver les colonnes groupées 
Merci d'avance Rodger

Patrice33740 · Answer

Bonjour,
Il faut peut-être inhiber les évènements de ta macro.
Mets ton fichier sur  https://www.cjoint.com/
Cordialement
Patrice

Patrice33740 · Answer

Bonjour,
Je ne constate pas ton problème, chez moi ça fonctionnement très bien, hormis un problème de lenteur d'affichage et un problème de scroll, lors du retour en normal (les colonnes sont bien affichées, mais il faut scroller manuellement pour les voir).
A tout hasard si c'est ce qui pose problème, essaies ce code dans les 2 modules de feuille :
Private Sub ToggleButton1_Click()

If NoEvents Then Exit Sub Else NoEvents = True
    Application.ScreenUpdating = False
    With Worksheets("Analyses")
        .Select
        .Columns("c:cy").Hidden = Me.ToggleButton1.Value
        .Columns("dz:hw").Hidden = Me.ToggleButton1.Value
        .Outline.ShowLevels columnlevels:=1
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
            
        End With
    End With
    With Worksheets("Accueil")
        With .ToggleButton1
            .Value = Me.ToggleButton1.Value
            .Caption = IIf(.Value, "Cliquer pour Vue Normal", "Cliquer pour Vue Diabéte")
        End With
    End With
    NoEvents = False
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Application.ScreenUpdating = True
   
End Sub

Macro pour retrouver colonnes groupées

6 réponses