masquer des colonnes nommées en vba

[Guest]

bonjour à tous,
je cherche à masquer des colonnes en vba par checkbox (1 par colonne) mais les colonnes sont nommées.
cela donnerait par exemple pour une colonne nommée "type"

Private sub checkbox1_click()
column("type").entirecolumn.hidden=IIf(checkbox1 , 0 , 1)
End sub

Mais cela ne fonctionne pas!
Avez-vous une idée ?

merci d'avance

 

[tototiti2008]

Re : masquer des colonnes nommées en vba

Bonjour dubdub,

à tester :

Range("type").EntireColumn.Hidden = Not CheckBox1.Value

Edit : Bonjour Dull, Bonjour mromain
Nous on aurait plutôt tendance à cailler, ici 😉

 

[Dull]

Re : masquer des colonnes nommées en vba

Salut dubdub, le Forum

essaye ça... si ta colonne est nommée

Private Sub checkbox1_click()
[COLOR=red][B]Range[/B][/COLOR]("Type").EntireColumn.Hidden = IIf(CheckBox1, 0, 1)
End Sub

EDITION: Salut Tototiti 🙂 Sacréechaleuricid'oùmonretard 😀

mromain... 🙂 apparemment...faitchaudcheztoi 😎

Bonne Journée

 

[mromain]

Re : masquer des colonnes nommées en vba

Bonjour dubdub,


Essaye avec cette ligne de code :

[B][COLOR=red]Range[/COLOR][/B]("type").EntireColumn.Hidden = IIf(CheckBox1, 0, 1)

a+

edit: ça fuse sur le nouveau forum 😉
Bonjour Tototiti, bonjour Dull

 

[Guest]

Re : masquer des colonnes nommées en vba

Excel lent...
merci

 

[Guest]

Re : masquer des colonnes nommées en vba

Si je veux masquer plusieurs colonnes à la fois ?

 

[mromain]

Re : masquer des colonnes nommées en vba

Rebonjour dubdub, ceux qui ont chaud et les autres...


Essaye comme ça :

Range("type1,type2,type3").EntireColumn.Hidden = IIf(CheckBox1, 0, 1)

a+

 

[Guest]

Re : masquer des colonnes nommées en vba

Jusqu'à combien de colonnes je peux mettre (",,,,,,,") ?

 

[tototiti2008]

Re : masquer des colonnes nommées en vba

Re,

a priori, jusqu'à 30 plages disjointes... mais je n'ai pas testé

 

[Staple1600]

Bonsoir à tous

Une voie à suivre (ou pas) - je n'utilise pas de checkbox -
Il suffit de lancer la macro deux fois
(principe du toggle button)

Dans cet exemple, j'ai trois plages nommées
et une plage regroupant ces trois plages

Sub test()
Dim Megazone As Range
Set Megazone = Union([mazone], [lazone], [lastzone])
Megazone.EntireColumn.Hidden = Not Megazone.EntireColumn.Hidden
End Sub

Une variante de la précédente

Sub testB()
Dim Z As Range: Set Z = Union([mazone], [lazone], [lastzone]): Z.Name = "X"
[X].EntireColumn.Hidden = Not [X].EntireColumn.Hidden
End Sub

 

[Guest]

Re : Re: masquer des colonnes nommées en vba

bonjour à tous,
petit souci avec le checkbox5 qui ne fonctionne pas alors que le 4 fonctionne
Private Sub CheckBox4_Click()
Range("type,PC,Immat,dms,mes,oa,fe,mfe,kiljan,kildec,kiltot,trajan,tradec,tratot,motjan,motdec,mottot,consemul,conspou,conscar,sortie,hormot,horpom,rentrée,totheu,totarr,indent,ind,totjou,totind,autor,motif").EntireColumn.Hidden = IIf(CheckBox4, 0, 1)
End Sub
Private Sub CheckBox5_Click()
Range("type,PC,Immat,dms,mes,oa,fe,mfe,kiljan,kildec,kiltot,trajan,tradec,tratot,motjan,motdec,mottot,consemul,conspou,conscar,car,autor,motif").EntireColumn.Hidden = IIf(CheckBox5, 0, 1)
End Sub
staple je vais tester ta formule,pour lancer deux fois puis-je mettre des boutons ?
merci