AVEC FICHIER - Fonction date week end ou semaine 2

Bonjour les amis,

J'ai réussi à créer les formules qui me permettent de regarder ligne par ligne si la date saisie est un samedi ou un dimanche et ensuite j'ai effectué une concaténation de type (WE + DATE) ou (SE +DATE).

Je cherche maintenant une fonction plus simple qui me permet de le faire MAIS en VBA.

Pouvez vous m'aider ?

Je joins un fichier pour plus de compréhension

A très vite

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Ah oui j'aimerai bien, je galère sur la fonction que je dois adapter à mon cas, j'ai essayé toutes les combinaisons possibles et je n'ai pas le résultat souhaité...

La fonction marche lorsqu'il y a des dates dans la colonne A et dans la colonne B mais ne fonctionne pas lorsque la colonne B n'a pas de date.

Pour résumer, si la colonne B n'a pas de date, il faut mettre la date de la colonne A et ensuite la suite de la fonction qui permet de concaténer...

Voilà la fonction :

Public Function DEMO(sDt1 As String, sDt2 As String) As String

Dim dt As Date, dt1 As Date, dt2 As Date

Dim nDay As Byte

Dim sDay As String, sDate As String

On Error GoTo fin

dt1 = CDate(sDt1): dt2 = CDate(sDt2)

If sDt2 = "" Then

dt = dt1

Else

dt = dt2

End If

nDay = Application.Weekday(dt)

sDate = Format(dt, "dd/mm")

Select Case nDay

Case 1, 7

sDay = "WE"

Case Else

sDay = "SE"

End Select

DEMO = sDay & " " & sDate

Exit Function

fin:

DEMO = ""

Exit Function

End Function

Pourtant dans la fonction après une longue réflexion, les lignes ci-dessous me semblent justes.

If sDt2 = "" Then ' Si sDt2 égal vide alors (sDt2 = colonne B)

dt = dt1 ' dt = colonne A

Else ' sinon

dt = dt2 ' dt = Colonne B

End If ' Fin de si

Quelqu'un pourrais me guider svp ?