Discussion :

[aiglevb]

Bonjour,
Je souhaiterais mettre un ensemble de données sous forme de tableau : style de tableau clair1.

Voici le code vba

Code :

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

1
2
3
4
 
 ActiveSheet.ListObjects.Add(xlSrcRange, Range("$a$2:$i$10"), , lNo).Name  "Tableau1"
    Range("Tableau1[#All]").Select
    ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleLight"

et voici mon code

Code :

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

1
2
3
4
5
6
7
8
 
Dim Plage As Microsoft.Office.Interop.Excel.Range
 
        Plage = xlWorkSheetOne.Range("a2:i10")
 
 
        xlWorkSheetOne.Names.Add("Tableau1", Plage)
        xlWorkSheetOne.ListObjects("Tableau1").TableStyle = "TableStyleLight1"

A la dernière ligne, il marque un code d'erreur : Index non valide. (Exception de HRESULT : 0x8002000B (DISP_E_BADINDEX))

Merci d'avance pour votre aide.

[chrismonoye]

Bonjour,

Il faut, sauf erreur, alimenter la liste d'objets.
A tester :

Code :

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

1
2
3
xlWorkSheetOne.ListObjects.Add(Excel.XlListObjectSourceType.xlSrcRange, _
                                                  Plage, False, Excel.XlYesNoGuess.xlYes).Name = "Tableau1"
            xlWorkSheetOne.ListObjects("Tableau1").TableStyle = "TableStyleLight1"

[aiglevb]

Un grand merci ça fonctionne parfaitement.