Trouver le jour de la semaine avec Excel VBA

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

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x