aide pour simplifier vba

Bonjour le forum

J’ai créé un champ mois pour pouvoir faire un graph par mois.
J’ai donc créé un champ qui reprend le mois d'une date pour pouvoir les mettre dans l'ordre j'ai du faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    If Month(date_d_achat) = "1" Then
    mois = "01"
    End If
    If Month(date_d_achat) = "2" Then
    mois = "02"
    End If
    If Month(date_d_achat) = "3" Then
    mois = "03"
    End If
    If Month(date_d_achat) = "4" Then
    mois = "04"
    End If
    If Month(date_d_achat) = "5" Then
    mois = "05"
    End If
    If Month(date_d_achat) = "6" Then
    mois = "06"
    End If
    If Month(date_d_achat) = "7" Then
    mois = "07"
    End If
    If Month(date_d_achat) = "8" Then
    mois = "08"
    End If
    If Month(date_d_achat) = "9" Then
    mois = "09"
    End If
    If Month(date_d_achat) = "10" Then
    mois = "10"
    End If
    If Month(date_d_achat) = "11" Then
    mois = "11"
    End If
    If Month(date_d_achat) = "12" Then
    mois = "12"
    End If

Pour éviter que les mois sur le graph soient dans le désordre.
Est-il possible de le simplifier?

merci d'avance @+ David

Bonjour

En une ligne

Code:

mois = Format(Month(date_d_achat,"00")

Philippe

je me permets de rattraper le petit oubli de Philippe (que je salue au passage :coucou:):

Code:

mois = Format(Month(date_d_achat),"00")

:oops: manquait une parenthèse :merci: