Désignation de tableau pour TCD [Résolu]

Signaler
Messages postés
23
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
20 juin 2021
-
Messages postés
23
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
20 juin 2021
-
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

2 réponses

Messages postés
10198
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
28 juillet 2021
1 168
Bonjour,
C'est le même la même marche à suivre que pour {DatSLAGéné_3}
Messages postés
23
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
20 juin 2021

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