Discussion :

[chichibeignet]

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!

[joe.levrai]

Bonjour

voici un exemple

Code :

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

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

[chichibeignet]

Merci beaucoup pour ton aide!

Ca fonctionne parfaitement!