EXCEL: si A1= un mot,alors B1= cellule coloré

Quelle version d'Excel? Parce que jusqu'à 2003 tu ne peux faire que 3 MEFC, plus la MEF par défaut, ça gérerait 4 couleurs au mieux.
Mais en VB, c'est possible, par contre.

bonjour

Pour gérer plus de 3 conditions en 2003 tu devrais essayer ce programme de Didier Fourgeot

C'est certainement la méthode la plus aboutie et assez facile à mettre en œuvre.

Bonsoir,
Quelqu'un autrepart a écrit :

Sub Test()
'Déclaration des variables -------------------------
Dim Cel As Range
Dim F As Worksheet
'MEI ----------------------------
application.ScreenUpdating = False
'Blocage ragraîchissement écran
'Traitement------------------------
For Each F In Worksheets
'Pour chaque feuille du classeur
For Each Cel In F.UsedRange
'Pour chaque cellule de la plage utilisée de la feuille
Select Case Cel.Value
'définir case = valeur de cel
Case "A"
Cel.Interior.ColorIndex = 3
Case "B"
Cel.Interior.ColorIndex = 41
Case "C"
Cel.Interior.ColorIndex = 4
Case "D"
Cel.Interior.ColorIndex = 6
Case Else
Cel.Interior.ColorIndex = xlNone
End Select
Next Cel
Next F
application.ScreenUpdating = True
End Sub

La macro tient compte de la casse : "A" est reconnu, mais pas "a". si tu veux que ça fonctionne dans les 2 cas, tu remplaces
Select Case Cel.Value
par
Select Case Ucase(Cel.Value)

Si elle te convient, on peut la déclencher automatiquement sur la feuille en court, soit en cas de changement, soit en cas de changement de feuille.
Sinon, détailles ce que tu veux obtenir
A+

-->Message édité par Gorfael le 20/07/2007 02:14:42<--

Bonsoir tout le monde,

j'arrive un peu tard mais vu que je l'ai fait je le met quand même :
http://www.cijoint.fr/cjlink.php?file=cj200810/cijUlCe7FM.xls

le code pour ceux qui liront plus tard :

Sub colorer()
    ' sélectionner la plage recevant la couleur avant d'appeler la macro
    Const offsetCol As Integer = -1 ' contrôler les cellules situées 1 colonne à gauche
    Dim c1 As Range, c2 As Range
    For Each c1 In Selection
        For Each c2 In [Légende ] 'plage nommée contenant le texte recherché et la couleur
            If c1.Offset(0, offsetCol).Value = c2.Value Then
                c1.Interior.ColorIndex = c2.Interior.ColorIndex
                Exit For
            End If
        Next c2
    Next c1
End Sub

eric

Merci à vous pour vos réponses, le lien Excel d'Eric est super. Je suis donc parvenue à réaliser mon projet grace a vous.

A la prochaine, bonne soirée

ben c est quoi qui te bloque dans les mises en forme conditionnel?.?

j veux bien un bout de code en vb par contre moi ;):p

Justement je bosse sous excel 2003 et je n'arrive pas a mettre plus de 3 conditions. Et je me demandais si ce n'était pas possible de passer par une formule avec SI et OU.

par les formule, j suis sur que ca marche pas.. tu peux pas changer la couleur d une cellule via une formule.. mais en vba (en associant une macro vba sur le changement de cellule) je sais que c est possible, mais j ais pas creuser la question, vu que j utilise pas + de 3 condition aussi ;).. mais je suis programmeur dans l ame , donc :

LatelyGeek : si t as la soluce ;)

merci d avnce :)

thks pour moi, j espere que ca resolu ton soucis slamdunk77

si oui, oubli pas de mettre resolu en haut ;)

@++

En ce qui concerne les macros, je ne connais pas grand chose car jusqu'à présent je n'ai jamais eu besoins de cette utilitaire.

Je viens d'aller télécharger le programme, je l'essayerai demain.

En tout cas merci pour vos réponces, et si d'autre personnes ont d'autres propositions, qu'ils n'hésitent pas!

bonne soirée

je viens de voir ton com COCOTEHIER, je te tiens au courant demain.

merci beaucoup

oki, merci a toi aussi

PS: j'ai oublié de dire que si on met offsetCol à 0 on colorie les cellules sélectionnées selon leur contenu.
eric