case à cocher et macro

j'ai fais un userform et maintenant je voudrai lui faire dire

si cocher alors masque
si décocher demasque

quelqu'un peut me donner la base que je puisse avancer?

Merci par avance

bonjour
regarde ma demo

Lien supprimé

merci j'en ferai bonne usage!

j ai repirs la demo de Luc et est tenté de l'adapter a mon besoin!

mais au niveau du range ca lui pose un probleme!

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

Sheets('Rolling_Forecast').Select

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.EntireRow.Hidden = True
Range('A1').Select
End If
If Not CheckBox1 Then


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.EntireRow.Hidden = False

Range('A1').Select

End If
Application.ScreenUpdating = True

Sheets('Garde').Select

End Sub

re.Bonjour
teste ceci

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

Sheets('Rolling_Forecast').Select

Columns('f:g,r,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\\').EntireRow.Hidden = True
Range('A1').Select
End If
If Not CheckBox1 Then


Columns('f:g,r,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\\').EntireRow.Hidden = True

Range('A1').Select

End If
Application.ScreenUpdating = True

Sheets('Garde').Select

End Sub

Je viens d'essayer mais il me dit incompatible de type.

sinon j'avais essayer quelque chose comme ca:

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


mais toujours rien...

Message édité par: flo2002, à: 11/05/2006 18:09