Détection de couleur

[alouette42]

Bonjour à tous,

Mon abscence du forum, explique mes dificultés. je ne suis pas un grand utilisateur d'où mon probleme et je tourne en rond dans mes cellules...

Merci de votre aide

je veux coloré en rouge la cellule A1 automatiquemnt si les cellule c1 "et" D1 sont rouge.
je veux coloré en vert la la cellule A1 automatiquemnt si la cellule c1 "ou" D1est verte
Et cela pour l'ensemble de la colonne "A" "C" et "D" bien evidement.....

 

[Dan]

Re : Détection de couleur

Bonjour,

Une solution par macro à placer en VBA dans un module.
Pour l'exécuter, soit menu/outils/macro/macro et choisir la macro "colorie" ou attribuer un raccourci clavier -> menu/outils/macro/macro cliquer sur options et choisir une lettre puis OK. Ensuite il suffira de faire CTRL + lettre choisie sur clavier pour exécuter cette macro.

 Sub Colorie()
'Macro par Dan pour Alouette42 le 16/11/06
Dim derlig As Variant, i As Variant
derlig = Range("A65536").End(xlUp).Row
For i = derlig To 2 Step -1 'colorie jusque la ligne 2 incluse
If Range("C" & i).Interior.ColorIndex = 3 And Range("D" & i).Interior.ColorIndex = 3 Then Range("A" & i).Interior.ColorIndex = 3
If Range("C" & i).Interior.ColorIndex = 50 And Range("D" & i).Interior.ColorIndex = 50 Then Range("A" & i).Interior.ColorIndex = 50
Next i
End Sub

A te lire

 

[alouette42]

Re : Détection de couleur

Merci Dan,

J'ai bein fait ce que tu m'a dit, mais marche pas ????
Pourrai tu me transmettre un fichier ???

Merci de ta gentillesse

 

[Dan]

Re : Détection de couleur

re,

As-tu mis des valeurs dans la colonne A ?

A te lire

 

[alouette42]

Re : Détection de couleur

Ben Non ! Désolé !
C'est super, cela fonctionne bien mieux avec des valeurs.
Encore merci pour ton suivi et ta réactivité.
A trés bientôt