Affecter une valeur en fonction d'un format

billou -  
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
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. michel_m Contributeur
    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

    Discussions similaires

    question pix mot caché
    aorum10

    7 réponses