Discussion :

[NicolasMO]

J'ai un nouveau problème dans mon application.

0 l'ouverture d'une userform, je souhaite qu'un intitulé affiche le mois en cours au format sept.-07. En dessous, le mois suivant, celui qui n'est pas encore commencé mais qui sera bientôt là: oct.-07.
Dans l'aide, j'ai trouvé une formule MOIS.DECALER, qui pourrait faire l'affaire bien qu'elle contienne (je crois) une information supplémentaire, le jour du mois.

Ma worksheet ne veut pas entendre parler de MOIS.DECALER, elle ne le comprend pas.
Pourquoi? Y'a-t-il un autre moyen d'afficher le mois prochain?
Merci.
nicolas

[tirex28]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Userform_Initialize()
    Dim M As Integer, Y As Integer
    Label1.Caption = Format(Now, "mmm") & ".-" & Format(Now, "yy")
    M = Month(Now)
    Y = Year(Now)
    If M = 12 Then
        M = 0
        Y = Y + 1
    End If
    Label2.Caption = Format(DateSerial(Y, M + 1, 1), "mmm") & _
        ".-" & Format(Now, "yy")
End Sub

Pour ce qui concerne Mois.Decaler, c'est une fonction de l'utilitaire d'analyse. Il faut donc l'installer via Outils>Macros complémentaires.

Pour t'en passer tu peux utiliser une formule dans ce style:

Code :

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

=DATE(SI(MOIS(E13)<12;ANNEE(E13);ANNEE(E13)+1);SI(MOIS(E13)<12;MOIS(E13)+1;1);1)

Avec E13=AUJOURDHUI(), cela te renvoie la date du 1er jour du mois suivant, soit actuellement 1/10/2007.

Cordialement,

Tirex28/

[random]

Code :

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

1
2
 
format(dateserial(year(date()),month(date())+1,12),"mmm.-yy.")

[tirex28]

Bonjour,

Y a pas a dire c'est plus court..

A+

Tirex28/

[ouskel'n'or]

Il existe aussi une fonction faite pour ça : DateAdd

Code :

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

LaDateDansUnMois = Format(DateAdd("m", 1, Now), "dd/mm/yyyy")

[NicolasMO]

J'ai utilisé le code de tirex28. Ca marche impec!
Je vais essayer les autres juste pour le fun.
Merci