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

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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 -
pixlagalere -

7 réponses