Macro sur une case à cocher pour cacher/montrer des colonnes

[tsun]

Bonjour, je voudrais faire en sorte qu’en cochant ma case tout soit montré et qu’en la décochant, certaines colonnes disparaissent. J’ai mes macro pour cacher/montrer les colonnes et je pourrais créer un bouton “montrer” et un bouton “cacher” mais la case à cocher/décocher conviendrait mieux. Je suis une grande débutante, merci de votre pédagogie !

[bantoniof]

@tsun

J’ai mes macro pour cacher/montrer les colonnes

Où sont ces macros?

[tsun]

"Sub Show

dim oDoc as Object
dim oDisp as Object
dim oSheet as Object

oDoc = ThisComponent.CurrentController.Frame
oDisp = createUnoService(“com.sun.star.frame.DispatchHelper”)
oSheet = ThisComponent.CurrentController.ActiveSheet

dim pArgs(0) as new com.sun.star.beans.PropertyValue
pArgs(0).Name = “ToPoint”
pArgs(0).Value = “$B$1:$D$1”
oDisp.executeDispatch(oDoc, “.uno:GoToCell”, “”, 0, pArgs())
oDisp.executeDispatch(oDoc, “.uno:ShowColumn”, “”, 0, Array())

End Sub

Sub Hide

dim oDoc as Object
dim oDisp as Object
dim oSheet as Object

oDoc = ThisComponent.CurrentController.Frame
oDisp = createUnoService(“com.sun.star.frame.DispatchHelper”)
oSheet = ThisComponent.CurrentController.ActiveSheet

dim pArgs(0) as new com.sun.star.beans.PropertyValue
pArgs(0).Name = “ToPoint”
pArgs(0).Value = “$B$1:$D$1”
oDisp.executeDispatch(oDoc, “.uno:GoToCell”, “”, 0, pArgs())
oDisp.executeDispatch(oDoc, “.uno:HideColumn”, “”, 0, Array())

End Sub"

Je les ai rentrées dans mon fichier Calc et elles fonctionnent bien avec un bouton.

[valioud]

Cette discussion parle du même problème :
https://forum.openoffice.org/fr/forum/viewtopic.php?t=67009&hilit=calc+case+cocher+colonne

[tsun]

Merci beaucoup !