Extraire le mois d'une date

Question

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: 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...

frangy · Answer

La prochaine fois, pense à joindre un classeur exemple, cela évite aux intervenants d’avoir à le créer pour effectuer les tests. De mon coté, tout baigne ! Essaie de voir ce qui diffère avec l’exemple joint. A+...