fonction VBA comment faire pour modifier la couleur

Bonjour je vous explique mon probleme
dans la plage A1:T40
si la cellule est= Enfants D alors colorer la cellule en violet
ou la cellule est= Enfants TD alors colorer la cellule en jaune
et au total pour 8 choix different
merci de votre aide

En y réfléchissant bien, je me dis que c'est faisable avec une macro.
Le problème est de savoir quand lancer la macro.

Les possibilités sont quasiment infinies... :
- faire une macro qui va "colorier" toute la plage ou faire une macro qui ne va colorier qu'une cellule.
- créer un bouton à cliquer pour lancer la macro (qui va alors colorier toute la plage), ou lancer la macro automatiquement à chaque changement de valeur d'une cellule (qui va alors colorier toute la plage ou seulement la cellule modifiée), etc.


Les valeurs des cellules de ta plage sont entrées de quelles façons (liste de choix ou manuellement) ?

Ily a en fais 15 feuilles avec 8 cellules sur chaque feuille, et les données sont prises avec une formule SI(x8)
donc je cherche comment faire une macro qui me permet de colorier et modifier la couleur du texte de ces cellules en fonction du choix

Désolé, ch'uis trop lourd, j'pige pô.

Si tu le veux, tu peux m'envoyer le fichier en passant par megaupload.com.
Attention, tout le monde pourra le télécharger, à moins que tu m'envoies le lien par MP.

voila le code que j'ai reussi a faire

Sub ChangeColorCelluleAuto()
'
' ChangeColorCelluleAuto Macro
' Macro enregistrée le 09/05/2007 par Didou
'

Dim cell As Range
For Each cell In Range("A1:T40")
Select Case cell.Value
Case Is = "Enfants AD"
cell.Interior.ColorIndex = 2
Case Is = "Enfants D"
cell.Interior.ColorIndex = 7
Case Is = "Enfants TD"
cell.Interior.ColorIndex = 6
Case Is = "Enfants ABO"
cell.Interior.ColorIndex = 4
Case Is = "AD"
cell.Interior.ColorIndex = 44
Case Is = "D"
cell.Interior.ColorIndex = 5
Case Is = "TD"
cell.Interior.ColorIndex = 3
Case Is = "ABO"
cell.Interior.ColorIndex = 1
End Select
Next
End Sub

mais il ne fonctionne qu'une fois et ce malgre des modification
et je n'es pas trouver comment modifier la couleur de la police

en faite ca marche (reste la couleur des polices)mais comment faire pour automatisé a chaque modification sur les feuilles zone 1 à 15 sans touche les autres feuilles du classeur

Je pense que l'envoi d'un fichier aurait peut-être été plus simple, mais il est vrai que l'on doit pouvoir faire sans aussi.


Essaye ceci :

Quand tu ouvres l'éditeur VBA tu dois avoir la liste des feuilles qui s'affiche sur la droite sans doute.
Double-clique sur une feuille.
Sélectionne alors "Worksheet" dans la liste déroulante de gauche de la fenêtre qui s'ouvre.
et sélectionne alors "Change" dans la liste déroulante de droite de cette même fenêtre.
C'est là que tu peux faire appelle à ta procédure.

Mais ça ne sera pas simple car la nouvelle cellule active peut être n'importe laquelle sans savoir quelle cellule a été modifiée...


Sinon, tu peux créer un bouton pour lancer la macro.

ça marche sauf que j'ai mis le code dans Workshett_Activate
comme ça a la selection de la feuille il modifie les couleur

Merci de votre aide