Mise en Forme Conditionnelle - VBA Excel - Couleur selon résultat cellule

[gregcompta]

Bonjour chers experts d'excel,

Je suis tout novice en programmation, avec trèsssss peu de base vba. mais j'aime la programmation 🙂

Pourriez vous m'indiquer svp comment définir la couleur d'une cellule, en passant par du vba, selon le résultat qui se trouve à l'intérieur d'elle même (mais pas que..) :
- si la cellule X = 0, alors en Vert;
- si la cellule X = 0 ET que la cellule Y = "x", alors en Blanc;
- si la cellule X < au montant total ttc, alors orange;
- si la cellule X = montant total ttc, alors en rouge.

Et s'il est possible que cela se fasse sans avoir besoin de cliquer sur quelconque bouton ???

UN GRAND MERCIIII 🙂

 

[Iznogood1]

Re : Mise en Forme Conditionnelle - VBA Excel - Couleur selon résultat cellule

Bonjour,

Peux-tu préciser :
C'est quoi "X" (je suppose que c'est la cellule considérée) ?
C'est quoi "Y" (serait-ce le "total encaissé") ?
Pourquoi préférés-tu une solution VBA à une mise ne forme conditionnelle ?
Ta demande reflète-t-elle l'ordre d'évaluation des conditions (si X = 0 et X < au montant total TTC --> Vert et non orange)

Pour du VBA, un code du style :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, [A1:A50]) Is Nothing Then Exit Sub
  If Target.Value = 0 Then
    Target.Interior.Color = RGB(0, 255, 0)
  ElseIf Target.Value And Target.Offset(0, 1) = Target.Value Then
    Target.Interior.Color = RGB(255, 153, 0)
  'ElseIf ... Then ...
  End If
End Sub

 

[Dranreb]

Re : Mise en Forme Conditionnelle - VBA Excel - Couleur selon résultat cellule

Bonjour.

Et pour metttre des MeFC en VBA au plus court :

Sub Macro1()
Dim Plg As Range
Set Plg = Range("I4:I7")
Plg.FormatConditions.Delete
Plg.FormatConditions.Add(Type:=xlExpression, Formula1:="=ET($I4=0;$J4="""")").Interior.Color = &HFF00&
Plg.FormatConditions.Add(Type:=xlExpression, Formula1:="=$I4=0").Interior.Color = &HFFFFFF
Plg.FormatConditions.Add(Type:=xlExpression, Formula1:="=$I4<$G4").Interior.Color = &HC0FF&
Plg.FormatConditions.Add(Type:=xlExpression, Formula1:="=VRAI").Interior.Color = &HFF&
End Sub