'##########################################################
'### Constante à adapter du nom de la feuille concernée ###
Public Const FEUILLE_CONCERNEE As String = "test" 'à adapter
'##########################################################
Sub SetColor(Optional Param As Variant)
Dim Couleurs As Variant
'--- Tableau des 12 couleurs ---
Couleurs = Array(13959039, 16711680, 65407, 16748574, 32768, _
13826810, 7071982, 255, 65535, 16776960, 9639167, 14822282)
'---
If IsMissing(Param) Then
Selection.Interior.Color = xlNone
Else
Selection.Interior.Color = Couleurs(Param - 1)
End If
End Sub
Sub MakeOnKey(Optional dummy As Byte)
Dim i&
'---
For i& = 1 To 12
Application.OnKey "{F" & i& & "}", "'SetColor " & i& & "'"
Next i&
'---
Application.OnKey "+^G", "SetColor"
End Sub
Sub DeleteOnKey(Optional dummy As Byte)
Dim i&
'---
For i& = 1 To 12
Application.OnKey "{F" & i& & "}", ""
Next i&
Application.OnKey "+^G", ""
End Sub