Comment développer ou réduire toutes les lignes et colonnes groupées dans Excel ?

Dans Excel, vous pouvez utiliser l'utilitaire Grouper pour regrouper des données selon vos besoins. Mais s'il y a de nombreux groupes dans la feuille, comment pouvez-vous rapidement développer ou réduire tous les groupes sans cliquer manuellement ? Ici, je vais vous présenter des codes VBA pour résoudre facilement cette tâche dans Excel.

Développer ou réduire toutes les lignes et colonnes groupées dans Excel

Développer ou réduire toutes les lignes et colonnes groupées dans Excel

Voici quelques codes VBA qui peuvent vous aider à développer ou réduire tous les groupes en une seule fois.

1. Appuyez sur les touches Alt + F11 pour activer la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le nouveau Module.

VBA : Développer tous les groupes

Sub ExpandAll()
'UpdatebyExtendoffice20181031
    Dim I As Integer
    Dim J As Integer
   
    On Error Resume Next
    For I = 1 To 100
        Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I
        If Err.Number <> 0 Then
            Err.Clear
            Exit For
        End If
    Next I
    For J = 1 To 100
        Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J
        If Err.Number <> 0 Then
            Err.Clear
            Exit For
        End If
    Next J
End Sub

3. Appuyez sur F5 touche, les groupes dans Feuille1 ont été développés.

Si vous souhaitez réduire tous les groupes, vous pouvez utiliser le code ci-dessous :

Sub CollapseAll()
    Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub

Remarque : dans les codes ci-dessus, Feuille1 est la feuille contenant les groupes que vous souhaitez développer ou réduire. Remplacez-la par votre propre nom de feuille si nécessaire.