Option Explicit
Private Sub Workbook_SheetActivate(ByVal Ws As Object)
Ws.Tab.Color = vbBlack
End Sub
Private Sub Workbook_SheetdeActivate(ByVal Ws As Object)
Ws.Tab.ColorIndex = xlNone
End Sub
Merci pour ta réponse...Bonjour,
Non c'est automatique
l'onglet de couleur dégradé est l'onglet sélectionné, les autres se mettent en couleur uniforme et le texte prendra la couleur blanc ou noir selon la couleur de l'onglet :
Regarde la pièce jointe 1179548
Regarde la pièce jointe 1179549
Regarde la pièce jointe 1179550
voilà
Application.StandardFont = "Algerian"
Application.StandardFontSize = "22"