XL 2019 Filtre avec Textbox

[duplaly]

Bonjour
Je joins mon fichier pour avoir un peu d'aide. J'aimerais pouvoir filtrer la feuille database selon la date inscrite dans le textbox1 qui est dans l'userform. Appel du userform dans la page Contrôle.
Votre aide serait appréciée!

 

[goube]

Bonjour,

Une proposition.
Cordialement.

 

[patricktoulon]

bonjour
et bien mon ami c'est pas gagné
tout ce ramdam pour une date
fait moi plaisir garde tes feuilles vire moi ces userforms et ce calendrier horrible (tant en visuel qu'en code)une vrai daube ce truc
fait moi des choses simples moins lourdes
et c'est quoi ce truc qui clignote ça sert a quoi????

non vraiment ça donne pas envie d'y mettre les mains dedans

mille excuse pour mon franc parlé 😉
si tu decide éventuellement de tout reprendre a zéro je t'aiderais a réécrire tout ca

 

[cp4]

Bonjour
Je joins mon fichier pour avoir un peu d'aide. J'aimerais pouvoir filtrer la feuille database selon la date inscrite dans le textbox1 qui est dans l'userform. Appel du userform dans la page Contrôle.
Votre aide serait appréciée!

Bonjour,

Ta colonne Date ne contient pas de dates au sens propre du mot. Tu utilises un format spécialisé, donc du texte. et plus bas dans ton code (Rng.AutoFilter) enlève le filtre. du coup à l'activation de la feuille, il n'y a plus de lignes filtrées.

edit: Bonjour PatrickToulon 😉, Goube😉. Pas vu passer, vous étiez dans l'angle mort😛

 

[patricktoulon]

re
bon !!..
j'ai viré ton calendrier men is black (grosse daube)
j'ai viré TOUT!!!!!!!!!!! test module y compris le module classe
j'ai mis mon calendrier perso que tu peux trouver ici tres tres tres facile a intégrer (en voici la preuve )

voila maintenant reste plus qu'a modifier le code autofilter de l'event du bouton rechercher

PFFFFiiiUUUUU à j'en ai vu mais là c'est le ponpon 😉

je reviens des que j'ai régler ton filtre
avec ton fichier ayant subi un lifting de chez marco le boucher
au purrée mon excel est plein de sang

tu n'a pas honte de nous imposer ça un dimanche 😛😛😛😛😛

 

[patricktoulon]

bon je l'ai tout réécrit
j'ai viré!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! TOUTTTTTTTTTTTTTTT TES MODULES Y COMPRIS LA CLASSE
au purré c'est un génocide que j'ai fait dans ton fichier
au ptain le désastre !!!!!

en gros si il y avais eu un bouton RAZ sur ce fichier le bouton ne seredresserait pas tellement j'y suis aller fort
voila il est propre
je lui ai mis mon calendrier que tu peux trouver ici

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal

Bonjour a tous voici ma dernière version de mon calendrier all excel version Une video très courte en bas dette présentation vous montre comment j'installe le calendar de mon fichier dans un autre fichier une autre video dans les mises a...

www.excel-downloads.com

je règle le problème de autofilter dans l'event du bouton recherche et je te donne un fichier
ayant subit une nucléarisation

hoh ptan!!!
PFFFFIIIUUUU!!!! 😛 😛 😛 😛 😛

 

[Jacky67]

je te donne un fichier ayant subit une nucléarisation

hoh ptan!!!
PFFFFIIIUUUU!!!! 😛 😛 😛 😛 😛

Bonjour à tous 🙂
😳😳😳
Et Voila......
😉😉😉

 

[patricktoulon]

re
bonjour jacky67 ouais c'est a peu près ça

😛 😛 😛 😛 😛 😛 😛 😛
ce fut sanglant
mais la mise a mort a été rapide
mais comme rien ne se perd
voici le fichier

 

[Jacky67]

re
bonjour jacky67 ouais c'est a peu près ça

Re...
Beau boulot pour le calendrier 🙂
Bravo!!

 

[patricktoulon]

re
oui j'ai bossé pendant quelques temps dessus quand même pour les uns et les autres
1° il est donc conçu!!! pour s'intégrer tel quel dans n'importe quelle version d'excel
2° il s'affiche en français ou en US a la demande dans l'appel (argument region)
3° selon la région bien évidement le format les emplacement de jour se modifient
4° il ne consomme presque rien en mémoire( pas de gestion d'attente) car utilisation du mode modal et hide
5° il s'auto-place pour un textbox dans un userform ou une cells dans une feuille
bref

pour l'installer
ouvrir son propre fichier et le mien (à télécharger dans les ressources)
en restant appuyé dessus dans VBE faite le glisser dans les modules de votre fichier

et voila

les méthodes d'appel sont bien détaillées dans les commentaires de présentation dans le haut du module calendar

rien a faire juste l'installer dans le fichier

c'est pas beau la vie 😉

 

[Jacky67]

re
oui j'ai bossé pendant quelques temps dessus quand même pour les uns et les autres
1° il est donc conçu!!! pour s'intégrer tel quel dans n'importe quelle version d'excel
2° il s'affiche en français ou en US a la demande dans l'appel (argument region)
3° selon la région bien évidement le format les emplacement de jour se modifient
4° il ne consomme presque rien en mémoire( pas de gestion d'attente) car utilisation du mode modal et hide
5° il s'auto-place pour un textbox dans un userform ou une cells dans une feuille
bref

pour l'installer
ouvrir son propre fichier et le mien (à télécharger dans les ressources)
en restant appuyé dessus dans VBE faite le glisser dans les modules de votre fichier

et voila

les méthodes d'appel sont bien détaillées dans les commentaires de présentation dans le haut du module calendar

rien a faire juste l'installer dans le fichier

c'est pas beau la vie 😉

RE..
Il n'y aurait pas un problème avec les N° de semaine iso ? (FR-US)

 

[patricktoulon]

re
non je pense pas

 

[Jacky67]

re
non je pense pas
Regarde la pièce jointe 1082727

RE..
US, oui
Mais FR ?

Premier de l'An 2026, Premier de l'An 2027 et puis

Premier de l'An 2026, Premier de l'An 2027 et puis. Regardez ici les jours fériés de France 2025. Sur le site les calendriers annuels et calendriers du mois sont aussi mentionnées de e.a. 2025.

www.calendrier-365.fr

 

[patricktoulon]

en effet
voici la ligne du calendrier qui met les case semaine a jour

 Controls(.Tag).Caption = DatePart("ww", DateSerial(Calendar.Cbyear.Value, Calendar.Cbmonth.ListIndex + 1, A), IIf(region = 0, vbSunday, vbMonday))

pour moi c'est juste

 

[patricktoulon]

bien vu jacky
correction car datepart(ww deconne alors evaluate
donc remplacer

Controls(.Tag).Caption = DatePart("ww", DateSerial(Calendar.Cbyear.Value, Calendar.Cbmonth.ListIndex + 1, A), IIf(region = 0, vbSunday, vbMonday))

par ça

 Controls(.Tag).Caption = Evaluate("= ISOWEEKNUM(" & CLng(DateSerial(Calendar.Cbyear.Value, Calendar.Cbmonth.ListIndex + 1, A)) & ")")