Discussion :

[thomasdu40]

Bonjour,

Dans le code ci-dessous, qui ne fonctionne pas bien sur, je voudrais que dès qu'une personne saisie une valeur dans une ou plusieurs cellules de C6 à C511, les onglets "ConstatsBRC" et "ConstatsIFS" se masquent automatiquement.

Comment faire ? Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = ("$C$6:$C$511") Then
        ThisWorkbook.Worksheets("ConstatsBRC").Visible = xlSheetHidden
        ThisWorkbook.Worksheets("ConstatsIFS").Visible = xlSheetHidden
    End If
End Sub

[thomasdu40]

J'ai posté trop vite car j'ai trouvé une solution. Alors voici le code pour ce que ça interesse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C6:C511")) Is Nothing Then: Exit Sub
        ThisWorkbook.Worksheets("ConstatsBRC").Visible = xlSheetHidden
        ThisWorkbook.Worksheets("ConstatsIFS").Visible = xlSheetHidden
End Sub

A bientôt.