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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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