VBA - Comment rechercher un intervalle ?

[Miko]

Je souhaite adapter un bout de VBA que j'ai obtenu sur ce forum mais pour des intervalles de nombres. J'utilise Excel 97.

1er point.

ElseIf cell.Value = "10" Then
cell.Interior.ColorIndex = 15

Je voudrais remplacer "10", par exemple, par "compris entre 0 et 9" ou "compris entre 10 et 19" ou "supérieur à 20".



2. point.

La palette de ColorIndex ne me suffit pas, existe-t-il un moyen d'indiquer des couleurs sur le principe RGB (0, 0, 0) ?


D'avance merci pour ces 2 eclaircissements.

Miko

 

[Arnaud]

salut.
déja pour le 1:

ElseIf (( cell.Value > "0" AND cell.Value < "9" ) OR ( cell.Value > "0" AND cell.Value < "9" ) or ( cell.Value > "20" ) ) Then
cell.Interior.ColorIndex = 15

 

[Arnaud]

et pour le 2:

cell.Interior.PatternColor = RGB(255, 0, 0)

 

[Arnaud]

ps : je n'ai pas excel97 donc je ne peut pas t'assuré que cela fonctionne dessus

 

[Miko]

Merci beaucoup ! Merci beaucoup !

Bah oui, il y avait deux points ! ))

Miko

PS : Pour Excel 97, ce n'est pas grave, je viens d'apprendre qu'on va me changer ma version bientôt, dans 1 mois ou 2 :-(

Encore merci