- '**********************************************************
- 'Coder par FeuxX
- '**********************************************************
- '================================================
- 'dans un Module
- Global newexcel As New Excel.Application
- '================================================
-
- '=================================================
- 'code
- '=================================================
- 'j'ouvre excel
- newexcel.Visible = True
- 'j'ajout un classeur
- newexcel.Workbooks.Add
- ' on met en gras la cellule C2
- newexcel.Range("C2").Font.Bold = True
- ' on enleve le cadrillage
- newexcel.ActiveWindow.DisplayGridlines = False
- '====================================================================================
- 'Mise en couleur des cellules
- '=============================
- 'couleurs
- '---------
- 'Aqua => 8, 28, 33, 34, 42
- 'Black =)> 1, 51, 52
- 'Blue =)> 5, 32, 41, 49
- 'Fuchsia =)> 7, 26
- 'Gray =)> 16, 46, 47, 48, 56
- 'Green =)> 10, 43
- 'Lime =)> 4
- 'Maroon =)> 9, 30, 53
- 'Navy =)> 11, 25, 55
- 'Olive =)> 12, 44, 45
- 'Purple =)> 13, 18, 21, 29, 54
- 'Red =)> 3
- 'Silver =)> 15, 17, 20, 22, 24, 35, 36, 37, 38, 39
- 'Teal =)> 14, 23, 31, 50
- 'White =)> 2, 19, 40
- 'Yellow =)> 6, 27
- '-------------
- 'range(cells(a,b),cells(c,d)) 'procedure de selection de champs
- '(a,b) = colone
- 'a= debut de la selection
- 'b= nombre de champs selectioner apres
- '(c,d) = ligne
- 'c= debut de selection
- 'd= nombre de champs selectioner apres
- '======================================================================================
- 'selectionne la case b2 est la mets de couleur jaune
- Selection.Range(Cells(2, 2), Cells(2, 3)).Interior.ColorIndex = 6
'**********************************************************
'Coder par FeuxX
'**********************************************************
'================================================
'dans un Module
Global newexcel As New Excel.Application
'================================================
'=================================================
'code
'=================================================
'j'ouvre excel
newexcel.Visible = True
'j'ajout un classeur
newexcel.Workbooks.Add
' on met en gras la cellule C2
newexcel.Range("C2").Font.Bold = True
' on enleve le cadrillage
newexcel.ActiveWindow.DisplayGridlines = False
'====================================================================================
'Mise en couleur des cellules
'=============================
'couleurs
'---------
'Aqua => 8, 28, 33, 34, 42
'Black =)> 1, 51, 52
'Blue =)> 5, 32, 41, 49
'Fuchsia =)> 7, 26
'Gray =)> 16, 46, 47, 48, 56
'Green =)> 10, 43
'Lime =)> 4
'Maroon =)> 9, 30, 53
'Navy =)> 11, 25, 55
'Olive =)> 12, 44, 45
'Purple =)> 13, 18, 21, 29, 54
'Red =)> 3
'Silver =)> 15, 17, 20, 22, 24, 35, 36, 37, 38, 39
'Teal =)> 14, 23, 31, 50
'White =)> 2, 19, 40
'Yellow =)> 6, 27
'-------------
'range(cells(a,b),cells(c,d)) 'procedure de selection de champs
'(a,b) = colone
'a= debut de la selection
'b= nombre de champs selectioner apres
'(c,d) = ligne
'c= debut de selection
'd= nombre de champs selectioner apres
'======================================================================================
'selectionne la case b2 est la mets de couleur jaune
Selection.Range(Cells(2, 2), Cells(2, 3)).Interior.ColorIndex = 6