[RESOLU] Modifier la valeur d'une cellule en fonction de sa couleur

[jeremyserre]

Bonjour,

JE viens de recevoir un fichier excel, et on me demande de faire des graphiques.
Il s'agit de résultat de questionnaire.

Le problème c'est que la personne qui à rempli ce fichier, n'a pas mis de valeur dans les cellules mais les à colorer en rouge si la réponse est oui.
Bref, je voudrais pouvoir mettre 1 dans toutes les cellules rouge, et 0 dans toutes les autres. C'est un peu long a faire manuellement : 146 colonnes et 88 lignes

Auriez vous une autre solution ?

 

[Guest]

Re : Modifier la valeur d'une cellule en fonction de sa couleur

Bonjour et meilleur voeux,

Voir dans fichier joint macro 'colorer' si cela convient. La couleur de la cellule B91 est prise comme couleur de référence.

A+

 

[Staple1600]

Re : Modifier la valeur d'une cellule en fonction de sa couleur

Bonjour à tous, Hasco

A tester (en musique ou pas)

Sub JeanneMasTribute()
Dim c   As Range
For Each c In ActiveSheet.UsedRange
c = IIf(c.Interior.ColorIndex = 3, 1, 0)
Next
End Sub

EDITION: Bonjour JHA

 

[JHA]

Re : Modifier la valeur d'une cellule en fonction de sa couleur

Bonjour à tous,

Avec une fonction personnalisée du forum.

JHA

 

[jeremyserre]

Re : Modifier la valeur d'une cellule en fonction de sa couleur

Merci c'est parfait !!