Coloration des mots selon appartenance aux listes

[x+x=x²]

bonjour,

il faut en fait qu'une macro ou autre mef colore le mot de mes repas selon ce que j'ai établi à droite ;

par exemple s'il trouve en A et/ou B "haricots verts" il devra le colorer en vert comme indiquer en F, ou tout les légumes répertoriés sont en vert, de même pour le reste.​

merci d'avance

 

[Tibo]

Re : Coloration des mots selon appartenance aux listes

Bonjour,

S'il s'agit de mettre plusieurs couleurs dans une même cellule, ça se fera par macro, et là je ne sais pas faire.

Pour le compte de chaque mot, je te propose ceci en G2 :

=SOMMEPROD((ESTNUM(CHERCHE(F2;$A$1:$B$30)))*1)

à recopier vers le bas, puis vers J2; ...

@+

 

[x+x=x²]

Re : Coloration des mots selon appartenance aux listes

merci bien je teste.

 

[pierrejean]

Re : Coloration des mots selon appartenance aux listes

Bonjour X+X=X au carré

Salut Tibo

Ton fichier avec la formule de mon ami Tibo et une petite macro

Sub colore()
Set leg = Range("F2:F" & Range("F65536").End(xlUp).Row)
Set vian = Range("I2:I" & Range("I65536").End(xlUp).Row)
Set fec = Range("L2:L" & Range("L65536").End(xlUp).Row)
Set div = Range("O2:O" & Range("O65536").End(xlUp).Row)
Set tout = Application.Union(leg, vian, fec, div)
For Each cel In Range("A1:B" & Range("A65536").End(xlUp).Row)
  For Each c In tout
    X = InStr(cel, c)
    If X <> 0 Then
       cel.Characters(Start:=X, Length:=Len(c)).Font.Color = c.Font.Color
    End If
  Next c
Next cel
End Sub

 

[anthoYS]

Re : Coloration des mots selon appartenance aux listes

Bonjour,

Bien vu pierrejean !

 

[x+x=x²]

Re : Coloration des mots selon appartenance aux listes

merci à vous