pb vba colorier cellules

Question

Bonjour, 

Voila mon problème, j'ai un tableau qui permet de calculer un indice (somme de deux moyennes), et je voudrais que quand l'indice est inférieur à 65 la case se colore. J'ai trouvé un code mais malheureusement cela me colore toutes les cases et ne respecte pas les conditions
je vous mets ce que j'ai écrit:

If Not IsEmpty(Sheets("donnees").Range("N5")) And Sheets("donnees").[N5] < 65 Then Sheets("donnees").Range("N5").Interior.ColorIndex = 3
If Not IsEmpty(Sheets("donnees").Range("N6")) And Sheets("donnees").[N6] < 65 Then Sheets("donnees").Range("N6").Interior.ColorIndex = 3

 et je dois répéter ces formules treize fois

help

ccm81 · Answer

bonjour
- voila un code pour traiter la cellule A1

With Sheets("donnees") 
  If .Range("A1") <> "" And .Range("A1") < 65 Then 
    .Range("A1").Interior.ColorIndex = 3 
  Else 
    .Range("A1").Interior.ColorIndex = 0 
  End If 
End With

- si le code doit etre repete 10 fois sur la colonne A à partir de A1
faire une boucle sur le numéro de ligne

With Sheets("donnees") 
For li = 1 To 10 
  cel = "A" & li 
  If .Range(cel) <> "" And .Range(cel) < 65 Then 
    .Range(cel).Interior.ColorIndex = 3 
  Else 
    .Range(cel).Interior.ColorIndex = 0 
  End If 
Next li 
End With

bonne suite

lermite222 · Answer

Bonjour,
Ce serait beaucoup plus simple avec une MFC, "Mise en forme conditionnelle" (Voir ton aide pour l'employer)
A+

eriiic · Answer

Bonjour,

tu as le droit de répondre sur ce post...
https://forums.commentcamarche.net/forum/affich-20768891-vba-colorer-cellules#p20769613
eric

Pb vba colorier cellules

3 réponses

Discussions similaires

Newsletters