Discussion :

[tepuy]

Bonjour a tous
J'ai un classeur qui contient un tableau par feuille.
J'aimerais transformer tous ces tableau en tableau structurés (sauf le premier onglet qui lui sera une synthese de tous ces tableaux structurés) .
Tous ces tableaux sont de tailles différentes .
Je pense que je dois passer par une sélection de cellule contigûes et aller jusqu'à la dernière ligne

Pour la selection de tous les onglets je passe par cette macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub MacroSelection()
Sheets(1).Select
For s=2 To Sheets.Count
Sheets(s).Select False
Next s
End sub

C'est tout bete mais je bloque sur ceci . quelqu'un peux t'il m'aider?

Merci

[78chris]

Bonjour

Style et Nommage à adapter. A noter que si le nom de feuille comporte des caractères interdis dans les noms (espaces notamment) cela ne peut fonctionner en l'état

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Plage2Tableau()
    For Each Feuille In ThisWorkbook.Worksheets
        With Feuille
            If .ListObjects.Count = 0 And .Name <> "Synthese" Then
                .ListObjects.Add(xlSrcRange, .Range("A10").CurrentRegion, , xlYes).Name = "T_" & .Name
                .ListObjects("T_" & .Name).TableStyle = "TableStyleLight9"
            End If
        End With
    Next
End Sub

[tepuy]

Bonjour, 78chris
c'est génial
ca marche .
Je met en résolu