vba mise en forme conditionnelle

Version imprimable

06/04/2015, 10h23
ZHNEE

vba mise en forme conditionnelle

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
06/04/2015, 11h08
Philippe Tulliez

Bonjour,

Citation:

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
06/04/2015, 11h25
ZHNEE

6 conditions

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 ?
06/04/2015, 11h49
Philippe Tulliez

Bonjour,

Citation:

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.
06/04/2015, 12h19
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

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:

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:

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

06/04/2015, 13h14
ZHNEE

Merci je vais essayer pour faire ma programmation
06/04/2015, 14h03
Philippe Tulliez

Bonjour,
Pour les exemples de la procédure, j'ai utilisé des constantes vbYellow et vbRed pour passer une valeur à la propriété Color.
Cependant, le nombre de constantes de couleur est au nombre de 7, ce qui réduit fortement le choix. Il faut donc utiliser les codes RGB pour passer les valeurs aux propriétés Color.
Pour se familiariser avec ces codes, il est utilise de lire ce tutoriel Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB
Comme manifestement, ce sont tes premiers pas avec VBA, je te conseille également la lecture de Initiation au VBA Office.
Ce dernier tutoriel entre autres donne un aperçu de l'éditeur de VBA (VBE), explique les structures décisionnelles comme SI et SELECT CASE, la notion de variables, etc.