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

DjayDjay · 21 Décembre 2018

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 · 22 Décembre 2018

Bonjour DjayDjay,

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

Cdlt,

Oranger

DjayDjay · 22 Décembre 2018

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 · 22 Décembre 2018

Bonsoir DjayDjay, Oranger,

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

Code:

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 :

Code:

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

A+

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

DjayDjay

XLDnaute Nouveau

Pièces jointes

Oranger

XLDnaute Occasionnel

Pièces jointes

DjayDjay

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes