Insérer valeur comprises entre "bornes" sur autre feuille

[DjayDjay]

Bonjour à tous

J'essaie de trouver un code "VBA" afin qu'à chaque date de naissance d'un aïeul corresponde, en fonction de celle-ci la référence du Roi / Président dont les dates début et fin de "Règne/Présidence" figure dans la feuille Histoire.
Cet extrait ("bidon" d'une généalogie) comporte certaines dates dont la cellule est de couleur. J'ai volontairement paramétré cette présentation afin de ne sélectionner que les dates de naissance complètes.
Si quelqu'un a une idée
Merci d'avance
Salutations

(Fichier joint)

 

[Oranger]

Bonjour DjayDjay,

Voici ci-joint une proposition pour répondre à ton problème.

Cdlt,

Oranger

 

[DjayDjay]

Bonjour,
Remarquable .. tout à fait ce que je souhaitais
Mes plus vifs remerciements
Je vais pouvoir adapter ta macro pour les dates de mariage et les dates de décès (après vérification de la liste des Rois / présidents)
Salutations

 

[job75]

Bonsoir DjayDjay, Oranger,

Cette fonction convertit toute date avant ou après 1900 :

Function TouteDate(r As Range)
Dim i&
ReDim a(1 To r.Count)
For i = 1 To UBound(a)
    If IsDate(r(i)) Then a(i) = CDate(r(i)) Else a(i) = [#N/A]
Next
TouteDate = a 'vecteur ligne
End Function

Elle est utilisée dans cette formule en F2 de la 1ère feuille du fichier joint :

=SIERREUR(INDEX(Histoire!C$1:C$55;EQUIV(TouteDate(E2);TouteDate(Histoire!A$1:A$55)));"")

A+