Bjr,
Je voudrais savoir comment extraire le mois dans une date au format JJ/MM/AAAA
Mon Code
Dim r As Integer
Dim z As Integer
Dim mois As Integer
'creation fenetre pour saisie du N° de facture
Dim nom As String
On Error Resume Next
nom = InputBox("Tapez le Numero du mois " )
If nom = "" Then Exit Sub
' ranger les données suivant par date dans feuille tva1
r = 2
For z = 1 To 1103
mois = Sheets("Réceptions" ).Range("b" & z)
c'est ici que je dois extraire le mois
If mois = nom Then
Sheets("Réceptions" ).Rows(z).Copy Sheets("tva1" ).Range("A" & r)
r = r + 1
End If
Next z
merci pour vos reponses
