Salut Pat
je t'avais un peu Zappé avec ma nouvelle démo qui m'a pris plus de temp que prévu ce soir...
Ben c'est simple, ici les codes du private Module ThisWorkBook contiennent ça :
Option Explicit
Private Sub Workbook_Open()
Mettre
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Enlever
End Sub
Dans un module Standard il y a ça :
Option Explicit
Sub Mettre()
Dim Ctrl As Object
For Each Ctrl In Application.CommandBars("Cell").Controls
If Ctrl.ID = 1691 Then Exit Sub
Next Ctrl
Application.CommandBars("Cell").Controls.Add _
Type:=msoControlSplitButtonPopup, ID:=1691, Before:=1
End Sub
Sub Enlever()
Dim Ctrl As Object
For Each Ctrl In Application.CommandBars("Cell").Controls
If Ctrl.ID = 1691 Then Ctrl.Delete
Next Ctrl
End Sub
Si tu veux conserver cette barre de couleur en permanence, tu empêches simplement la macro "Enlever" d'agir (elle agit donc toute seule en Macro évènementielle "Workbook_BeforeClose") (mais garde le fichier sous le bras !)
Bonne Nuit
@+Thierry