masquer des colonnes nommées en vba

tototiti2008

XLDnaute Barbatruc

• 10 Décembre 2010

• #2

Re : masquer des colonnes nommées en vba

Bonjour dubdub,

à tester :

Code:

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

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

 

Dernière édition: 10 Décembre 2010

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 10 Décembre 2010

• #3

Re : masquer des colonnes nommées en vba

Salut dubdub, le Forum

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

Code:

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

 

Dernière édition: 10 Décembre 2010

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 10 Décembre 2010

• #4

Re : masquer des colonnes nommées en vba

Bonjour dubdub,


Essaye avec cette ligne de code :

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 10 Décembre 2010

• #5

Re : masquer des colonnes nommées en vba

Excel lent...
merci

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 10 Décembre 2010

• #6

Re : masquer des colonnes nommées en vba

Si je veux masquer plusieurs colonnes à la fois ?

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 10 Décembre 2010

• #7

Re : masquer des colonnes nommées en vba

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


Essaye comme ça :

Code:

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

a+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 10 Décembre 2010

• #8

Re : masquer des colonnes nommées en vba

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Décembre 2010

• #9

Re : masquer des colonnes nommées en vba

Re,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2010

• #10

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

Code:

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

Code:

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

 

Dernière édition: 10 Décembre 2010

Vote positif 0 Vote négatif

G

Guest

Guest

• 13 Décembre 2010

• #11

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

 

Vote positif 0 Vote négatif