Discussion :

[sabrine1311]

Bonjour,
je dois trouver une fonction qui renvoie le dernier jeudi ou mardi de la semaine avant une date entrée.
j'ai réalisé cette fonction mais (ca ne prend pas en compte la decrementation des jours (vue que c'est pas du meme type).
Si vous avez d'autres solutions à proposer n'hesitez pas à les partager, cela pourrait m'aider.
Merci davance pour vos aides.
Cdlt,
Sabrine
With Sheets("Data") ' je définis Nomjours selon la valeur num

'****************************************************************
' je définis "Nomjours" selon la valeur "num" (voir onglet Data)
'********************************************************************

If Range("G19").Value = "1" Then
Range("H19") = "Dimanche"

ElseIf Range("G19").Value = "2" Then
Range("H19").Value = "Lundi"
ElseIf Range("G19").Value = "3" Then
Range("H19").Value = "Mardi"

ElseIf Range("G19").Value = "4" Then
Range("H19").Value = "Mercredi"


ElseIf Range("G19").Value = "5" Then
Range("H19").Value = " Jeudi"

ElseIf Range("G19").Value = "6" Then
Range("H19").Value = "Vendredi"
MsgBox Range("H19").Value
'MsgBox Range("F19").Value
ElseIf Range("G19").Value = "7" Then
Range("H19").Value = " Samedi"
End If
' MsgBox Range("F19").Value

If Range("G19").Value = "2" Then

Date_BAR = (Range("F19").Value) - 4
ElseIf Range("G19").Value = "3" Then
Date_BAR = Range("F19").Value - 5
ElseIf Range("G19").Value = "6" Then
Date_BAR = Range("F19").Value - 1
ElseIf Range("G19").Value = "4" Then
Date_BAR = Range("F19").Value - 1
ElseIf Range("G19").Value = "5" Then
Date_BAR = Range("F19").Value - 2

End If
MsgBox Date_BAR
MsgBox Range("F19").Value

[Pol63]

je t'ai déjà dit qu'ici c'est le forum vb.net, il y a un autre forum pour vba

[sabrine1311]

Ok. J'ai trouvé le forum de VBA
Merci