Couleur de cellule

[nbouyer]

Bonjour à tous,

Est-ce que quelqu'un pourrait me dire comment faire pour utiliser une MFC avec plus de 3 conditions?
Je voudrai appliquer une couleur de fond sur ma cellule en fonction d'un nom choisi, mais le problème c'est que dans ma liste j'ai 6 noms différents et que 3 conditions possible.

Merci d'avance pour votre aide.

@+
Nath

 

[ccpapy]

Re : Couleur de cellule

bonjour,
si tu as plus de 3 conditions, tu es obligée de passer par une macro.
un petit fichier en exemple de ta part nous permettrait de t'expliquer la manière.
à+

 

[Pierrot93]

Re : Couleur de cellule

Bonjour Nath

regarde sur le site de l'ami Didier, une macro qui gère cela :

myDearFriend! Excel Pages - Mon univers Excel... -

bon après midi
@+

Edition : bonjour ccpapy, désolé pour la collision

 

[BOISGONTIER]

Re : Couleur de cellule

Bonjour,

Exemples en PJ

JB

 

[nbouyer]

Re : Couleur de cellule

Voici un fichier exemple, par contre je suis vraiment novice, alors j'espère que les macros c'est pas trop compliqué.

Merci d'avance.

 

[ccpapy]

Re : Couleur de cellule

re,
bonjour à Pierrot93 et BOISGONTIER.
ton fichier ne comporte aucune explication ni aucune couleur qui nous permettrait d'en savoir plus.
tu as pu remarqué que les macros employées par nos 2 amis sont assez complexes pour un novice. il faudrait que tu précises un peu plus tes besoins et surtout quelle couleur pour quel mot , et dans quelle plage de cellule
à+

 

[nbouyer]

Re : Couleur de cellule

Re-bonjour,

Me revoilà avec un fichier exemple, je souhaiterai que la couleur de la cellule se modifie en fonction du nom que je choisirai dans la cellule.

Je sais faire avec une MFC à trois conditions, mais je souhaiterai en avoir 6 (1 couleur par mot)

Merci de me dire si c'est possible sans être trop compliqué pour la novice que je suis.

A+

 

[BOISGONTIER]

Re : Couleur de cellule

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    On Error Resume Next
    Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

JB
Formation Excel VBA JB

 

[nbouyer]

Re : Couleur de cellule

Merci BOISGONTIER, ça marche bien effectivement, mais le problème c'est que je ne suis pas capable de refaire la même chose pour le moment, c'est trop compliqué pour moi.

Dans le même genre mais plus simple, comment pourrais-faire pour qu'une cellule se colorise automatiquement dès qu'elle est renseignée?

Merci encore & bonne soirée à tous.

Nath

 

[BOISGONTIER]

Re : Couleur de cellule

Bonjour,

On ne peut pas faire + simple.

-Nommer le champ couleurs avec insertion/nom/définir

-Clic-droit onglet
-Visualiser le code



JB
Formation Excel VBA JB

 

[nbouyer]

Re : Couleur de cellule

Merci BOISGONTIER !

J'essaierai de m'en reservir si j'arrive à tout comprendre.

Bonne journée
A+
Nath