Private Function CouleurDep(NoReg) As Long
Select Case NoReg
Case 1: CouleurDep = 15849925 '1'bleu
Case 2: CouleurDep = 13995603 '3'bleu
Case 3: CouleurDep = 14474738 '1'rose
Case 4: CouleurDep = 9803737 '3'rose
Case 5: CouleurDep = 11851260 '2'orange
Case 6: CouleurDep = 14545386 '1'vert
Case 7: CouleurDep = 52377 '3'citron vert
Case 8: CouleurDep = 26367 '3'Orange
Case 9: CouleurDep = 16751052 '3'Lavande
Case 10: CouleurDep = 10147523 '3'Prune
Case 11: CouleurDep = 6697881 '3'vert
Case 12: CouleurDep = 16776960 '3'turquoise
Case 13: CouleurDep = 10079487 '3'brun
Case 14: CouleurDep = 52479 '3'or
Case 15: CouleurDep = 65535 '3'jaune
Case 16: CouleurDep = 16711935 '3'Rose
Case 17: CouleurDep = 16777164 '3'Turquoise clair
Case 18: CouleurDep = 65280 '3'Vert brillant
Case 19: CouleurDep = 16711935 '3'Rose
Case 20: CouleurDep = 10092543 '20'Jaune clair
Case 21: CouleurDep = 13408767 '21'Rose saumon
Case 22: CouleurDep = 13421619 '22'Vert d'eau
Case Else: CouleurDep = 255
M$ = "Erreur concernant l'appel de la Function CouleurDep(NoReg)" & vbLf & vbLf & _
"Le no de région est = " & NoReg & vbLf & _
"Pour info, ce no doit être = de 1 à 5" & vbLf & vbLf & _
"Impossible de définir une couleur de fond !?" & vbLf & _
"Par défaut la couleur sera du rouge !"
MsgBox M$, vbExclamation, ""
End Select
End Function