XL 2016 Aide pour écrire une expression en Vba Excel

[ReneDav14000]

Bonjour le forum,
Je viens vers vous afin de vous demander si vous pouvez m'aider à retranscrire cette formulation en Vba s'il vous plaît ?
"Si la cellule I7 est le dernier jour de la semaine ou dimanche, alors cette cellule est inactive, soit clic interdit, sinon on peut cliquer".
Je vous remercie par avance pour votre aide

 

[job75]

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Address <> "$I$7" Or Weekday(ActiveCell) > 1 Then Else [A1].Select
End Sub

A+

 

[job75]

Autre solution :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate(ActiveCell) Then Exit Sub
If ActiveCell.Address = "$I$7" And Weekday(ActiveCell) = 1 Then [A1].Select
End Sub

 

[ReneDav14000]

Bonsoir job75,
Merci beaucoup de m'avoir répondu et surtout donné la solution.
Je vais l'adapter mais 99.99% du travail est fait.
Encore merci