transformer une plage à ligne variable en tableau

Bonjour à tous,

J'ai actuellement une plage avec un nombre de lignes variable, et des colonnes fixes, allant de la colonne A à la colonne K.

J'ai commencé à écrire le code en sélectionnant la plage que je souhaite transformer par la suite en tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub MiseEnFormeDeTableau()   ' MiseEnFormeDeTableau Macro   x = "A:K" Intersect(Range(x), Range("1:1")).Resize(Range(x).Find("*", searchorder:=xlByRows, SearchDirection:=xlPrevious).Row).Select   ActiveSheet.ListObjects.Add(xlSrcRange, Range(x), , xlYes).Name = _ "Tableau1" Range("Tableau1[#All]").Select ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight1"   End Sub

---

Mon problème est qu'avec ce code, ma plage est bien sélectionnée et transformer en tableau mais la mise en forme en tableau ne s'arrête pas à la dernière ligne.

Je suppose qu'il faudrait rajouter une variable mais n'étant pas expert, je souhaiterais avoir votre aide pour finaliser ce code.

En vous remerciant par avance! :)

Bonjour

voici un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub MiseEnFormeDeTableau() Dim DerLig As Long   With ActiveSheet DerLig = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row .ListObjects.Add(xlSrcRange, .Range(.Cells(1, 1), .Cells(DerLig, 11)), , xlYes).Name = "Tableau1" .ListObjects("Tableau1").TableStyle = "TableStyleLight1" End With   End Sub

---

Ps: évite les ActiveSheet quand c'est possible, et utilise plutôt un Objet Worksheets pour désigner la feuille voulue

Merci beaucoup pour ton aide!

Ca fonctionne parfaitement!