Discussion :

[jori78]

Bonjour,

J'ai une classeur Excel avec 3 colonnes B, C et E dont la saisie commence à la ligne 7 jusqu'à 110. la colonne E pour saisir des valeurs.
Je veux lorsque je saisie une valeur en E, qu'elle soit comparée aux cellules B et C
_ si la valeur de E est inférieur à B, que la cellule E prenne la couleur rouge
_ si la valeur de E est supérieur à C, que la cellule E prenne la couleur rouge

je suis un peu perdu dans mes recherches, quelqu'un peut il m'aider à me mettre sur la voie, en utilisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Change(ByVal Target As Range)

, Merci par avance

[Invité]

Bonjour,

Il faudrait plutôt faire une mise en forme conditionnelle sur votre aire (avec ou sans VBA). Sinon, vous avez la FAQ Excel qui traite des MFC avec VBA mefc#FormCond (cf code de BIDOU)

Ci-dessous un code créé à l'aide de l'enregistreur de macro après avoir créé les MFC sur la première cellule puis modifié. Cette macro ne sert qu'une fois, il est donc inutile de l'utiliser dans un événement de la feuille.

A tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Test()
 
MettreEnFormeConditionnelleLaColonneE Sheets("Feuil1").Range("E7:E110")
 
End Sub
 
Sub MettreEnFormeConditionnelleLaColonneE(ByVal AireAMettreEnForme As Range)
 
    With AireAMettreEnForme
         .Cells.FormatConditions.Delete
         .FormatConditions.Add Type:=xlExpression, Formula1:="=E7<B7"
         .FormatConditions(.FormatConditions.Count).SetFirstPriority
         With .FormatConditions(1).Font
              .ThemeColor = xlThemeColorDark1
              .TintAndShade = 0
          End With
          With .FormatConditions(1).Interior
               .PatternColorIndex = xlAutomatic
               .Color = 255
               .TintAndShade = 0
          End With
 
         .FormatConditions(1).StopIfTrue = False
 
         .FormatConditions.Add Type:=xlExpression, Formula1:="=E7>C7"
         .FormatConditions(.FormatConditions.Count).SetFirstPriority
         With .FormatConditions(1).Font
              .ThemeColor = xlThemeColorDark1
              .TintAndShade = 0
         End With
         With .FormatConditions(1).Interior
              .PatternColorIndex = xlAutomatic
              .Color = 255
              .TintAndShade = 0
         End With
        .FormatConditions(1).StopIfTrue = False
     End With
 
End Sub

[jori78]

Merci Eric pour ton aide, ça fonctionne