En standard, il existe une fonction de table dans Excel qui vous fournit le jour de la semaine sous la forme d’un index. Avec cette fonction, également appelée jour de la semaine, l’index 1 représente le dimanche et l’indice 7 le samedi. La fonction suivante ci-dessous vous indique si la date de la cellule active est un week-end.
Function WeekEnd(s As String) As Integer
Dim i As Integer
i = Application.WorksheetFunction.Weekday(ActiveCell)
WeekEnd = i
End Function
Sub JourSemaine()
If WeekEnd(ActiveCell) = 7 _
Or WeekEnd(ActiveCell) = 1 Then MsgBox "jour de la semaine" _
Else MsgBox ("jour de la semaine")
End Sub
If WeekEnd(ActiveCell) = 7 Or WeekEnd(ActiveCell) = 1 Then
MsgBox « WEEKEND »
Else
MsgBox (« jour de la semaine »)
End If
Si je ne m’abuse..