VBA - Selection automatique d'une plage de données variable

Bonjour,

Je débute en vba. Je souhaite créer une macro pour convertir une plage de cellules en format tableau. Le nombre de ligne du tableau varie d'un mois à l'autre. Je pensais partir sur quelque chose comme ci-dessous mais ca me marque un Range fixe et du coup ca ne marche si j'ai plus de lignes.

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Application.CutCopyMode = False

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$16"), , xlYes).Name = _

"Tableau1"

Range("Tableau1[#All]").Select

ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight8"

Est-ce que vous pouvez m'aider ?

Merci !

Bonjour,

Essaie ainsi :

Option Explicit

Public Sub Create_Table()
Dim ws As Worksheet, lo As ListObject
    Set ws = ActiveSheet
    Set lo = ws.ListObjects.Add(xlSrcRange, ws.Cells(1).CurrentRegion, , xlYes)
    With lo
        .Name = "Tableau1"
        .TableStyle = "TableStyleLight8"
    End With
    Set lo = Nothing
End Sub

Merci beaucoup, je l'ai intégré dans ma macro globale et ca marche !!

Re,

Merci.

Pense à clore le sujet.

Bonne soirée.