Afficher/Cacher une zone (ligne et colonne) défini

Bonjour à tous !

Voilà je développe actuellement un programme de rapport automatisé.

J'ai un soucis avec une petite formule...

En fait, j'ai deux feuilles, une qui me sert de rapport, et l'autre d'inscription pour les données.

Dans mon logiciel, il peut y avoir des parties qui n'apparaissent pas forcément sur le rapport (par exemple s'il n'y a pas de problème sur un sujet, il n'y a pas de paragraphe "Proposition de solution"...

Donc j'ai créé une checkbox (case à cocher pour les anglophobes), et j'aimerais que s'il est est active, les cellules en question avec ce paragraphe se cachent (et si possible que le texte du dessous remonte pour l'impression c'est mieux ^^)

J'espère que je me suis bien exprimé !

Merci d'avance !

[EDIT]

J'ai trouvé cette macro :

Public Sub MasqueTab()

    With Sheets("FEUILLE A REMPLIR")
        Dim Masquer As Boolean
        If .Shapes("Tab[1]").ControlFormat.Value = xlOn Then
            Masquer = True
        Else
            Masquer = False
        End If

        .Rows("64:75").EntireRow.Hidden = Not Masquer

 End With
End Sub

Mon controle est sur FEUILLE A REMPLIR et mes lignes à cacher sont sur RAPPORT.

Et je ne m'y connais pas assez pour passer d'une feuille à l'autre ^^

Merci d'avance !

Bonjour,

Ce serait plus simple que tu mettes le fichier (avec données non confidentielles).

A te relire

Malheureusement il y a trop de donnée confidentiel, je ne peux pas et si je dois les retirer ça me prendrais trop de temps...

Mais j'ai réussi à passer d'une feuille à l'autre, pour ce que ça intéresse, voici comme j'ai fait :

Public Sub MasqueTab()

    With Sheets("FEUILLE A REMPLIR")
        Dim Masquer As Boolean
'Si Tab[1] est coché (c'est le nom de la checkbox), alors...
        If .Shapes("Tab[1]").ControlFormat.Value = xlOn Then
            Masquer = False
        Else
            Masquer = True
        End If

        With Sheets("RAPPORT")
'Les lignes de 64 à 75 seront caché, de la feuille RAPPORT
               .Rows("64:75").EntireRow.Hidden = Not Masquer
        End With
 End With
End Sub

Re,

Ok. Je ne suis pas sûr que tu parles bien d'une case à cocher lorsque je vois SHAPE dans ton code. S'il s'agit d'un vraie case à cocher faite par l'outil boite de controle, le code pourrait - être le suivant

Private Sub CheckBox1_Click()
Dim Masquer As Boolean
With Sheets("FEUILLE A REMPLIR")
If .CheckBox1.Value = True Then
    Masquer = False
Else
    Masquer = True
End If
With Sheets("RAPPORT")
    .Rows("64:75").EntireRow.Hidden = Not Masquer
End With
End With
End Sub

Code à placer dans la feuille "Feuille a remplir"

Si ton souci est terminé, n'oublie pas de cloturer le fil en cliquant sur le V de couleur vert à coté du bouton editer. Au besoin, lis le lien qui t'a été envoyé dans ta BAL lors de ton inscription.

Amicalement

Edit Dan : Ok. J'ai resimulé ton code. Il semble également correct. Tu peux éventuellement remplacer le TAB[1] par le chiffre 1 si tu n'as qu'un objet sur cette feuille. Ton code doit bien entendu être placé dans un module en VBA.