Colorer en rouge un onglet

onglets ou cellules?
si c est les cellules, ca ca marche

Sub colorier()
Dim i As Integer
For i = 1 To 500
If Range("C" & i).Value <> 0 Then
Range("C" & i).Interior.ColorIndex = 3
Else
Range("C" & i).Interior.ColorIndex = xlNone
End If
Next
End Sub

@+

Merci pour ta réponse qui m'aide un peu mais ce que je cherchai c'est de colorer les onglets dont au moins une cellule de la colonne C est différente de 0

Merci encore ;)

je ne pense pas qu on puisse colorer des onglets ou en tous cas je n en ai pas trouvé la commande. desole.
par contre tu peux lancer un msgbox t indiquant la cellule et la feuille impliquée.

Bonjour et merci de ton aide,

peut-on à la place de colorer l'onglet , remplacer son nom par un autre, par exemple si dans l'onglet 1 la une valeur de la colonne C est différentes de 0 remplacer "1" par "1 - erreur" et ceci pour 500 onglets???

Merci d'avance.

Bonjour,

je suis arriver à changer le nom de mon onglet suivant la valeur de la colonne C mais je n'arrive pas à mettre "erreure - 1" pour l'onglet 1 qui à une erreure ect...

Sub erreure()

Dim j As Integer
Dim i As Integer

For j = 1 To 3
Sheets(j).Select

For i = 1 To 60
If Range("C" & i).Value <> 0 Then
Sheets(j).Name = j + 3
Else
Sheets(j).Name = j
End If
Next

Next
End Sub

Je peux renomer "1" en "4" mais je ne peux pas la renomer "erreure - 4"

Comment faire???

Bonjour,

quelqu'un connaitrait il le code demandé??

Merci

Bonjour,
j'ai réussi ce que je voulai faire ou presque...

En fait sur Excel 2000 on ne peut pas changer la couleur de l'onglet :(
Sinon j'ai pu renomer les onglet comportant une erreure.

Voila le code

Sub Renomer()

Dim j As Integer
Dim i As Integer

For j = 1 To 3
Sheets(j).Select

For i = 1 To 60
If Range("C" & i).Value <> 0 Then
Range("C" & i).Interior.ColorIndex = 3
Sheets(j).Name = "erreure" + Str(j)
Else
Range("C" & i).Interior.ColorIndex = xlNone
End If
Next

Next
End Sub

Il renome la feuille et surligne en rouge l'erreure..

Merci pour ton aide ;)

Sub colorier()
Dim i As Integer, x as integer

For i = 1 To 500
on error resume next
Sheets("Feuil" & i).Select
Range("A3").Select
ActiveCell.FormulaR1C1 = "=sum(C[2])"
x = ActiveCell.Value
if x>0 then
Sheets("Feuil" & i).Name = i &"-erreur"
End If
Next
End Sub

voila tu as de quoi renommer ton onglet.
penses a le renommer FeuilX apres traitement :o)
@+

j avais chargé la discussion avant de m absenter. j ai donc pas lu tes evolutions. mais je reste pantois : ou sont tes 500 feuilles?????
enfin l essentiel c est que tu aies resolu ton pb
@+

Bonjour,

en fait j'ai fait un essai pour 3 feuille..
La variable j doit normalement aller de 1 à 500 :)

Merci encore pour ton aide :)