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.