Range

[flo2002]

J'ai un morceau de code qui semble etre incorrecte mais je ne vois pas ou est le probleme!

Range('f:g, r:s, ad:ae, ap:ap, av:aw, bh:bi, bt:bu, cf:cf, cl:cm, cx:cy, dj:dk, dv:dv, eb:ec, en:eo, ez:fa, fl:fl, fr:fr, fx:fx').Select
Selection.EntireColumn.Hidden = True

d'avance merci

sachant que ce dernier est sur une feuille et est lié à une case à cocher

 

[Luc]

que veut tu masquer
cellules ou colonnes ?
Range = cellule
Columns= colonne

 

[flo2002]

Des colonnes mais dans un autre code j'ai fais comme ca pour masquer des colonnes et ca marche.

Mais la il ne masque rien...

Il ne comprends pas le range + Colonne on dirai

 

[Luc]

comme ceci



Columns('F:G').EntireColumn.Hidden = True

Columns('I:I').EntireColumn.Hidden = True

Columns('L:L').EntireColumn.Hidden = True
avec les bonnes adresses de colonnes

 

[flo2002]

Bonjour le forum, et bonjour Luc

Merci Luc je vais essayer ca ce matin et je vous tien au courant.

 

[flo2002]

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
If CheckBox1 Then

Sheets('Rolling_Forecast').Select


Columns('F:G').EntireColumn.Hidden = True
Columns('r:s').EntireColumn.Hidden = True
Columns('ad:ae').EntireColumn.Hidden = True
Columns('ap:ap').EntireColumn.Hidden = True
Columns('av:aw').EntireColumn.Hidden = True
Columns('bh:bi').EntireColumn.Hidden = True
Columns('bt:bu').EntireColumn.Hidden = True
Columns('cF:cf').EntireColumn.Hidden = True
Columns('cl:cm').EntireColumn.Hidden = True
Columns('cx:cy').EntireColumn.Hidden = True
Columns('dj:dk').EntireColumn.Hidden = True
Columns('dv:dv').EntireColumn.Hidden = True
Columns('eb:ec').EntireColumn.Hidden = True
Columns('en:eo').EntireColumn.Hidden = True
Columns('ez:fa').EntireColumn.Hidden = True
Columns('Fl:fl').EntireColumn.Hidden = True
Columns('Fr:fr').EntireColumn.Hidden = True
Columns('Fx:fx').EntireColumn.Hidden = True


Sheets('Garde').Select

Range('A1').Select


End If
If Not CheckBox1 Then

Columns('F:G').EntireColumn.Hidden = False
Columns('r:s').EntireColumn.Hidden = False
Columns('ad:ae').EntireColumn.Hidden = False
Columns('ap:ap').EntireColumn.Hidden = False
Columns('av:aw').EntireColumn.Hidden = False
Columns('bh:bi').EntireColumn.Hidden = False
Columns('bt:bu').EntireColumn.Hidden = False
Columns('cF:cf').EntireColumn.Hidden = False
Columns('cl:cm').EntireColumn.Hidden = False
Columns('cx:cy').EntireColumn.Hidden = False
Columns('dj:dk').EntireColumn.Hidden = False
Columns('dv:dv').EntireColumn.Hidden = False
Columns('eb:ec').EntireColumn.Hidden = False
Columns('en:eo').EntireColumn.Hidden = False
Columns('ez:fa').EntireColumn.Hidden = False
Columns('Fl:fl').EntireColumn.Hidden = False
Columns('Fr:fr').EntireColumn.Hidden = False
Columns('Fx:fx').EntireColumn.Hidden = False

Sheets('Garde').Select
Range('A1').Select

End If
Application.ScreenUpdating = True

Sheets('Garde').Select

End Sub

Voici le code que j'ai entrer ce matin, je n'est pas d'erreur il semblerait car il ne m'envoie pas de message, mais ce n'est pas autant qu'il masque ou demasque les colonnes selectionner.

Une idée?

 

[flo2002]

En faite ca fonctionne trés bien, mais pas sur la bonne feuille.

Pourquoi il veut pas agir sur la feuille selectionner?

Dois-je mettre la case à cocher sur la meme feuille que les colonnes a cacher?

 

[_Thierry]

Bonjour Flo2002, Luc, le Forum

Perso, je mettrai ceci dans le Private Module de la Feuille contenant ton ActiveX 'CheckBox1' :

Private Sub CheckBox1_Click()

    If CheckBox1 Then
        HiddingColumns
    Else
        UnhiddingColumns
    End If

End Sub

Et ceci dans un Module Standard :

Sub HiddingColumns()
Dim Colonnes As Range

With Sheets('Rolling_Forecast')
    Set Colonnes = Application.Union(.Columns('A:B'), .Columns('R:T'), .Columns('Z:AD'))
End With

    Colonnes.EntireColumn.Hidden = True

End Sub




Sub UnhiddingColumns()
    Sheets('Rolling_Forecast').Columns.Hidden = False
End Sub

Je te laisse le soin d'adapter l'Union Range aux colonnes que tu désires cacher...

Bonne Journée
[ol]@+Thierry[/ol]

 

[flo2002]

Je vais essayé cette solutionde suite!

merci!

 

[flo2002]

Bravo et merci à tous!

Un spécial merci à Thierry qui a répondu parfaitement à mon probleme!
C'est exactement ce que je voulais!