Range

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

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

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

Bonjour le forum, et bonjour Luc

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

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?

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?

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

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

Je vais essayé cette solutionde suite!

merci!

Bravo et merci à tous!

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