Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro Qui Change La Couleur Selon Critere

Cazinos

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Repose en paix
Re : Macro Qui Change La Couleur Selon Critere

Bonjour,

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

JB
 

Pièces jointes

  • Classeur1.xls
    15 KB · Affichages: 72
  • Classeur1.xls
    15 KB · Affichages: 76
  • Classeur1.xls
    15 KB · Affichages: 76

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Macro Qui Change La Couleur Selon Critere

Code:
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
 

Pièces jointes

  • Classeur1.xls
    27 KB · Affichages: 95
  • Classeur1.xls
    27 KB · Affichages: 116
  • Classeur1.xls
    27 KB · Affichages: 111

Sylvain59

XLDnaute Occasionnel
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+
 

Pièces jointes

  • Mise en forme conditionnelle.zip
    21.8 KB · Affichages: 55
  • Mise en forme conditionnelle.zip
    21.8 KB · Affichages: 53
  • Mise en forme conditionnelle.zip
    21.8 KB · Affichages: 55

Cazinos

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Repose en paix
Re : Macro Qui Change La Couleur Selon Critere

Code:
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Repose en paix
Re : Macro Qui Change La Couleur Selon Critere

Bonjour,

Voir PJ

JB
 

Pièces jointes

  • Classeur1.xls
    23.5 KB · Affichages: 77
  • Classeur1.xls
    23.5 KB · Affichages: 79
  • Classeur1.xls
    23.5 KB · Affichages: 86

Cazinos

XLDnaute Occasionnel
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
 

Gael

XLDnaute Barbatruc
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:

Code:
=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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…