Plage cachée dépendante d'une cellule

Bonjour,

En fait, j'aimerais savoir si c'est possible de cacher une plage de cellule et de la faire apparaître en fonction d'une valeur d'un cellule?

Je voudrais faire un Excel qui valide les inspections validées.

Si jamais la 1ière inspection est acceptée, les lignes 9 à 12 sont cachées, puisque l'inspection finale est inutile.

Si la 1ière inspection est refusée, les lignes 9 à 12 sont visibles (dans le but de remplir l'inspection finale).

Merci!

Cordialement,

Michel.

Bonjour,

Code suivant dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B7"), Target) Is Nothing Then
        If Target = "Accepter" Then
            Rows(6).EntireRow.Hidden = True
        Else
            Rows(6).EntireRow.Hidden = False
        End If
    End If
End Sub

Bonjour,

Merci beaucoup pour la réponse, c'est exactement ce que je recherchais.

Cordialement,

Michel

En fait, j'aurais une dernière question,

Est-ce qu'il y aurait une méthode pour cacher les cases à option qui se retrouvent dans ces cellules?

Le code marche très bien, les cellules sont cachées, mais les cases à option restent visibles.

Est-ce qu'il y aurait une façon de cacher les cases à cocher seulement sur cette ligne?

Merci!

Cordialement,

Michel

Re,

Je ne vois pas les cases à option dans le fichier.

Bonjour,

Voici le fichier en question,

lorsque la liste déroulante est égale à "Accepter", les lignes 9-12 sont bien cachées, mais les cases de ces cellules restent toujours visibles.

Cordialement,

Michel

Bonjour micheltkl, bonjour Raja, bonjour le forum,

Si Raja le permet ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Shape

    If Not Intersect(Range("B7"), Target) Is Nothing Then
        If Target = "Accepter" Then
            Range("9:12").EntireRow.Hidden = True
            For Each Sh In Shapes
                Sh.Visible = msoCFalse
            Next
        Else
            Range("9:12").EntireRow.Hidden = False
            For Each Sh In Shapes
                Sh.Visible = msoCTrue
            Next
        End If
    End If
End Sub

Joseph

Bonjour retraite8!

Tout d'abord merci pour ta réponse.

C'est effectivement ce que je recherchais , mais en fait il y a un petit problème qui s'est posé:

Lorsque je rajoute des cases à cocher, le code ne s'applique plus.

Cordialement,

Michel

Bonjour micheltkl, bonjour Raja, bonjour le forum,

J'ai modifié mon code précédent.

Joseph

Rebonjour retraite8,

Merci beaucoup!

Est-ce par contre possible de cacher seulement les cases à options de la ligne 11 par contre?

Cordialement,

Michel

Bonjour micheltkl, bonjour le fil, bonjour le forum,

Je suis beaucoup moins familier avec les contrôles de formulaire.

Une des difficultés est de les nommer correctement de façon consécutive.

Ensuite, c'est du gâteau.

Je cherche une bonne méthode. Si toute fois quelqu'un à l'info.

Joseph

Bonjour micheltkl, bonjour le fil, bonjour le forum,

Il va falloir que j'apprenne à maîtriser ces cases à cocher de formulaire qui sont très difficiles à renommer si le nom que l'on veut leur donner a déjà été utilisé puis supprimé ou modifié.

Excel retient ces noms et refuse de nous permettre de les utiliser à nouveau.

Les cases à cocher de Contrôle sont, quant à elles, d'une simplicité enfantine.

Remarque que le problème est sûrement sur la chaise.

Regarde le fichier joint, s'il convient.

Joseph

Rebonjour!

C'est parfait!

Je te remercie beaucoup pour ton temps face à ma problèmatique.

Cordialement,

Michel