Sub auto_open()
On Error Resume Next
CommandBars.Add ("BarreColoriage")
CommandBars("BarreColoriage").Visible = True
For i = 1 To [couleurs].Count
Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "'Coloriage """ & i & """'"
bouton.Caption = Range("couleurs")(i)
Next i
Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "colorieAprès"
bouton.Caption = "Après"
End Sub
Sub Coloriage(p)
On Error Resume Next
memo = Selection.Address
For Each c In Selection
Sheets("couleurs").Range("couleurs")(p).Copy
c.PasteSpecial Paste:=xlValues
c.PasteSpecial Paste:=xlPasteFormats
Next c
ActiveSheet.Range(memo).Select
End Sub
Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreColoriage").Delete
End Sub
Sub colorieAprès()
On Error Resume Next
memo = Selection.Address
For Each c In Selection
p = Application.Match(c, Range("couleurs"), 0)
If Not IsError(p) Then
Sheets("couleurs").Range("couleurs")(p).Copy
c.PasteSpecial Paste:=xlValues
c.PasteSpecial Paste:=xlPasteFormats
End If
Next c
ActiveSheet.Range(memo).Select
End Sub