Salut,

tu as essayé avec la Mise en forme conditionnelle dans le menu Format?

lami20j

Je ne pense pas pouvoir m'en sortir avec la MEFC.
Si c'est possible, je ne connais pas la formule à appliquer...

Hello Thibane,

je te propose une MEFC un peu différente de ce que tu demandes. J'espère que ç apourra t'aider, car j'ai essayé en vain avec deux couleurs "en bascule"...

en A1, tu mets en Format Conditionnel Condition 1 : =A1<>A2, puis tu sélectionnes une bordure quelconque sur le bas de la cellule.

A+,
Kobaya.

Salut,

Je ne pense pas pouvoir m'en sortir avec la MEFC

Ben, c'est bizarre, puisque si j'ai bien compris ce que tu veux la mise en forme conditionnelle fait l'affaire et il n'y a pas des formules à taper.

J'ai testé avant de repondre et ça marche.

Tu vas seulement dans le Menu Format/Mise en forme conditonnelle et tu configure ce que tu as besoin.

lami20j

En fait, si je trouve comment on définit "la cellule juste au-dessus" sous forme de formule, je pourrai m'en sortir avec les conditions "la valeur est différente" et "la valeur est égale".

Pouvez m'aider siouplait?

Re,

ce n'est pas ça que tu veux

Donc Menu Format /Mise à jour conditonnelle te donne ça
http://cjoint.com/?htqNsJ2QP6

Et le fichier après

http://cjoint.com/?htqOvmIvvc

J'ai selectionné la colonne entière, ainsi si jamais tu ajoutes un nom il sera tout de suite coloré.

lami20j

Merci lami mais ta solution marche parfaitement lorsque tu as 3 noms différents...
Dans mon cas, je repete qu'il s'agit d'une base de donnée, des noms différents, j'en ai plus de 500 et la MEFC ne peut en différencier que 3...

Ceci dit, c'est tout à fait le résultat visuel que je veux, mais pour beaucoup plus de noms! ;)

Re,

MEFC ne peut en différencier que 3...


Oups! je n'ai même pas remarqué.
Essaie ça par exemple.
J'espère que tu trouveras une solution meilleure

Option Explicit
Option Compare Text

Sub color_nom()

Dim nom As String
Dim i As Long

For i = 1 To Range("a65536").End(xlUp).Row
nom = Cells(i, 1)
    Select Case nom
        Case Is = "DUPONT"
            Cells(i, 1).Interior.ColorIndex = 27
        Case Is = "MARTIN"
            Cells(i, 1).Interior.ColorIndex = 43
        Case Is = "MICHEL"
            Cells(i, 1).Interior.ColorIndex = 31
        Case Is = ""
            Cells(i, 1).Interior.ColorIndex = 10
    End Select
Next i
End Sub

Re,

je ne peux pas m'amuser à faire 500 'case'

C'est vrai, mais ça depends si ça vaut ou pas le coup.

Comme je t'ai dit J'espère que tu trouveras une solution meilleure

si ajout de nouveau nom il y a, l'utilisateur n'est pas sensé savoir qu'il faut toucher le code et rajouter un 'case'...

Je suis d'accord, mais de toute façons si tu veux utiliser une couleur pour chaque nom par exemple t'es obligé de choisir un code couleur (un code couleur aleatoire ne t'aidera pas trop, tu n'auras pas le contrôle).

Et même si MEFC avait plus de 3 conditions t'était obligé de configurer la couleur pour chaque nom (plus de 500).

Je pourrai t'aider de faire les cases même si tu as 65535 (je laisse une ligne pour en-tête), et pas en les tapant mais avec un script.

Tu n'as qu'à me donner la liste des noms. En revanche il me semble que pour les couleurs la palette d'Excel est limitée.

lami20j

Non non non! Pas une couleur par nom!
Comme je l'ai expliqué dans l'exemple, deux couleurs suffiraient!

si vous avez besoin d'une idée du résultat : thibane@hotmail.com