couleur des onglets

[violaine]

bonjour dans mes userform j utilise des multipage t je voudrai savoir comment fait on pour mettre en jaune âr exemple la page qui est active et en bleu par exemple les autres pages qui ne sont pas active

de meme comment fait on pour coder les couleur

merci
a bientot

 

[Ti]

voici une macro à placer dans Thisworkbook et qui fera ça (ça ne marchera pas dans Excel 97/2000)

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

 

[violaine]

je n arrive pas a appliquer ta demarche rien ne s affiche au niveau ds couleau