Macro pour lire les couleurs d’arrière-plan, Excel VBA

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

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x