|
Comment faire pour mettre en jaune par exemple la page qui est active et en bleu les autres pages...
voici une macro à placer dans Thisworkbook et qui fera ça (ça ne marchera pas dans Excel 97/2000)
Option Explicit
'http://www.excel-downloads.com/html/French/forum/messages/1_96459_96459.htm ' Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Ti Dim Ws As Object Static LastSh As Object
On Error Resume Next If LastSh Is Nothing Then For Each Ws In ThisWorkbook.Sheets Ws.Tab.Color = vbBlue Next Ws End If Sh.Tab.Color = vbYellow LastSh.Tab.Color = vbBlue Set LastSh = Sh End Sub
Date de création : 24/05/2005 - 19:01
Dernière modification : 25/05/2005 - 22:38
Catégorie : Feuille
Page lue 4148 fois
Prévisualiser la page
Imprimer la page
|