Comment effectuer une recherche sur x tableaux ??

[philoche63]

Bonjour les amis,
C'est mon premier message dans votre forum !
voilà j'ai un classeur qui gère le championnat de rugby (top14)
J'ai une feuille pour chacune des équipes où je trouve le nom du joueur, sa nationalité, son poste, sa date de naissance, son poids et sa taille.
Il y a t il un moyen pour effectuer une recherche unique sur l'ensemble de ces tableaux pour indiquer la liste des joueurs qui ont une date anniversaire dans les 10 prochains jours ?
Un grand merci par avance pour votre aide !
Bonne journée
Cordialement,
Philoche

 

[phlaurent55]

Re : Comment effectuer une recherche sur x tableaux ??

Bonjour Philoche, et bienvenue sur le forum

Comment effectuer une recherche sur X tableaux ??

Si tu pouvais joindre un fichier représentatif, ça nous permettrais de voir la disposition exacte des tableaux, nous éviterais de tout construire en partant de rien et permettrait de donner la solution la mieux adaptée

Dans ta prochaine réponse, clique sur "Aller en mode avancé" et ensuite, un peu plus bas dans la page, "Gérer les pièces jointes"

à+
Philippe

 

[philoche63]

Re : Comment effectuer une recherche sur x tableaux ??

Bonjour,
Je vous joins une partie de mon projet.
Encore merci de votre aide.
Passez une excellente journée.
Philoche

 

[phlaurent55]

Re : Comment effectuer une recherche sur x tableaux ??

Re-bonjour

Il y a t il un moyen pour effectuer une recherche unique sur l'ensemble de ces tableaux pour indiquer la liste des joueurs qui ont une date anniversaire dans les 10 prochains jours ?

Voir fichier joint, il est nécessaire d'activer les macros à l'ouverture du fichier

à+
Philippe

 

[philoche63]

Re : Comment effectuer une recherche sur x tableaux ??

Bonsoir Philippe,
Un grand merci pour ton aide !
C'est exactement ce que je recherchai !
bon week end
cordialement,
Philoche

 

[phlaurent55]

Re : Comment effectuer une recherche sur x tableaux ??

Re-bonjour,

je reviens avec une petite modif car dans mon exemple précédent, les dates d'anniversaire qui s'affichent ne tiennent pas compte des anniversaire à fêter le jour même (les dates trouvées commencent à partir du lendemain)

il y a lieu d'apporter une petite modif pour y remédier

remplace:
If jour2000 - date2000 > 0 And jour2000 - date2000 < 10 Then

par:
If jour2000 - date2000 > 0 And jour2000 - date2000 < 11 Then


à+
Philippe

 

[phlaurent55]

Re : Comment effectuer une recherche sur x tableaux ??

Re,

avec une modif concernant l'apparition d'un message si aucun anniversaire dans les 10 jours

+ Triage des dates trouvées dans un ordre chronologique

à+
Philippe

 

[philoche63]

Re : Comment effectuer une recherche sur x tableaux ??

Bonsoir Philippe,
Encore un grand merci pour ton aide !
J'ai pas mal appris a la lecture de ta macro !
Bonne soirée
Philoche

 

[philoche63]

Re : Comment effectuer une recherche sur x tableaux ??

Bonsoir,
Encore un petit souci à vous soumettre :
J'ai 14 onglets (autant que d'équipes) mais je me rend compte sous l'editeur VBA que le numéro des feuilles ne se suit pas !
Comment adapter la macro pour que celle ci ne boucle que sur les feuilles d'équipe ?
Un grand merci pour votre aide et de votre patience !
bonne soirée
Philoche

 

[phlaurent55]

Re : Comment effectuer une recherche sur x tableaux ??

Re bonjour,

il m'est impossible de voir ( à partir de cette image ) quelles sont les feuilles à prendre en compte
la solution passe par la réorganisation des onglets, le premier onglet devant rester la feuille "Menu"
et sera suivi des 14 onglets (un par club )

si le classeur contient d'autres feuilles il faut les mettre tous vers la droite

il suffira alors de remplacer:
For i = 2 To Sheets.Count

par:
For i = 2 To 15

à+
Philippe

 

[philoche63]

Re : Comment effectuer une recherche sur x tableaux ??

Bonjour,
Merci de ta réponse !
S'il suffit de regrouper tous les onglets au départ, c'est deja fait depuis le départ mais quand j'ai vu hier la liste des onglets sous l'éditeur, j'ai pensé que c'etait le no avec le mot feuil qu'il fallait tenir compte !
merci encore de ton aide.
Amicalement,
Philoche