Code Couleur dans Excel

[Michael DELIQUE]

Un petit bout de code qui affiche dans une feuille excel les code couleur

Code : Tout sélectionner

   Dim objXLSApp As Variant
   Dim objXLSWorkbook As Variant
   Dim objXLSWorkSheet As Variant
   Dim i As Integer
   Dim nbsheet As Integer
   
   
   Set objXLSApp= Nothing
   Set objXLSApp=createobject("Excel.Application")
   objXLSApp.DisplayAlerts=False
   objXLSApp.Visible= True
   objXLSApp.Workbooks.Add
   Set objXLSWorkbook= objXLSApp.ActiveWorkbook
   
   nbSheet = 1
   objXLSWorkbook.sheets(nbSheet).select
   
   For i = 1 To 56
      objXLSWorkbook.sheets(nbSheet).Cells(i,2).Value=i
      objXLSWorkbook.sheets(nbSheet).Cells(i, 2).Interior.Pattern = 1
      objXLSWorkbook.sheets(nbSheet).Cells(i, 2).Interior.ColorIndex = i
   Next   
   
   objXLSApp.Range("A1").Select
   Set objXLSApp= Nothing
   Set objXLSWorkbook= Nothing