XL 2019 Renvoi infos calendrier

Manu62

XLDnaute Impliqué
Bonjour à tous,
Je galère un peu de la confection d'un calendrier avec la récupération de données pour avoir une vision globale.

dans mon fichier, j'ai une liste de nom et de date (a droite col N&O)
un début de calendrier annuel (cote gauche)

je recherche une formule qui pourrait indiquer le nom de chaque personnes dans la bonne cellule (selon exemple).
par contre je sèche quand il y 2 noms à mettre car c'est la même date (cf C14).

auriez vous une petite idée ?

bien cordialement
 

Pièces jointes

  • renvoi calendrier.xlsx
    11.3 KB · Affichages: 3
Solution
Bonjour,
je suis pas un pro de VBA mais dans le fichier joint (.xlsm) (avec macro), j'ai mis une fonction :

VB:
Function RechercheMultiples(ValeurCherchée As Date, MatriceCherche, MatriceTrouve, Optional Seprator As String) As String
    Dim c, i As Long
    If Separator = "" Then Separator = Chr(10)
    For Each c In MatriceCherche
        i = i + 1
        If ValeurCherchée = c Then
            If RechercheMultiples = "" Then
                RechercheMultiples = MatriceTrouve(i)
            Else
                RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
            End If
        End If
    Next c
End Function

Tu peux l'utiliser dans les cellules, comme une fonction normale ...

Deadpool_CC

XLDnaute Accro
Bonjour,
je suis pas un pro de VBA mais dans le fichier joint (.xlsm) (avec macro), j'ai mis une fonction :

VB:
Function RechercheMultiples(ValeurCherchée As Date, MatriceCherche, MatriceTrouve, Optional Seprator As String) As String
    Dim c, i As Long
    If Separator = "" Then Separator = Chr(10)
    For Each c In MatriceCherche
        i = i + 1
        If ValeurCherchée = c Then
            If RechercheMultiples = "" Then
                RechercheMultiples = MatriceTrouve(i)
            Else
                RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
            End If
        End If
    Next c
End Function

Tu peux l'utiliser dans les cellules, comme une fonction normale :
=RechercheMultiples([DateRecherchée];[Plage de recherche];[PlageContenantRésultat];[Séparateur])

Je te laisse regarder ce fichier en retour
A+
 

Pièces jointes

  • renvoi calendrier.xlsm
    17.5 KB · Affichages: 7

Discussions similaires

Statistiques des forums

Discussions
312 176
Messages
2 085 965
Membres
103 069
dernier inscrit
jujulop