Protection cells conditionnée par date

[Loukiki]

Bonjour,

Ma question est de savoir si l'on peut vérouiller les cellules d'un tableau à une date donnée, pour clore une validation par exemple.
Merc par avance

 

[chris]

Avec une macro au démarrage qui teste la date et le cas échéant réalise un unprotect.
Chris

 

[Dominique]

Il me semble que tu peux utiliser la fonction données / validation / personnalisé / formule.

Et en guise de formule, tu introduis une formule qui contient une date telle que aujourdhui()

Je n'ai jamais testé. Mais il me semble que cela pourrait marcher.

 

[Loukiki]

merci, j'ai réussi à faire ce que je voulais

Range("référence cellule avec date").select
if ActiveCell.Value > now then
Range("plage à protéger").select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=une cellule vide"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End if

Et sur le conseil de chris, le tout dans une macro au démarrage, et le tour est joué.

Merci