Salut le forum, je voudrais savoir comment mettre la date qui provient d'un calendrier dans une feuille spécifique à la date(ex= 25/04/2006 sera mit dans la feuille AVRIL). Un admin m'a conseillé la fonction month(date) mais celle-ci ne me sert pas pour ce que je désire faire ou je ne sais pas l'adapter pour mon utilisation (ce qui ne m'étonnerais pas ). Peut on faire un mid sur une date ?? Voilà ce que je veux faire en gros :
' etc....jusqu'à decembre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Text1.Value = Format(Calendar.Value, dd / mm / aa) If Mid(dd / mm / aa, 4, 2) = 1 Then Sheets("Janvier").Range("c65536").End(xlUp).Offset(1, 0) = Calendrier.Value End If If Mid(dd / mm / aa, 4, 2) = 2 Then Sheets("Fevrier").Range("c65536").End(xlUp).Offset(1, 0) = Calendrier.Value End If If Mid(dd / mm / aa, 4, 2) = 3 Then Sheets("Mars").Range("c65536").End(xlUp).Offset(1, 0) = Calendrier.Value End If
merci d'avance
Partager