Code Couleur dans Excel
Publié: 20 Fév 2007 à 11:11Un 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