Faire concorder des dates uniquement par les jours et les mois

[Magic_Doctor]

Bonsoir,

J'ai une liste de dates correspondant aux différents jours d'un mois donné.
À côté de cette liste j'ai une liste de prénoms avec leurs anniversaires.
Je voudrais récupérer, quand un ou plusieurs anniversaires doivent être fêtés dans la mois, les prénoms correspondants.

Merci pour toute réponse.

 

[bqtr]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour Magic_Doctor,

Essaye ceci :

Sub RechercheAniv()
Dim Tablo, k As Integer, y As Integer
With Sheets("Calendario")
  Tablo = .Range("J7:K" & .Range("J65536").End(xlUp).Row)
  .Range("G6:G36") = ""
  For k = 1 To UBound(Tablo)
    For y = 6 To 36
      If Format(.Cells(y, 2), "dd/mm") = Format(Tablo(k, 2), "dd/mm") Then .Cells(y, 7) = Tablo(k, 1)
    Next
  Next
End With
End Sub

Bonne journée

A+

 

[Magic_Doctor]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour bqtr,

J'ai essayé ta macro, malheureusement sans résultat (absolument rien n'apparaît).

Je pense qu'avec une formule matricielle ou un Sommeproduit cela devrait se résoudre.

Bonne journée.

 

[Paritec]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour Magic doctor,
la macro de bqtr marche trés bien
voilà ton fichier avec la macro dedans cliques sur rechercher et tu verras
a+
Papou 😉

 

[hoerwind]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour,

Deux propositions de formules matricielles en pièce jointe.

 

[Tibo]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour tout le monde,

Une autre solution avec une autre formule matricielle :

=SI(SOMME((TEXTE($K$7:$K$38;"jjmm")=TEXTE(B6;"jjmm"))*1)=0;"";INDEX(
$J$7:$J$38;EQUIV(TEXTE(B6;"jjmm");TEXTE($K$7:$K$38;"jjmm");0)))

Formule matricielle à valider par CTRL + MAJ + ENTREE

@+

 

[piga25]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour Majic Doctor et les autres

Ci joint ton fichier avec la macro de bqtr dedans. En changeant de mois cela effectue automatiquement la recherche.

 

[Magic_Doctor]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour,

Merci à tous pour vos solutions.
Je m'étais planté en recopiant la macro de bqtr qui marche effectivement très bien. Autant pour moi !

 

[ChTi160]

Re : Faire concorder des dates uniquement par les jours et les mois

Salut Magic_Doctor

Bonjour Le Fil ,Le Forum

Bien que le temps me manque Lol
en pièce jointe une autre version

J'ai modifié le format de la plage "J6:K6"
J'ai fait en sort que si plusieurs anniversaires le même jour , ils soient affichés
j'ai fait en sort qu'a l'ouverture du Fichier , le calendrier se mette à jour (mois en cours)
le Fichier :http://cjoint.com/?ijoTSZWBGH
Bonne fin de journée

 

[Magic_Doctor]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour ChTi160,

Merci de votre intérêt pour ce problème.
Votre solution est très pratique, d'autant plus qu'elle gère différents anniversaires qui tomberaient le même jour.
Je pense qu'après quelques modifications pour la feuille définitive, je vais l'adopter.

Très bonne journée.

 

[jeanpierre]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour Magic Doctor, ChTi160 (jean-marie)

Fonctionne pas sous 2000; débeugue... sur : ActiveSheet.Paste,

tout à l'heure, c'était sur une autre ligne....

Problème des versions...

Bonne fin d'après-midi.

Jean-Pierre

Edit : De plus, sous 2000, je suis obligé de sortir par Crtl Alt Suppr sur tous les fichiers déposés sur ce fil... ????

 

[Magic_Doctor]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonsoir jeanpierre, ChTi160 et ceux qui liront,

Avec ma version d'Excel 2007 (vous savez, celle où en permanence on cherche TOUT...) la macro de ChTi160 marche ma foi très bien. Peut-être se plantera-elle inopinément... Mais pour l'instant, avec les quelques essais que j'ai pu faire, je n'ai eu aucun problème.

Quoi qu'il en soit, cette macro qui est donc imparfaite, puisque ne fonctionnant pas toujours bien avec certaines versions d'Excel, mériterait d'être peaufinée, car, et j'en suis sûr, elle pourrait servir avantageusement dans bien des cas. Personnellement, vu mon niveau, j'en suis malheureusement incapable.

Si d'aventure des plus "costauds" que moi en ce domaine veulent relever le défi...

En tout cas, bonne soirée, ou plutôt bonne nuit à tous.

 

[Magic_Doctor]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour,

J'ai fait quelques modifications :

1/ simplification du FC des noms des événements et suppression de la colonne qui les gérait
2/ les cellules sont nommées, de telle sorte qu'il ne faut pas à chaque fois revoir la macro si l'on modifie la feuille (rajout/suppression de ligne(s) et/ou de colonne(s)).

Si jeanpierre pouvait me dire si ça continue à planter sur sa version d'Excel.

Bonne journée.

 

[jeanpierre]

Re : Faire concorder des dates uniquement par les jours et les mois

Bonjour, bonsoir à tous,

Toujours pareil, et quelle que soit la décision, déboguage ou fin, tout se bloque et écran blanc sur l'éditeur.

J'ai enregistré le fichier pour étudier les macros, mais comme je ne sais pas où ça foire.... vais faire ça à tête reposée.

Bonne fin d'après-midi.

Jean-Pierre