XL 2021 Reporter sous forme de liste dans une cellule les donnés contenues dans plusieurs cellules et cela sous condition

[thioff]

Bonjour à tous

Je suis sur Microsoft Office LTSC Pro plus 2021

Je voudrais faire un petit tableau récapitulatif de mes collèques en déplacement.
J'ai en première page un tableau où chacun marquera chaque semaine le nom de la destination de son déplacement et remplira "OUI" s'il est présent
En deuxième page je souhaiterais concatainer les infos de la première page par semaine.
- Combien de personnes en déplacement cette semaine (colonne C)
- En colonne D la liste des lieux de mission, séparéses par des virgules, si elles sont renseignées en feuille 1 (avec comme condition le OUI dessous).

Je vous joins le tavbleau que je voudrais obtenir.

Merci d'avance

Thioff

 

[sylvanu]

Bonjour Thuioff,
Un essai en PJ avec la macro évènementielle :

Sub Worksheet_Activate()
    Dim T, L%, C%, IndexCW%, Chaine
    Application.ScreenUpdating = False
    T = Sheets("Feuil1").[B6].CurrentRegion
    [C6:D57].ClearContents
    For L = 6 To 57
        IndexCW = Val(Mid(Cells(L, "B"), 3)) + 2
        If T(UBound(T), IndexCW) <> 0 Then Cells(L, "C") = T(UBound(T), IndexCW)
        Chaine = ""
        For C = 3 To UBound(T) Step 2
            If T(C, IndexCW) = "OUI" Then Chaine = Chaine & ", " & T(C - 1, IndexCW)
        Next C
        If Chaine <> 0 Then Cells(L, "D") = Mid(Chaine, 2)
    Next L
End Sub

La macro s'exécute automatiquement sur sélection de la Feuil2.

 

[thioff]

Salut Sylvanu

juste magique
je cours à la pharmacie pour faire le stock d'aspirine, mdr
Déjà que les formules c'est compliqué pour moi ... alors les macros ..

Merci en tout cas, le résultat est top !
une bonne journée à toi
thioff