Input Box avec date

Version imprimable

15/03/2019, 14h35
Kass0147

Input Box avec date
Bonjour à tous, j'ai un soucis.

Je dois filtrer des données entre deux dates.
Code:

1 2 3 4 StartDate = DateValue(resultat) EndDate = DateValue(resultat2) Range("A1:AE69336").AutoFilter Field:=1, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
Je veux créer une boite de dialogue où l'utilisateur entre une date du type "##/##/####"
cette date sera entrée dans la valeur "resultat"

Code:

resultat = InputBox("Entrez la date", "Date de d?but", "jj/mm/yyyy")

Si ce qu'il entre est nul ou différent du format , un message s'affiche et il doit retaper la date avec le bon format.

Une fois que la date de début a été inscrite et que l'on appuie sur le bouton ok, je réalise la même chose pour la date de fin. En n'oubliant pas l'option annuler pour quitter la boite de dialogue.

Merci d'avance pour votre aide!
15/03/2019, 14h44
MarcelG

Bonjour Kass et bienvenu sur le Forum,

Personnellement, je réaliserais un formulaire simple comportant 2 textbox et un bouton de validation.
L'activation de celui-ci entraînerait la validation des dates (propriété IsDate) puis le filtre.

2 tutoriels de l'espace de Silkyroad, consacrés aux formulaires, peuvent te montrer la voie.

quelque chose comme ca peut etre
tu a droit a 3 essai pour le debut et 3 essais pour la fin
si les 3 essais pour debut est non concluant ca stope tout
si les 3 essais pour la fin est non concluant mais que le debut est bon tu aura que le debut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
    date_debut = input_Date("debut", 3)
    date_fin = input_Date("fin", 3)
    MsgBox "date de debut " & date_debut & " date de fin :" & date_fin
End Sub
Function input_Date(arg, delay, Optional x As Long) As Variant
    If x < delay Then
        madate = InputBox("Entrez une date de " & arg, "Demande de date", "xx/xx/xxxx")
        If madate = "" Then Exit Function
        If Not IsDate(madate) Then
            x = x + 1: MsgBox "entrez une date valide": input_Date arg, delay, x
        Else
            input_Date = DateSerial(Val(Right(madate, 4)), Val(Mid(madate, 4, 2)), Val(Left(madate, 2)))
        End If
    Else
        MsgBox "vous avez eu 3 essais": End
    End If
End Function

certainement a revoir un peu j'ai fait ca vite fait