XL 2019 Renvoi infos calendrier

  • Initiateur de la discussion Initiateur de la discussion Manu62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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 ...
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
542
Deleted member 453598
D
Réponses
0
Affichages
496
Réponses
2
Affichages
347
Réponses
0
Affichages
373
Réponses
12
Affichages
1 K
Retour