extraire le motif d'une cellule

[sepegaray]

Au secour,

Je suis en train de mettre la tete sur un truc tres con.

je veux extraire le motif d'une cellule excel (couleur de la trame de fond) et faire correspondre un nombre dans une cellule voisine.

J'ai essayé mes bidouilles maison mais ça donne rien.

Un exemple:

=SI(NomObjet.propriété.Color B9=255;"1";"0")

Si la cellule A2 à le motif rouge, inscrire 1.
Si la cellule A2 n'a pas le motif rouge, inscrire 0.

Amis exceliens, à vos souris et claviers.

Merci d'avance.

 

[Moa]

Salut Sepegaray !

Sub Couleur()
If Range("A2").Interior.ColorIndex = 3 Then
Range("B2").Value = 1
Else: Range("B2").Value = 0
End If
End Sub

Ca devrait marcher...!

@ +

Moa

 

[STéphane]

Attention on parle de motif ou de couleur de fond ?
pour le second cas, moa a donné des pistes.
pouir le premier tu peux te servir de l'enregistreur de macros pour savoir quelles propriétés et méthodeds manipuler.

ensuite, ce qui pourra t'aider c'est de chercher dans les anciens messages de ce forum, des fonctions vba (function) qui permettent de retourner la couleur de fond d'une cellule.

tu pourras une fois une des ces^procédures copiées dans un module de ton choix, utiliser cette fonction de la même manière qu'une fonction de feuille de calcul au sein d'une formule.

 

[Sepegaray]

Moa,

Ca marche nickel chrome!

Merci beaucoup pour ton aide!!!

Sepegaray