Discussion :

[Kass0147]

Bonjour à tous, j'ai un soucis.

Je dois filtrer des données entre deux dates.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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