Bonjours à tous,

Je suis en train de réaliser une macro qui me permet de créer un nouvel onglet et en fonction du jour que l'on inscrit dans une inputbox, le contenu de cet onglet change.

Pour le dernier jour de chaque mois, une certaine commande doit être effectuée. (Copier le tableau de la feuille "Initialisation")
J'ai trouvé la formule via Excel qui me permet de comparer le jour entré dans l'inputbox et le dernier du mois mais impossible de la retranscrire sur VBA!!

Via Excel:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
=IF(DAY(F1)= DAY(DATE(YEAR(F1),MONTH(F1+1),1)-1),"dernier jour de l'année", "il reste des jours en "&MONTH(F1))
Via VBA (j'ai essayé avec "LastDayInMonth" mais pas concluant...) :

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
    'Entrer la Date
    Dim dt As Date
 
    dt = Application.InputBox("Enter la date")
    dt = Format(dt, "dd/mmm/yyyy")
 
    Range("F1").Value = dt
 
    Range("F1").NumberFormat = "[$-80C]dddd d mmmm yyyy;@"
 
ActiveSheet.Name = "Test"
 
' Copie du tableau de la feuille "Initialisation" 
 
If (Day([F1]) = LastDayInMonth) Then
    Sheets("Initialisation").Select
    Range("A22:O46").Select
    Selection.Copy
    Sheets("Test").Select
    Range("A3").Select
    ActiveSheet.Paste
End If
Je fait appel a votre savoir faire pour me sortir de là!