Affecter une valeur en fonction d'un format

billou -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
je suis à la recherche d'une fonction ou d'une macro qui permette d'affecter une valeur à une cellule en fonction du format de celle ci (l'inverse du formatage conditionnel) à savoir:
si le motif d'arrière plan est rouge: valeur 1

Merci d'avance
A voir également:

2 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonsoir,

Function coter_couleur(cellule As Range)
Dim couleur As Byte
couleur = cellule.Interior.ColorIndex
Select Case couleur
Case Is = 3 'rouge
coter_couleur = "A"
Case Is = 35 'vert pale
coter_couleur = 123
'...
End Select
End Function
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
re,

i joint code des couleurs en VBA

https://www.cjoint.com/?bqv2zULXUL
0