Désignation de tableau pour TCD Résolu/Fermé

Question

Bonjour, 

Comment désigner un tableau sur les cellules actives dont "les dimensions"($A$1:$S$149) peuvent varier.
A la main, j'obtiens :

'****************
' tableau Macro
'****************

Sub tableau()

    Range("A1").CurrentRegion.Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$S$149"), , xlYes).Name = _
        "Tableau1"
    Range("A1:S149").Select
    ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight9"
    ActiveWorkbook.Names.Add Name:="TabDatas", RefersToR1C1:= _
        "=Sheet1!R1C1:R149C19"
End Sub

Au final, c'est pour avoir toujours le même nom de référence pour ma plage de données de mon TCD "TabDatas".

Je vous remercie par avance,

Configuration: Windows / Edge 91.0.864.41

Le Pingou · Answer

Bonjour,
C'est le même la même marche à suivre que pour {DatSLAGéné_3}

Druddy · Answer

Bonjour,

J'ai trouvé la solution, si cela peut aider :

'*******************************************
'Creation Table
'******************************************

Public Sub CreateTable()
Dim lo As ListObject
    With ActiveSheet
        Set lo = .ListObjects.Add(xlSrcRange, .Range("a1").CurrentRegion, , xlYes)
        With lo
            .Name = "TabDatas"
            .TableStyle = "TableStyleLight9"
        End With
    End With
End Sub

Désignation de tableau pour TCD

2 réponses

Discussions similaires