Cellule caché selon une date

bonjour a tous, j aimerais dans un fichier excel rendre une cellule invisible, jusqu'a une certaine date

on ne doit pas pouvoir visualiser ce qui est contenu dedans, d'une façon ou d'une autre que a partir de la date saisie dans uen autre cellule

merci

Salut V Tec,

voici une solution dans un fichier-exemple.

Le mot caché est en [A1], la date butoir en [B1] :

- changer cette date cache [A1] en réglant la couleur de fonte sur la couleur de fond et en rendant sa sélection impossible ;

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, [B1]) Is Nothing Then
    If CDate([B1]) > Date Then
        With ActiveSheet
            .Unprotect
            .Range("A1").Font.Color = IIf(.Range("A1").Interior.Color = xlNone, 2, .Range("A1").Interior.Color)
            .Range("A1").Locked = True
            .EnableSelection = xlUnlockedCells
            .Protect
        End With
    End If
End If
'
End Sub

- [A1] est déprotégée à la date voulue.

Private Sub Workbook_Open()
'
With Worksheets("Accueil")
    If CDate(.[B1]) >= Date Then
        .Unprotect
        .Range("A1").Locked = False
        .Range("A1").Font.ColorIndex = 1
    End If
End With
'
End Sub

A tester...

A+

slt alors je l'ai essayé ça marche... mais... pas tout le temps.. des fois je mets la dates au 07/12/2019 et le zero apparait,j'enregistre, je ferme et je reouvre

Salut V Tec,

ben, oui, c'était l'inverse...

If CDate(.[B1]) <= Date Then

Private Sub Workbook_Open()
'
With Worksheets("Accueil")
    If CDate(.[B1]) <= Date Then
        .Unprotect
        .Range("A1").Locked = False
        .Range("A1").Font.ColorIndex = 1
    End If
End With
'
End Sub

En fonction de ce que tu souhaites, le code peut évidemment être adapté. A toi de savoir...

A+