Sujet Précédent Sujet Suivant

Désignation de tableau pour TCD

Résolu/Fermé
Druddy Messages postés 33 Date d'inscription samedi 29 mai 2021 Statut Membre Dernière intervention 30 septembre 2021 - 12 juin 2021 à 09:07
Druddy Messages postés 33 Date d'inscription samedi 29 mai 2021 Statut Membre Dernière intervention 30 septembre 2021 - 19 juin 2021 à 08:54
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

Réponse 1 / 2
Le Pingou Messages postés 11536 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 21 mars 2023 1 334
12 juin 2021 à 10:30
Bonjour,
C'est le même la même marche à suivre que pour {DatSLAGéné_3}
0
Réponse 2 / 2
Druddy Messages postés 33 Date d'inscription samedi 29 mai 2021 Statut Membre Dernière intervention 30 septembre 2021
19 juin 2021 à 08:54
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
0