Copier Tableau Complet vers une autre cellule avec une condition

Bonjour,

J'ai un classeur Excel contenant plusieurs Feuilles.

Sur une feuille, j'ai un plusieurs tableau les un en dessous des autres (Collones A jusque H), tous nommé avec un nom spécifique.

J'aimerais avoir sur une autre feuille, la liste de tout les tableaux disponible associé à un Check Boutton

Si le check boutton est activé, alors le tableau associé est copié sur une troisième feuille.

Chaque tabeau avec le Check Button activé, serait alors copiés les un en dessous des autre sur la troisième feuille.

Merci

Bonjour Kévin,

aurais-tu un fichier exemple à fournir ce sera plus simple pour bien comprendre ta demande et y répondre.

Cordialement.

Bonjour,

Meilleur Voeux pour cette nouvelle année

Désolé j'étais en congé ces dernières semaines et n'avais pas accès à mon fichier de base.

pour résumé, dans l'onglet "Planning" il y a une liste de tâches divisé en plusieurs tableau " Table0 --> Table10"

dans l'onglet "CheckBox" j'ai la liste de tout les tableaux à choisir

Dans l'onglet "PROJECT" j'aimerais copier le tableau " Table1" si celui-ci est "checked" dans l'onglet "CheckBox"

Merci de votre aide

Bien à vous

Bonjour,
Un exemple à adapter, car tes explications prêtent à confusion.
Cdlt.

Public Sub CopyTables()
Dim ws As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim lo As ListObject, lo2 As ListObject
Dim Cell As Range, r As Range
Dim rw As Long

    Set ws = Worksheets("Planning")
    Set ws2 = Worksheets("CheckBox")
    Set ws3 = Worksheets("Project")

    Set lo = ws2.Range("Selection").ListObject

    ws3.Cells.Clear

    For Each Cell In lo.ListColumns(2).DataBodyRange
        If Not IsEmpty(Cell) Then
            Set lo2 = ws.Range(Cell.Offset(, -1)).ListObject
            If r Is Nothing Then
                Set r = ws3.Cells(1)
            Else
                rw = ws3.Cells(Rows.Count, 1).End(xlUp).Row
                Set r = ws3.Cells(rw + 2, 1)
            End If
            lo2.Range.Copy r
        End If
    Next Cell

End Sub

Bonjour,

C'est excactement ce qu'il me fallait.

Merci beaucoup

Par contre, j'ai copié le code de la feuille "CheckBox" ainsi que le Module 1, lorsque je clique sur le bouton sur lequel j'ai bien associé le code "copyTable" il me mets une erreur sur la ligne suivante

Set lo2 = ws.Range(Cell.Offset(, -1)).ListObject

Run-Rime Error 1004

Method "Range" of Object"_worksheet" failed

Re, désolé

J'ai utilisé le code de votre message et cela fonctionne super

Merci beaucoup.