InputBox FormatDate

Bonjour,

Je ne vois pas ton code...
Sinon il faut que tu change le format : NumberFormat = "dd/mm/yy;@"

Voici mon code:

Sub Macro1()

Dim Date1 As Date
Dim Date2 As Date

'Définition des variables

Date1 = Application.InputBox("Entre la date de début du mois à traiter:" & Chr(10) & "au format JJ/MM/AAAA")
If Date1 = "0" Then Exit Sub
Date1 = Format(Date1, "dd/mm/yyyy")
Date2 = Application.InputBox("Entre la date de début du mois à traiter:" & Chr(10) & "au format JJ/MM/AAAA")
If Date2 = "0" Then Exit Sub
Date2 = Format(Date1, "dd/mm/yyyy")

'Création onglet de travail

Sheets("Table_Report_by_Country").Select
Sheets("Table_Report_by_Country").Copy After:=Sheets("Demo")
Sheets("Table_Report_by_Country (2)").Select
Sheets("Table_Report_by_Country (2)").Name = "DATA"

'Détermination dernière ligne

If Range("A3").Value = "" Then
lastli = Range("A2")
Else: lastli = Range("A2").End(xlDown).Row
End If

'Filtre sur la période concernée

Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="<" & Date1, Operator:=xlOr, _
Criteria2:=">" & Date2
Range("A2:A" & lastli).Select
Selection.EntireRow.Delete
Selection.AutoFilter

End Sub

Merci d'avance de votre aide.

Bonjour,

inputbox retourne un texte. Ce n'est peut-être pas une bonne idée de le mettre directement dans Date1. Si la date est mal interprétée par excel (c'est un pb courant en vba, il croit voir une date anglaise et inverse jour/mois) c'est trop tard, la date est erronée dans Date1.

Essaie qcq chose comme ça :

    Saisie= Application.InputBox("Entre la date de début du mois à traiter:" & Chr(10) & "au format JJ/MM/AAAA")
    If Date1 = "0" Then Exit Sub
    Date1 = datevalue(Saisie)

eric