Macro Qui Change La Couleur Selon Critere

[Cazinos]

Bonjour le forum,

Voici une liste de données qui se trouve dans la colonne "G"

Serait-il possible d'appliqué une couleur à la fonte à chaque fois que la macro rencontre une de ces valeurs dans toute la colonne "G" (vert pour les 4 valeur)

merci

BXAB4444
BXAB4444
CFAB4444
CFAB4444
CPAB4444
CPAB4444
SGAB4444
SGAB4444

 

[BOISGONTIER]

Re : Macro Qui Change La Couleur Selon Critere

Bonjour,

-Sélectionner la colonne G
-FormatMFCL formule est
=EQUIV(G1;champ;0)

JB

 

[Cazinos]

Re : Macro Qui Change La Couleur Selon Critere

Merci

c'est une bonne idée
mais si tu colles des données dans la feuille ca ne fonctionne pas
il faut les saisir pour que ca fonctionne

 

[BOISGONTIER]

Re : Macro Qui Change La Couleur Selon Critere

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 7 Then
    For Each c In Target
      If Not IsError(Application.Match(c, [champ], 0)) Then
        c.Interior.ColorIndex = 4
      Else
        c.Interior.ColorIndex = xlNone
      End If
    Next c
  End If
End Sub

JB

 

[Sylvain59]

Re : Macro Qui Change La Couleur Selon Critere

Bonjour
je tejoins un fichier de MDF qui devrait je le pense t'aidre à résoudre ton problème

A+

 

[Cazinos]

Re : Macro Qui Change La Couleur Selon Critere

merci tous c'est ok

 

[Cazinos]

Re : Macro Qui Change La Couleur Selon Critere

juste une autre question sur cette macro qui fonctionne très bien

comment colorier la fonte de la cellule et non pas le fond de la cellule

merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
For Each c In Target
If Not IsError(Application.Match(c, [champ], 0)) Then
c.Interior.ColorIndex = 4
Else
c.Interior.ColorIndex = xlNone
End If
Next c
End If
End Sub

 

[BOISGONTIER]

Re : Macro Qui Change La Couleur Selon Critere

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 7 Then
    For Each c In Target
      If Not IsError(Application.Match(c, [champ], 0)) Then
        c.Font.ColorIndex = 4
      Else
        c.Font.ColorIndex = xlNone
      End If
    Next c
  End If
End Sub

JB

 

[Cazinos]

Re : Macro Qui Change La Couleur Selon Critere

merci

la macro bug sur : c.Font.ColorIndex = xlNone

par contre il y a un autre soucis si on colle les valeurs ca ne marche pas

il faut saisir les cellules une à une

 

[BOISGONTIER]

Re : Macro Qui Change La Couleur Selon Critere

Bonjour,

Voir PJ

JB

 

[Cazinos]

Re : Macro Qui Change La Couleur Selon Critere

merci

en fait, j'avais un esparce après le quatrième "4" CPAB4444

 

[Cazinos]

Re : Macro Qui Change La Couleur Selon Critere

bonjour,

Je viens de penser à une autre solution pour ma MFC

est-il possible de mettre une formule dans la MFC qui ressemble à l'exemple ci-dessous

exemple la formule est: =ou(D=IV1;D=IV2;D=IV3;D=IV3;appliqué la mise en forme);"")
si c'est possible c'est cool

merci

 

[BOISGONTIER]

Re : Macro Qui Change La Couleur Selon Critere

Bonjour

>mais si tu colles des données dans la feuille ca ne fonctionne pas

JB

 

[Gael]

Re : Macro Qui Change La Couleur Selon Critere

Bonjour à tous,

Si tu reprends la première proposition de JB, tu peux mettre en MFC la formule:

=EQUIV(G1;$B$5:$B$12;0)>0

Pour le collage de données, si tu fais un collage spécial (valeurs ou formule), la MFC reste active.

@+

Gael

 

[Cazinos]

Re : Macro Qui Change La Couleur Selon Critere

merci à tous ca fonctionnne et ca rame pas