Trouver le dernier jeudi et mardi avant une date saisie en VBA

**sabrine1311** · 29/07/2014, 16h30

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

**had4789** · 29/07/2014, 16h59

Bonjour,

Quand tu écris du code utilise le bouton # c'est plus simple à lire.

Ensuite je ne comprend pas ta question.

Tu veux si la date est un jeudi ou un mercredi avoir la date du mardi précédent.

Tu veux si la date n'est pas un mercredi ou un jeudi avoir la date du jeudi précédent.

F19 te sert à déclaré ta date d'entrée?

Est-ce que je t'ai bien compris?

Où veux-tu afin le résultat?

A quoi te sert ce code après?

Cordialement

**sabrine1311** · 29/07/2014, 17h17

Bonjour,
Merci pour votre réponse. Je dois entrer "une date quelconque" à l'aide d'un formulaire et il faut trouver le dernier mardi ou jeudi avant cette date pour envoyer une invitation.
exemple ( si la date entrée est 29/07/2014, la fonction envoie le 24/07/2014 dans ce cas c'est un jeudi.)
J'ai inseré une formule qui convertit la date entrée en un nombre ( dans la cellule G19) puis j'ai utilisé ces nombres pour trouver le derneir jeudi ou mardi avant cette date entrée. ( pour trouver le dernier jeudi ou mardi il faut décrementer -x selon la date entrée : si c'est un lundi c'est à dire G19=2 DONC POUR TROUVER LE DERNIER JEUDI OU MARDI AVANT CETET DATE FAUT DECREMENTER DE 4JOURS cela tombe un jeudi car c'est le plus proche que mardi. Voilà j'espere que c'ela est assez clair

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

F19 contient la date entrée

**Philippe Tulliez** · 29/07/2014, 17h21

Bonjour,
Tu dois donc trouver le mardi ou le jeudi qui précède une date donnée.
Tu peux facilement faire cela sans un code VBA (cDate est la cellule qui contient la date du jour en question, +1 pour lundi, +2 pour mardi, etc.); Attention que si cette date est un mardi, il donnera la même date. Il y a donc lieu de faire un test)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=cDate-JOURSEM(cDate-1)+2

**had4789** · 30/07/2014, 10h05

Je rejoins Philippe

J'ai testé son code en modifiant la valeur numérique dans la parenthèse pour obtenir ça.

Tu rentres ta date dans la case G 13 tu as le résultat en H 13.

Classeur1.xlsx

Invité · 30/07/2014, 11h19

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Mardi = JeudiEtMardi("28/07/2014", False) ''False le mardi
Jeudi = JeudiEtMardi("28/07/2014", True)  'True le jeudi
End Sub
Function JeudiEtMardi(D As Date, Jeudi As Boolean) As Date
Dim J As Integer
J = Weekday(D) - 2 'je recherche le lundi de la semaine
If Jeudi = False Then JeudiEtMardi = D - J + 1 Else JeudiEtMardi = D - J + 3 'je retourne le mardi ou le jeudi de la semaine
If DateDiff("d", D, JeudiEtMardi) > 0 Then JeudiEtMardi = JeudiEtMardi - 7 si la date retournée est supérieure a la date passé en paramètre, je retire 7 jours
End Function

**Philippe Tulliez** · 30/07/2014, 12h14

Bonjour,
Pour enrichir la répone de Robert que je salue au passage, et si on veut vraiment passer par du VBA là où Excel offre cela d'une façon native.
Une fonction nommée PreviousDay qui renvoie le jour qui précède une date en passant comme argument le jour souhaité
Si l'argument optionnel WeekDayNum n'est pas utilisé, c'est le mardi qui précède la date qui est renvoyé.
Si la date de référence est égal au jour précédent demandé c'est la jour de la semaine préécdente qui est renvoyé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function PreviousDay(ThisDate As Date, Optional WeekDayNum As Byte = vbTuesday) As Date
 ' ThisDate (Date)   : Date de référence
 ' WeekDayNum (byte) : (1 = Dimanche, 2 = Lundi, etc.
 '            (On peut aussi utiliser les constantes de Date vbSumday, vbMonday, etc.
 PreviousDay = ThisDate - WeekDay(ThisDate - WeekDayNum + 1, vbMonday)
End Function

Une procédure test en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub TestJourPrecedent()
 MsgBox Format(PreviousDay(Date, vbSunday), "ddd dd/mm") ' Le dimanche qui précède Date
 MsgBox Format(PreviousDay(Date), "ddd dd/mm") ' Le mardi qui précède Date
End Sub

La fonction utilisée comme fonction personnalisée dans excel (où D15 contient la date de référence et $F$13 le numéro du dernier jour de la semaine qui précède D15 (1 = Dimanche, 2 Lundi, Etc.)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part