Couleur des cellules dans les macros

[olic95]

Salut à tous,

Me revoilà !

Je veux changer la couleur des cellules (en fonction de leur valeur par exemple) dans une plage :

For Each LETTRE In TABLEAULETTRES
CELLULE = LETTRE & '6'
Range(CELLULE).Select
While Not IsEmpty(ActiveCell.Value)
If ActiveCell.Value > 2 Then
With ActiveCell
.Interior.ColorIndex = 3
End With
Else
ActiveCell.Interior.ColorIndex = 50
End If
ActiveCell.Offset(1, 0).Select
Wend
Next LETTRE

Message d'erreur : Impossible de définir la propriété ColorIndex de la classe Interior.

Si quelqu'un peu m'aider... :S

Merci.

Olivier.

 

[pierre]

slt

bizarre ton code.

une autre interprétation :

Dim LETTRE As Range
Dim TABLEAULETTRES As Range

Set TABLEAULETTRES = Range('a1:g1') 'ta plage de travail à définir

For Each LETTRE In TABLEAULETTRES
If LETTRE > 2 Then
LETTRE.Interior.ColorIndex = 3
Else
LETTRE.Interior.ColorIndex = 50
End If
Next LETTRE

bye

 

[olic95]

Salut Pierre,

Même punition, même message :evil:

J'admets que mon code puisse être bizarre, j'ai été tout sauf formé sur VBA... alors c'est un peu de la bidouillle. En général ça fonctionne, mais là rien à faire.

Une autre idée ???

 

[olic95]

olic95 écrit:

Salut Pierre,

Même punition, même message :evil:

J'admets que mon code puisse être bizarre, j'ai été tout sauf formé sur VBA... alors c'est un peu de la bidouillle. En général ça fonctionne, mais là rien à faire.

Une autre idée ???

Heu OOOPSSSS.... feuille protégée... toutes mes confuses, ta solution fonctionne Pierre. Merci mille fois.