Bonjour à tous,
J'ai crée une fonction VBA qui m'extrait des dates dans une colonne adjacente. La fonction fonctionne bien. je voudrais savoir s'il y a possibilité d'afficher les samedis et dimanches en rouge. Le code de la fonction est le suivant :
Function workM(Référence As Date, Plage As Range) As String
Dim Cellule As Range
Application.Volatile
For Each Cellule In Plage
If Cellule = Sheets("Mensuel").Range("case_option_choisie") And Month(Cellule.Offset(0, 1)) = Month(Référence) Then
workM = workM & Format(Cellule.Offset(0, 1), "dddd dd mmmm yyyy") & Chr(10)
End If
Next
End Function
Merci beaucoup
J'ai crée une fonction VBA qui m'extrait des dates dans une colonne adjacente. La fonction fonctionne bien. je voudrais savoir s'il y a possibilité d'afficher les samedis et dimanches en rouge. Le code de la fonction est le suivant :
Function workM(Référence As Date, Plage As Range) As String
Dim Cellule As Range
Application.Volatile
For Each Cellule In Plage
If Cellule = Sheets("Mensuel").Range("case_option_choisie") And Month(Cellule.Offset(0, 1)) = Month(Référence) Then
workM = workM & Format(Cellule.Offset(0, 1), "dddd dd mmmm yyyy") & Chr(10)
End If
Next
End Function
Merci beaucoup
