Imaginez que vous travaillez avec des cellules colorées. Pour ce faire, vous définissez un certain nombre de couleurs qui doivent être valides dans votre tableau. Si d’autres couleurs sont utilisées, le texte ne doit pas être une couleur valide! La fonction suivante effectue cette tâche:
Function CouleurCell (r As Range) Dim CouleurG As String Application.Volatile Select Case r.Interior.ColorIndex Case 1 CouleurG = "Noir" Case 2 CouleurG = "blanc" Case 3 CouleurG = "Rouge" Case 4 CouleurG = "Vert" Case 5 CouleurG = "Bleu" Case Else CouleurG = "pas une couleur valide!" End Select CouleurCell = CouleurG End Function