Désignation de tableau pour TCD
Résolu
Druddy
Messages postés
34
Date d'inscription
Statut
Membre
Dernière intervention
-
Druddy Messages postés 34 Date d'inscription Statut Membre Dernière intervention -
Druddy Messages postés 34 Date d'inscription Statut Membre Dernière intervention -
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,
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
A voir également:
- Désignation de tableau pour TCD
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer tableau excel sur une page - Guide
2 réponses
Bonjour,
J'ai trouvé la solution, si cela peut aider :
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
