Grouper-Degrouper des colonnes

Hello,

Afin de faciliter la lecture de mon fichier, j'ai plusieurs groupes de colonnes.

J'aimerais les ouvrir/fermer à l'aide d'une macro.

Comme je ne suis pas sûr d'être clair, j'attache un fichier démo.

Merci d'avance pour votre aide et excellent week-end.

Fab

Hello,

En parcourant le forum, j'ai trouvé une solution, qui ne correspond pas exactement à ce que je cherchais, mais qui fait quand même bien l'affaire :

https://forum.excel-pratique.com/viewtopic.php?p=285622

Bon week-end

Fab

Bonjour,

Assez étonnant ... mais j'ai eu à traiter exactement ce sujet ... il y a très peu de temps ...

https://forum.excel-pratique.com/viewtopic.php?f=2&t=123645

Si tu as des difficultés à l'adaptation ... il ne faut pas hésiter à revenir ...

Bonjour,

en se servant de ta fusion de cellule même plus besoin de plan.

A affecter à toutes tes formes :

Sub affMasque()
    Dim nom As String, pl As Range
    nom = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption
    Set pl = Rows(1).Find(nom, , xlFormulas, xlWhole)
    If Not pl Is Nothing Then
        pl.MergeArea.EntireColumn.Hidden = Not pl.MergeArea.EntireColumn.Hidden
    End If
End Sub

eric

Merci à vous deux d'avoir pris le temps de regarder mon problème.

Vos solutions sont des plus élégantes.

Bon samedi.

Fab

Bonjour à tous,

@ eriiic

Bien vu ... !!! Pour une fois qu'une MergeArea sert à autre chose qu'à créer des problèmes ...

@ Fab117

Content que tu aies pu résoudre ton problème ...