Discussion :

[froggyaz]

bonjour,

J'essaie de creer une macro pour colorer en nuance des cellules, en fonction du chiffre quelles contiennent, en pourcentage (bleu ciel = 0% --> bleu roi = 100%)
j'ai le code suivant mais lorsque j'execute sur la colonne J et sur 100 valeur (1 a 100), il n'y a que quatre ton de bleu, un pour 1 a 10, un pour 11 a 50, 51 a 69 et un de 70 a 100.

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
Private Sub CommandButton1_Click()
Dim i As Integer
Dim inhib As Integer
 
Range("J2").Select
    For i = 2 To 101
        inhib = ActiveCell.Value
        inhib = (100 - inhib)
        inhib = inhib * 255 / 100
        ActiveCell.Interior.Color = RGB(0, inhib, 255)
'        TextBox1.BackColor = RGB(0, int(i* 255 / 100)), 255)
        ActiveCell.Offset(1, 0).Select
    Next i
 
End Sub

peut-etre que c'est une question de palette de couleur qui est trop restreinte sous excel.
Merci pour votre aide.
Fred

[Qwazerty]

Salut
Oui il semble qu'effectivement se soit lié a un limite de la palette couleur.
Voici un test pour le confirmer.
J'ai également profité de l'occasion pour modifier un peu la structure de ton code et supprimer les Select inutiles.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim i As Integer
Dim inhib As Integer
 
    For i = 2 To 101
        With Cells(i, "J")
            inhib = (100 - .Value) * 255 / 100
            .Interior.Color = RGB(0, inhib, 255)
            Cells(i, "K") = inhib
            Cells(i, "L") = .Interior.ColorIndex
        End With
    Next i
 
End Sub

++
Qwaz

[ESVBA]

Avec 2007, on a les nuances de couleurs avec le code de Qwazerty.

ESVBA

[froggyaz]

Bonjour,
et merci Qwaz pour la rectification du code. malheureusement celui-ci me donne le meme resultat, meme si ma valeur pour G dans RGB diminue progressivement de 255 a 0, elles ne me renvoient que quatre colorindex. Je travaille sous excel 2003 donc le commentaire de ESVBA peut servir d'explication.
Merci pour votre aide en tous cas.
Fred