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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!