aide pour simplifier vba

**David1259** · 05/01/2009, 09h16

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 :

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

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