Discussion :

[lcoulon]

Bonjour,


Je cherche a créer 2 fonctions VBA qui me permettrait :

- Obtenir la date de début ET fin de mois à partir de 2 cellules préremplies. ( cellules vertes dans le fichier exemple ci joint )
- Obtenir la date de début ET fin de mois à partir de la date actuelle.

Je suis parvenu à le faire par le biais de formules Excel, mais pas par VBA.
Pourriez vous m'indiquer le code VBA correspondant s'il vous plait ?

Cordialement,

[Franc]

Salut, voici 2 fonctions qui font le job, j'ai aussi mis une petite macro que tu peux tester sur ta feuille.
Tu devras peut-être adapter le résultat en sortie en fonction de tes besoins.

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
Function DatesFromCells(monthNumber As Long, yearNumber As Long) As String
    Dim startOfMonth As Date
    Dim endOfMonth As Date
 
    ' Construire la date de début du mois en utilisant le numéro du mois et l'année
    startOfMonth = DateSerial(yearNumber, monthNumber, 1)
 
    ' Construire la date de fin du mois en ajoutant 1 mois à la date de début du mois,
    ' puis en soustrayant 1 jour pour obtenir la dernière date du mois en cours
    endOfMonth = DateSerial(yearNumber, monthNumber + 1, 0)
 
    ' Formater et renvoyer les dates de début et de fin du mois sous forme de texte
    DatesFromCells = "Début du mois: " & Format(startOfMonth, "dd/mm/yyyy") & vbCrLf & _
                     "Fin du mois: " & Format(endOfMonth, "dd/mm/yyyy")
End Function

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
Function DatesFromToday() As String
    Dim currentDate As Date
    Dim startOfMonth As Date
    Dim endOfMonth As Date
 
    ' Obtenir la date actuelle
    currentDate = Date
 
    ' Construire la date de début du mois actuel en utilisant le mois et l'année actuels
    startOfMonth = DateSerial(Year(currentDate), Month(currentDate), 1)
 
    ' Construire la date de fin du mois actuel en ajoutant 1 mois à la date de début du mois,
    ' puis en soustrayant 1 jour pour obtenir la dernière date du mois en cours
    endOfMonth = DateSerial(Year(currentDate), Month(currentDate) + 1, 0)
 
    ' Formater et renvoyer les dates de début et de fin du mois sous forme de texte
    DatesFromToday = "Début du mois en cours: " & Format(startOfMonth, "dd/mm/yyyy") & vbCrLf & _
                     "Fin du mois en cours: " & Format(endOfMonth, "dd/mm/yyyy")
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim mois As Long
Dim annee As Long
 
mois = Range("B6").Value
annee = Range("C6").Value
Range("E5").Value = DatesFromCells(mois, annee)
Range("E8").Value = DatesFromToday
 
End Sub

[lcoulon]

Je vous remercie beaucoup, c'est parfaitement ce que je recherchais.

Merci d'avoir commenté le code, c'est très ludique.