Bonjour à tous!

Je débute en programmation VBA et je bloque sur un probleme qui à priori ne devrait pas être trop compliqué...
Je souhaite entrer un mois de l'année (entre 01 et 12) et ensuite recopier des lignes d'une feuille (DCD) à une autre (BUF) si le mois de la date de la ligne en question (qui se trouve en premiere case) correspond au mois entré.
J#ai essayé pas mal de chose (Format, Month, ...) que j'ai trouvé sur le net, mais rien y fait, je n'arrive pas à lire uniquement le mois de ma date...

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Whichmonth As String
Dim VraieLigneBUF As Double
 
Whichmonth = InputBox("Enter Month" & vbCrLf & vbCrLf, "forum Access")
 
VraieLigneDCD = 3
VraieLigneBUF = 3
While Not (IsEmpty(wsDCD.Cells(VraieLigneDCD, 1)))
   If Month(wsDCD.Cells(VraieLigneDCD, 1)) = Whichmonth Then
        wsBUF.Range("A" & VraieLigneBUF & ":" & "P" & VraieLigneBUF).Value = wsDCD.Range("A" & VraieLigneDCD & ":" & "P" & VraieLigneDCD).Value
        VraieLigneBUF = VraieLigneBUF + 1
    End If
VraieLigneDCD = VraieLigneDCD + 1
Wend

Merci d'avance à tous ceux qui prendront le temps de me répondre!

Eric