[VBA]Masquer les données groupées
Raph04
Messages postés
182
Statut
Membre
-
Rémy -
Rémy -
Bonjour,
J'ai des données qui sont groupées dans un fichier excel.
Pour info, je les ai groupées en appliquant la fonction :
C'est également faisable en sélectionnant des colonnes et en allant dans Données>Grouper et créer un plan>grouper.
Mon problème et de masquer ces données grouper mais en VBA. Cela correspond à cliquer sur le petit "-" qui apparaît à coté des données groupées, cependant en créant un macro automatique cela ne me génère aucun code. Y a t'il une fonction pour faire cela ?
Merci
Raph
J'ai des données qui sont groupées dans un fichier excel.
Pour info, je les ai groupées en appliquant la fonction :
xlSheet.Rows(LigDebut & ":" & LigFin).Select Selection.Rows.Group
C'est également faisable en sélectionnant des colonnes et en allant dans Données>Grouper et créer un plan>grouper.
Mon problème et de masquer ces données grouper mais en VBA. Cela correspond à cliquer sur le petit "-" qui apparaît à coté des données groupées, cependant en créant un macro automatique cela ne me génère aucun code. Y a t'il une fonction pour faire cela ?
Merci
Raph
A voir également:
- [VBA]Masquer les données groupées
- Fuite données maif - Guide
- Comment masquer les amis sur facebook - Guide
- Effacer les données de navigation sur android - Guide
- Trier des données excel - Guide
- Masquer conversation whatsapp - Guide
1 réponse
Bonjour,
J'ai rencontré le même problème et j'ai supprimé mon plan. J'ai créé un bouton avec une macro qui masque des colonnes, et un autre avec une macro qui les fait réapparaître.
Sub Adminfermer()
Range("U:AJ").EntireColumn.Hidden = True
End Sub
______________________________________________
Sub Adminouvrir()
Range("U:AJ").EntireColumn.Hidden = False
End Sub
Cela pourra peut-être te servir
Rémy
J'ai rencontré le même problème et j'ai supprimé mon plan. J'ai créé un bouton avec une macro qui masque des colonnes, et un autre avec une macro qui les fait réapparaître.
Sub Adminfermer()
Range("U:AJ").EntireColumn.Hidden = True
End Sub
______________________________________________
Sub Adminouvrir()
Range("U:AJ").EntireColumn.Hidden = False
End Sub
Cela pourra peut-être te servir
Rémy
