Mettre le mois m-1 dans un textbox

Bonjour,

je voudrais savoir comment on met le mois m-1 dans un textbox (codes) ?

Merci

Bonne soirée

Bonsoir

Vague comme demande

Que contient m, un nombre de 1 à 12 ou Janvier, Février ..... ?

Que faire si m=1 ( ou Janvier) il faut retourner 12 (ou Décembre) ?

Salut,

Si tu désires uniquement avoir le numéro du mois, tu peux utiliser le code ci-dessous :

Private Sub UserForm_Initialize()

If Month(Now) = 1 Then
    TextBox1 = 12
Else
    TextBox1 = Month(Now) - 1
End If

End Sub

Sinon soit plus précis dans ta demande.

Cordialement

EDIT : Salut Banzai

Merci pour vos réponses

il me le faut en lettre svp

Bonsoir

Bonsoir Yvouille (moi pas rapide)

Ma contribution, tu prendras ce que tu veux ou tu jettes

Voici une autre proposition pour les 3 premiers mois de l'année, facile à compléter.

Private Sub UserForm_Initialize()
Dim Mois_actuel As Integer, Mois_lettres As String

    Mois_actuel = Month(Now)
    Select Case Mois_actuel
        Case Is = 1
        Mois_lettres = "Décembre"
        Case Is = 2
        Mois_lettres = "Janvier"
        Case Is = 3
        Mois_lettres = "Février"

    End Select

    TextBox1 = Mois_lettres

End Sub

Amicalement.

Bonjour tous,

Moi encore moins...rapide

Dim D As Date
    D = "11/1/2013"
    TextBox1.Value = D - Month(1)

A+

Banzai64

la première solution est la plus adaptée à ma demande mais je voudrais en lettre

merci

Bonsoir

jonabay18330 a écrit :

Banzai64

Ça c'est moi

jonabay18330 a écrit :

la première solution est la plus adaptée à ma demande mais je voudrais en lettre

Ça cela s'adresse à Yvouille

Donc tu veux la solution d'Yvouille en lettre ?

Ne quittes pas je pense qu'il va te répondre

Re,

    TextBox1.Value = Format(D - Month(1),"dd mmm yyyy")

A+

Bonsoir

Une autre solution

Me.TextBox1 = MonthName(IIf(Month(Date) - 1 < 1, 12, Month(Date) - 1))