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

thioff · 18 Septembre 2024

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 · 18 Septembre 2024

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

VB:

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 · 18 Septembre 2024

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

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

thioff

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

thioff

XLDnaute Nouveau

Discussions similaires