texte si (couleur cellule)

[yvon51]

bonjour le forum

est-il possible d'écrire un texte en fonction de la couleur de trame de la cellule.

si cellule bleu
alors écrire "OK"
si cellule rouge
alors écrire 'ALERTE"

merci à toutes et tous
yvon

 

[flyom]

Slt Yvon

Oui c'est possible :

if activecell.interior.colorindex = 2 then
activecell.value = "le texte que tu veux mettre"
end if

Voila j'espere que ca t'aidera!

 

[yvon51]

bonjour Flyom

merci c'est très sympa.
il s'agit d'une macro et
je suppose que =2 est le num code couleur?

où puis-je avoir les autres

merci
yvon

 

[Gérard DEZAMIS]

Bonjour Yvon51 et flyon


en suivant les conseils de flyon :

Code à mettre dans le feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex = 5 Then
ActiveCell.Value = "OK"
ElseIf ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Value = "ALERTE"
End If
End Sub

Mais .... il il y un mais
Je ne sais pas pourquoi il faut revaliser la cellule pour que la fonction obéisse bien aux instructions
J'attends donc moi aussi une petite réponse. On est dans la même galère !
Ramons !

@+
GD

 

[flyom]

Salut G !

Je suis pas un pro mais qu'entend tu par "revaliser" la cellule ???

A plus

 

[Gérard DEZAMIS]

Bonjour Flyon

Echange un S contre un R Tu n'y perds pas !
J'ai tapé revaliser alors qu'il faudrait revalider.
En effet on affecte la couleur à la cellule mais rien ne se produit. Il faut à nouveau se remettre sur la cellule pour que OK ou ALERTE apparaîsse.
En plus ... puisque je te tiens, une couleur Rouge ou Bleue comme ici, mise en Mise en Format conditionnelle ne déclenche rien.... Normal ?

@+
GD

 

[flyom]

Re salut !!

Je comprend pas bien ce que tu veux dire mais chez moi ta macro marche bien :

Si je choisi une cellule rouge et que je lance la macro hop il affiche le bon message.

Le seul prob c'est de faire une boucle pour faire cela dans toute la zone necessaire !


Comme je l'ai dit, je suis pas un pro !!!

A plus

 

[yvon51]

re

j'ai des problèmes les gars
je n'arrive pas à entrer dans la partie macro

je pleure beaucoup
yvon

 

[Gérard DEZAMIS]

Re Yvon51

J'ai "contourné" le Problème avec des formules conditionnelles
Regarde si cela peut t'aider

@+
GD

 

[yvon51]

bonjour le forum
bonjour Gérard,

merci pour ton boulot
je pense que cela doit BEAUCOUP m'aider.
je vois cela au repos, d'une part pour comprendre, d'autre part pour appliquer dans ma table

merci encore

yvon

 

[yvon51]

re

ça fonctionne impec
j'ai parfaitement compris ce que tu as fait et j'ai appliqué sans problème.

je te remercie pour cette leçon "fonctions avancées".

à plus tard, très certainement

yvon