Extraire données cochées d'un tableau via macro

Question

Je souhaite extraire et classer les données renseignées d'un tableau. Le tableau s'articule comme suit : en colonne A et B : une action et son détail (ex : manger / pizza) à partir de la colonne C : des personnes qui vont réaliser ces actions Un "X" vient matérialiser le fait que l'action est réalisée. L'idée est donc de réaliser une macro permettant d'extraire les actions par personne les unes à la suite des autres. &lt;=&gt; pour une colonne personne, si valeur ="X" alors afficher l'action. Sinon ne pas afficher. Par exemple (cf fichier pj) : Sur les 8 actions saisies, la colonne de KEVIN a un "X" en face de 3 actions =&gt; manger/pizza - boire/vodka - payer/cb. L'objectif est d'obtenir les 3 lignes d'actions de KEVIN (sans faire apparaitre celles non cochées). Les contraintes que je souhaite dans le tableau de résultat : 1ère colonne : le nom des personnes 2ème colonne : l'action 3ème colonne : le détail de l'action un couple action/détail = une ligne les actions se suivent dans l'ordre du cochage un espace sépare chaque groupe d'actions par personne le tableau de résultat est dans un nouvel onglet avec un bouton de lancement si possible : la possibilité d'agrandir le tableau initial où sont saisies les données c'est à dire : ajouter des acteurs en colonne et des actions en ligne sans avoir à modifier la macro. Ci-joint un fichier d'exemple avec le tableau à renseigner et le résultat attendu. J'ai bien tenté le coup sans macro à coup de INDEX, PETITE.VALEUR, INDIRECT et LIGNE(S) : ça fonctionne mais ça explose le temps de calcul dès qu'on manipule un peu trop de données. Merci d'avance...

Marc L · Answer

Le plus simple est d'utiliser un filtre avancé permettant même parfois de s'affranchir d'un code ...

AMIR · Answer

Je n'ai pas bien compris mais regarder ça avant MERCI...

AMIR · Answer

Regarder ça si te convient dit moi parceque est tres lente et je peux trouver une solution pour le rendre rapide merci...

AMIR · Answer

J'AI FAIT LE PREMIER RAPIDEMENT J'etait tres ocupé alors regarder ça elle s'aproche de ce que vous vouler non ...

Marc L · Answer

Pour une simple copie de cellules, au delà d'une cinquantaine de lignes de code, le problème n'a certainement pas été compris !

Qui plus est avant de livrer une « solution », AMIR le minimum est de vérifier si elle correspond au besoin …

Effectuer une boucle sur chaque ligne est ce qu'il y a de moins performant ‼

Ne pas oublier les fonctions de feuille de calculs et, en activant le Générateur de macros puis en effectuant

une recherche puis une copie des données, le squelette du code est livré en moins d'une minute !

Reste à optimiser et voici une p'tite démonstration efficace de moins de 30 lignes !

Sub Demo()
    Dim Rg As Range
    Application.ScreenUpdating = False

    With Feuil2
           R& = .Cells(.Rows.Count, 3).End(xlUp).Row
        If R > 1 Then Range(.Cells(2, 1), .Cells(R, 3)).ClearContents: R = 1
    End With

    With Feuil1.Cells(1).CurrentRegion
        For C& = 3 To .Columns.Count
               Set Rg = .Columns(C).Find("X")
            If Not Rg Is Nothing Then
                   P& = Rg.Row
                Do
                                                       R = R + 1
                                Feuil2.Cells(R, 1).Value = .Cells(C).Value
                    Feuil2.Cells(R, 2).Resize(, 2).Value = .Cells(Rg.Row, 1).Resize(, 2).Value
                                                  Set Rg = .Columns(C).FindNext(Rg)
                Loop Until Rg.Row = P

                R = R + 1
            End If
        Next

        Set Rg = Nothing
    End With
End Sub

Marc L · Answer

Conformément aux règles de ce forum, sur mon message contenant le code (au fait je l'ai complété) …...