Colorer cellules

[Florian53]

Bonjour je souhaiterais colorier des cellules si dans celle ci rien n'est inscrit pour cela j'ai appliquée cette macro :

Sub ColorJour()

Dim cell As Range
For Each cell In Range("B3😀17")
Select Case cell.Value
Case Is = ""
cell.Interior.ColorIndex = 2
cell.FormulaR1C1 = "EXEMPT"
PatternColorIndex = xlAutomatic
ThemeColor = xlThemeColorDark1
TintAndShade = -0.14996795556505
PatternTintAndShade = 0
End Select
Next
End Sub

Le seul problème est que si après j'indique quelque chose dans cette cellule est garde la couleur appliquée par la macro

Mon exemple est que ma cellule est verte à l'origine si rien n'ai inscrit elle se colore en blanc avec le texte exempt, si je rajoute un texte dans cette cellule elle garde la couleur blanche.

Est ce possible de colorer des cellules dynamiquement

 

[phlaurent55]

Re : Colorer cellules

Bonjour florian,
pour ton problème, tu dois utiliser les mises en forme conditionnelles

 

[jeanpierre]

Re : Colorer cellules

Bonjour Florian53,

Pourquoi une macro ?

Alors qu'une simple Mise en forme conditionnelle va gérer, instantanément ton problème.

A te lire.

Bon dimanche.

Jean-Pierre

Edit : Bonjour phlaurent. Pfiou, le téléphone c'est bien, mais dérangeant quelquefois, mais même idée.

 

[Florian53]

Re : Colorer cellules

Merci à vous j'utilise une macro pour que dans la cellule vide cela marque "Exempt" dedans.

C'est possible aussi avec la mise en forme conditionnelle?

 

[phlaurent55]

Re : Colorer cellules

Re,
si au départ la cellule contient "EXEMPT", dés que tu entreras autre chose, "EXEMPT" sera remplacé

........................ mais si tu veux faire revenir le mot "EXEMPT" dès que tu effaces le contenu d'une cellule, il te faudra passer par une macro

 

[Florian53]

Re : Colorer cellules

c'est pour cela que j'ai utilisé une macro au départ mais le problème est qu'il mais impossible de revenir à l'état intiale

 

[phlaurent55]

Re : Colorer cellules

Re,

essaie ceci

 

[Florian53]

Re : Colorer cellules

Merci à toi c'est nickel, par contre est on obliger de cliquer sur la cellule pour revoir revenir "exempt"?

 

[phlaurent55]

Re : Colorer cellules

re,

Merci à toi c'est nickel, par contre est on obliger de cliquer sur la cellule pour revoir revenir "exempt"?

pour voir revenir le mot, tu dois effacer le contenu de la cellule ( donc, forcément cliquer dessus pour au moins la sélectionner)

La procédure se déclenche lorsque tu changes de cellule ( selection change) donc il te faut appuyer sur "Enter" ou te déplacer sur une autre cellule

 

[Florian53]

Re : Colorer cellules

Merci à toi je teste sur mon classeur original et je te redis.

encore merci