Colorer en rouge un onglet

Question

Bonjour,

J'aimerai colorer en rouge les onglets dont la colonne C contient une valeur différente de 0. La feuille excelle contenant 500 onglets nommés de 1 à 500.

En vous remerciant par avance.

Cordialement

@¿@ · Answer

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

@+

atb · Answer

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 ;)

@¿@ · Answer

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.

atb · Answer

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.

atb · Answer

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???

atb · Answer

Bonjour,

quelqu'un connaitrait il le code demandé??

Merci

atb · Answer

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 ;)

@¿@ · Answer

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)
@+

@¿@ · Answer

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
@+

atb · Answer

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 :)

Colorer en rouge un onglet

10 réponses

Votre réponse

Discussions similaires

Newsletters