Récuper la valeur de plisieurs céllules se trouvant dans une liste

[Geely]

Bonjour le forum,

Je possède une liste de noms de patients et un onglet par patient et souhaite récupérer une date se trouvant dans la liste pour la mettre dans chaque dossier (onglet patient).

Geely

 

[vgendron]

Re : Récuper la valeur de plisieurs céllules se trouvant dans une liste

Bonjour Geely,

Avec une simple formule

Dans ton onglet Pierre par exemple, dans la cellule E6
=INDEX(LDate;EQUIV(D3;LNom;0);1)

avec LDate la zone nommée range E8:E22 de la feuille Liste
avec LNom la zone nommée range A8:A22 de la feuille Liste

 

[Geely]

Re : Récuper la valeur de plisieurs céllules se trouvant dans une liste

Bonjour vgendron

Impeccable, merci. C'est en fait plus simple qu'une solution avec macor

Geely

 

[DoubleZero]

Re : Récuper la valeur de plisieurs céllules se trouvant dans une liste

Bonjour, Geely, vgendron, le Forum,

Une autre solution, par macro.

Option Explicit
Sub MAJ_dates()
    Dim o As Worksheet
    For Each o In Worksheets
        If o.Name <> "Liste" Then
            With o.Range("E6")
                .FormulaR1C1 = "=VLOOKUP(R[-3]C[-1],Liste!R[1]C[-4]:R[16]C,5,0)"
                .NumberFormat = "ddd dd mm yyyy"
            End With
        End If
    Next
End Sub

A bientôt

 

[Geely]

Re : Récuper la valeur de plisieurs céllules se trouvant dans une liste

Bonjour Doublezero

Super ta solution avec la macro, c'est peut être plus efficace si l'on a de longues listes de noms.

Geely