Discussion :

[thca83]

Bonjour,

je voudrais créer un Tableau dans Excel en vb mais j'arrive pas a trouver comment faire.

Je suppose que ça doit etre qq chose comme : ActiveSheet.Tables.add()
Mais visiblement il n'y a pas d'objet Tables dans ActiveSheet

Si qqun pouvait me venir en aide ça serait pas mal !

merci

[Pierre Fauconnier]

Bonjour

Pourrais-tu définir ce que tu entends par "tableau" dans Excel?

[SilkyRoad]

bonsoir


Il faut utiliser l'objet ListObjects et non Tables.
Tu trouveras plusieurs exemples dansla FAQ Excel :

http://excel.developpez.com/faq/?page=Tableau

Code :

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

1
2
3
4
5
6
7
Set Ws = Worksheets("Feuil1")
 
'Un exemple qui prend en compte les cellules voisines à A1
With Ws
    .ListObjects.Add(xlSrcRange, .Range("$A$1").CurrentRegion, , xlYes).Name = NomTable
    .ListObjects(NomTable).TableStyle = "TableStyleMedium5"
End With

bonne soirée
michel