XL 2016 Aide pour écrire une expression en Vba Excel

ReneDav14000 · 22 Novembre 2022

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 · 22 Novembre 2022

Autre solution :

VB:

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

job75 · 22 Novembre 2022

Bonjour,

VB:

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 · 22 Novembre 2022

Autre solution :

VB:

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 · 22 Novembre 2022

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

XL 2016 Aide pour écrire une expression en Vba Excel

ReneDav14000

XLDnaute Occasionnel

job75

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Discussions similaires