XL 2016 affichage cellules selon conditions et d'affilée

cyrilv77

XLDnaute Nouveau
Bonjour,
Dans un fichier j'ai un onglet nommé base qui en lignes a plusieurs noms de stagiaires, qui sont disponibles sur différents stages nommés de 1 à 30 (colonnes).
Dans un onglet résultat attendu, je souhaite avoir en lignes mes numéros de stage, et que dans les colonnes s'affichent au fur et à mesure dans les cellules les noms de ceux qui sont disponibles sur les stages en questions,
Vous trouverez en PJ un fichier avec l'onglet base et le résultat attendu.
Je ne sais pas vraiment quelle fonction utilisée, ni comment l'écrire.
Merci de votre aide.
Cyril
 

Pièces jointes

  • exemple attendu.xlsx
    11.5 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Cytil,
Un essai en PJ avec une macro évènementielle qui se déclenche automatiquement lorsqu'on sélectionne la feuille "résultat attendu" avec :
VB:
Sub Worksheet_Activate()
    Dim Fbasen, L%, Col%, Col2%, Lig%
    Application.ScreenUpdating = False
    [D3:M30].ClearContents
    Set Fbase = Sheets("Base")
    For L = 1 To 30 ' N° stage
        Col = L + 3
        Col2 = 4
        Lig = 4
        While Fbase.Cells(Lig, "C") <> ""
            If Fbase.Cells(Lig, Col) = "x" Then
                Cells(L + 2, Col2) = Fbase.Cells(Lig, "C")
                Col2 = Col2 + 1
            End If
            Lig = Lig + 1
        Wend
    Next L
    Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • exemple attendu (1).xlsm
    20 KB · Affichages: 6

Discussions similaires

Réponses
4
Affichages
362

Statistiques des forums

Discussions
312 895
Messages
2 093 383
Membres
105 714
dernier inscrit
POKITO