Discussion :

[ZHNEE]

Bonjour,
Voici mon problème
Je n’arrive pas à programmer avec excel 2003, les mises en forme conditionnelles. Je ne sais pas utiliser VBA.
Pour chaque ligne de mon tableau en feuille 1 je souhaiterai :
- Si valeur sup à ± 3 ET case rouge
- Si valeur sup limite supérieure case rose
- Si valeur inf limite inférieure case rose
- Si variation entre deux valeurs consécutives de ± 4 ET case en violet
Dans le calcul de la moyenne et écart type (ET), omettre les valeurs qui correspondent à une de ces 4 conditions ci dessus.
Puis 2 conditions suivantes (les valeurs sont prises pour calcul de la moyenne et ET)
- Si deux valeurs consécutives sup à 2 ET et inf à 3 ET, la deuxième case en jaune
- Si 10 valeurs consécutivement en dessous ou au dessus de la moyenne, la dixième valeur case grise.
En PJ mon tableau excel en projet.
Merci pour votre aide

[Philippe Tulliez]

Bonjour,

Je n’arrive pas à programmer avec excel 2003, les mises en forme conditionnelles.

La mise en forme conditionnelle pour les versions inférieures à 2007 sont limitées à 3 règles pour la même plage de cellules.
Pour le reste c'est relativement simple.
1) Sélection des cellules
2) Application de la règle
3) Déterminer le format à appliquer si la condition définie par la règle est vraie.
A lire La mise en forme conditionnelle dans Excel

[ZHNEE]

Merci pour votre réponse.
Oui j'arrive à programmer pour 3 conditions , mais j'en ai 6 , avez vous une solution pour contourner le problème ?

[Philippe Tulliez]

Bonjour,

Oui j'arrive à programmer pour 3 conditions , mais j'en ai 6 , avez vous une solution pour contourner le problème ?

Sauf à programmer le tout en VBA ou à passer à une version postérieure à 2003, je ne vois pas de solution.

[ZHNEE]

Qui peut me faire une première condition en VBA , pour que j'utilise ce code pour les autres conditions que j'essaierai de programmer ?
Merci beaucoup

[Philippe Tulliez]

Bonjour,
Voici un petit exemple d'une procédure qui parcourt toutes les cellules de colonne 4 d'une liste de données dont la première cellule se trouve en A1 de la feuille nommée [db] du classeur où est écrit le code.
Cette procédure met l'intérieur de la cellule en jaune si la valeur est comprise entre 2500 et 3000 et met le caractère de la police en rouge si la valeur de la cellule est inférieure à 2500.
Si aucune condition n'est remplie on initialise les formats couleurs de la cellule.

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
Option Explicit
 
Sub TestConditionalFormatting()
 Dim rng As Range, Cell As Range
 Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 ' Parcourt toutes les cellules de la colonne 4 de la liste de données
 For Each Cell In rng.Columns(4).Cells
  With Cell
   If IsNumeric(.Value) Then ' Vérifie si le type de valeur est bien numérique
    Select Case .Value
     Case 2500 To 3000 ' Entre 2500 et 3000
      .Interior.Color = vbYellow ' Intérieur de la cellule en jaune
     Case Is < 2500    ' Plus petit que 2500
      .Font.Color = vbRed
     Case Else ' Ne répond à aucun critère
      ' Initilaise les cellules
      .Interior.Color = vbWhite
      .Font.Color = 0
    End Select
   End If
   End With
 Next
End Sub

Comme les critères seront multiples et que je n'aime pas répéter des instructions inutilement, je préfère travailler avec des variables (pour l'exemple : IntColor et FontColor) et ainsi faire la mise en forme en terminant les tests de conditions.
Cela facilite la maintenance
Exemple

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
Sub TestConditionalFormatting()
 Dim rng As Range, Cell As Range, IntColor As Long, FontColor As Long
 Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 ' Parcourt toutes les cellules de la colonne 4 de la liste de données
 For Each Cell In rng.Columns(4).Cells
  With Cell
   If IsNumeric(.Value) Then ' Vérifie si le type de valeur est bien numérique
    Select Case .Value
     Case 2500 To 3000 ' Entre 2500 et 3000
      IntColor = vbYellow ' Intérieur de la cellule en jaune
     Case Is < 2500    ' Plus petit que 2500
      FontColor = vbRed
     Case Else ' Ne répond à aucun critère
      ' Initilaise les cellules
      IntColor = vbWhite
      FontColor = 0
    End Select
    ' Mise en forme des cellules
    .Interior.Color = IntColor: .Font.Color = FontColor
    '
   End If
   End With
 Next
End Sub