Macro: Changement de couleur d'onglet sous condition

[Résolu/Fermé]
Signaler
Messages postés
22
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
28 février 2014
-
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
-
Bonjour,

J'ai parcouru beaucoup de forum et je ne trouve pas mon bonheur...
Je cherche une macro excel qui en fonction d'une case me change la couleur de l'onglet:

Si G3 est "OK" alors l'onglet est vert
Si G3 est "PAS OK" alors l'onglet est Rouge.

Je souhaite que cette macro fonctionne pour l'ensemble de mes onglets ( ça peut aller jusqu'a 60 onglets) ( si possible sans inscrire le nom de mes onglets dans le code...)
Pour tous mes onglets c'est bien la case G3 spécifique à chaque onglets qui doit définir la couleur de l'onglet.

j'ai bien une macro que j'ai trouvé mais elle fonctionne que pour un nom d'onglet spécifique:

Sub Onglet()
Range("G3").Select
If Range("G3") = "OK" Then
ActiveWorkbook.Sheets("AZER").Tab.ColorIndex = 5
ElseIf Range("G3") = "PAS OK" Then
ActiveWorkbook.Sheets("AZER").Tab.ColorIndex = 3
End If
End Sub

Merci d'avance pour votre aide
Ps je suis gros gros débutant en macro (et je ne pige pas comment fonctionne les private sub )

3 réponses

Messages postés
38632
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
22 septembre 2021
2 000
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
146
bonjour,

Tu as plusieurs solutions mais tout dépend de tes désirs :

Une macro qui fonctionne dès que tu changes la valeur de la cellule G3 :

dans visual basic éditor, tu copies colles pour chacun des onglets :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

if target.row = 3 and if target.column = 8 then
If Range("G3") = "OK" Then
ActiveWorkbook.Sheets("AZER").Tab.ColorIndex = 5
ElseIf Range("G3") = "PAS OK" Then
ActiveWorkbook.Sheets("AZER").Tab.ColorIndex = 3
end if
end if

End Sub


Si tu veux une macro qui balaie tout tes onglets en vérifiant la valeur de la cellule G3 :

sub marcochangementcouleuronglet ()

dim feuille as variant

for feuille =1 to sheets.count

If sheets(feuille).range("G3") = "OK" then
Activesheet.Tab.ColorIndex = 5
else
If Range("G3") = "PAS OK" Then
Activesheet.Tab.ColorIndex = 3
end if
end if
next
end sub

si tu veux que la macro fonctionne pour toutes tes feuilles sauf une feuille qui s'papelle synthèse par exemple :


sub marcochangementcouleuronglet ()

dim feuille as variant

for feuille =1 to sheets.count

if sheets(feuille).name <> "Synthèse" then

If sheets(feuille).range("G3") = "OK" then
Activesheet.Tab.ColorIndex = 5
else
If Range("G3") = "PAS OK" Then
Activesheet.Tab.ColorIndex = 3
end if
end if
end if
next
end sub
Messages postés
22
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
28 février 2014

Merci. J'ai essayé celle ci

"Si tu veux une macro qui balaie tout tes onglets en vérifiant la valeur de la cellule G3 :

sub marcochangementcouleuronglet ()

dim feuille as variant

for feuille =1 to sheets.count

If sheets(feuille).range("G3") = "OK" then
Activesheet.Tab.ColorIndex = 5
else
If Range("G3") = "PAS OK" Then
Activesheet.Tab.ColorIndex = 3
end if
end if
next
end sub


Mais elle ne fonctionne que si je me place sur l'onglet spécifique.

Mon objectif est d'assigner cette macro à un bouton sur un onglet de présentation. Si je me place sur l'onglet présentation et que je clique sur ce bouton tous les onglets l'actualise en fonction de leurs propre valeur en G3. esce possible ?
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
146
c'est moi qui ai commis une erreur, reprends cette macro :

sub marcochangementcouleuronglet ()

dim feuille as variant

for feuille =1 to sheets.count

If sheets(feuille).range("G3") = "OK" then
sheets(feuille).Tab.ColorIndex = 5
else
If sheets(feuille).Range("G3") = "PAS OK" Then
sheets(feuille).Tab.ColorIndex = 3
end if
end if
next
end sub
Messages postés
22
Date d'inscription
jeudi 24 octobre 2013
Statut
Membre
Dernière intervention
28 février 2014

Elle marche du tonnere !!!!
Un très grand merci à toi !!! vraiment super.
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
146
de rien, mets juste en résolu le post stp (en dessous de la ligne du titre).