Macro pour cacher une plage

Bonjour,

Je vous explique je souhaiterai rendre ma feuille présentation plus "claire". Du coup j'ai ajouté deux boutons avec des cases à cocher appelées "Météo" et "Tranche horaire". Du coup si elles sont cochées j'aimerai que les colonnes correspondantes s'affichent que sinon elles se cachent. J'ai tenté de créer une macro mais grand échec ...

Pourriez-vous m'aider ?

Merci

Edit 9/12 : On vient de passer à l'oral, merci beaucoup tout a fonctionné !

Bonjour

pour afficher la météo :

Sub Météo()
Feuille1.Range("Q:V").EntireColumn.Hidden = True
Feuille1.Range("D:O").EntireColumn.Hidden = False
End Sub

Pour l'autre c'est la même macro mais il faut inverser true et false

Bonsoir Wilder,

Merci de ton aide, le souci c'est qu'une fois appliqué je ne peux qu'afficher météo ou horaire je veux pouvoir en afficher un seul ... ou les deux Une idée ?

Ah oui aussi est-il possible de limiter l'impact pour pas que ça déforme els graphiques dessous au passage ?

Bonjour

A vérifier

Bonsoir Banzaï,

déjà merci beaucoup pour ton aide, seulement là une fois la case cochée cela cache la partie correspondante et moi je souhaiterai ... l'inverse ... une idée de la partie de la macro à changer ?

merci

Bonjour

Il suffit d'inverser l'action

Change

 .Range("B3")

par

Not .Range("B3")

fais la même chose pour B4

Merci !

Bonjour,

Voir fichier.

Cdlt.

Private Sub Meteo()
Dim obj As Object

    Set obj = Me.Shapes("Case à cocher 1").OLEFormat.Object
    If obj.Value = xlOff Then
        Me.Range("D:P").EntireColumn.Hidden = True
    Else
        Me.Range("D:P").EntireColumn.Hidden = False
    End If

    Set obj = Nothing

End Sub