Discussion :

[Jerez62]

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 :

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

' etc....jusqu'à decembre

merci d'avance

[ouskel'n'or]

Code :

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

1
2
3
LaDate = "10/10/2006"
    Année = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
Msgbox Année(Month(LaDate))

J'avais ça quelque part

[Jerez62]

Un énorme merci à toi ouskel'n'or, tu m'as vraiment débloqué je vais pouvoir avancé maintenant, encore merci