tri auto Via USF

[Evelynetfrancois]

bonjour à toutes et à tous

je cherche à realiser via un USF contenent 2 textbox
une selection(fourchette) parmis une liste d'articles datés(00/00/00)

textbox1 = date de debut ex06/11/03)
textbox2 = date de fin ex10/11/03)
puis Ok = un tri façon filtre automatique (personnalisé)
Auriez-vous un exemple??

Ci- joint un microfichier "dépouillé" pour être le plus explicite possible
Merci de votre précieuse aide.
Bonne journée
Evelynetfrancois

 

[Robert]

Salut Evelyne et François, Salut le forum,

Vous avez oublié de joindre votre fichier alors je suis parti sur une base simple, un bouton « Filtrer » sur la feuille 1 qui ouvre un UserForm. Le bouton remet le filtre à zéro chaque fois et le UserForm utilise le filtre "supérieur à la date de début" et "inférieur à la date de fin". Si vous voulez que ce soit "supérieur ou égale" il faudra modifier le code. Adaptez aussi le code du bouton "ActiveSheet.Range("A1").Select" à la position de vos dates…

J’espère que cela vous conviendra.

À plus,

Robert

 

[Evelynetfrancois]

Private Sub CommandButton1_Click()
Dim date1 As String
Dim date2 As String
date1 = Format(TextBox1.Value, "mm/dd/yyyy")
date2 = Format(DateValue(TextBox2.Value), "mm/dd/yyyy")
ActiveCell.Select
Selection.AutoFilter Field:=4, Criteria1:=">=" & date1, Operator:=xlAnd _
, Criteria2:="<=" & date2
Unload Me

End Sub
merci beaucoup , je tournais autour du pot avec l'enregistreur sans jamais y arriver ........;
un bon coup de cerveau de ta part lol!!!


j'ai juste modifié field:= 4 pour prendre en compte la bonne colonne bien sur,
et > par >= et <= pour prendre en compte dans la fourchette les dates saisies

bonne journée et excuses pour le fichier joint
ça a bloqué plusieurs fois ,il n'a jamais voulu partir
(d'habitude pas de prob)
bonne fin de journée et encore Merci
Evelynetfrancois

 

[LaurentTBT]

Bonjour à vous 2 (ou 3).

Pour le fichier joint, c'est un problème lié au site. Parfois, il est là. J'ai pu l'ouvrir une fois. Depuis, il est invisible. Mais ce n'est pas la première fois que cela arrive. Le forum génére des pièces jointes fantômes!

Enfin, l'essentiel, c'est que le problème soit solutionné.

Bonne soirée.
Laurent.

 

[Evelynetfrancois]

il est vrai que EXCEL DOWNLOADS est extremement long aujourd'hui!!!!
pour finir voici le fichier ( si il passe! )que j'ai adapté à mon prb sur une feuille extralight
ça peut peut etre etre utile a QQ
merci Robert salut laurentTBT
Evelynetfrancois