Mettre des données en tableau

Bonjour le forum !

J'ai un problème en VBA ,

Je voudrais mettre en forme les données de la page en forme de tableau.

Donc avec un macro je nomme la zone avec le code suivant :

Dim maplage As Range
Set maplage = Range("A1").CurrentRegion
ActiveWorkbook.Names.Add Name:="Tableau100", RefersTo:=maplage

Donc la il n'y a pas de probleme je pense.

Mais quand je veux le mettre sous forme de tableau a partir de la zone déterminé ci-dessus , je n'y arrive pas. Il me sélectionne uniquement la zone en Chiffres et lettres ( A1 , C5 , T8 ... ) or moi je veux la zone car elle peux s'agrandir en fonction des données.

Je ne sais pas si vous m'avez compris ,.. Je mets un fichier en exemple : Il faut réussir a mettre la zone de donnée que j'ai nommé Tableau100 sous forme de tableau.

Quand je fais le code j'ai ça et ayant dit de prendre la zone Tableau100 :

  ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$5"), , xlNo).Name = _
        "Tableau3"
    Range("Tableau3[#All]").Select
    ActiveSheet.ListObjects("Tableau3").TableStyle = "TableStyleLight2"

Et si j'enleve $A$1:$D$5: Par Tableau100 ca ne marche pas.

Merci d'avance

Bonsoir Pingouin, bonsoir le forum,

Le code ci-dessous marche très sur ton propre fichier :

Sub Macro1()
Dim maplage As Range
Set maplage = Range("A1").CurrentRegion
ActiveWorkbook.Names.Add Name:="Tableau100", RefersTo:=maplage
ActiveSheet.ListObjects.Add(xlSrcRange, Range("Tableau100"), , xlNo).Name = _
        "Tableau3"
Range("Tableau3[#All]").Select
ActiveSheet.ListObjects("Tableau3").TableStyle = "TableStyleLight2"
End Sub

Je ne comprends pas où est ton problème ?!...

Bonsoir,

A tester.

Cdlt.

Option Explicit
Public Sub Creer_tableau()
Dim objList As ListObject
    Application.ScreenUpdating = False
    Set objList = ActiveSheet.ListObjects.Add(xlSrcRange, Cells(1).CurrentRegion, , xlYes)
    With objList
        .Name = "Tableau3"
        .TableStyle = "TableStyleLight2"
    End With
    Set objList = Nothing
End Sub

Super! Ca marche maintenant !

Merci beaucoup de votre aide