Macro: Changement de couleur d'onglet sous condition

Résolu/Fermé
OlivGFT Messages postés 22 Date d'inscription jeudi 24 octobre 2013 Statut Membre Dernière intervention 28 février 2014 - Modifié par OlivGFT le 24/10/2013 à 13:11
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 24 oct. 2013 à 14:55
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

choubaka Messages postés 39153 Date d'inscription jeudi 4 avril 2002 Statut Modérateur Dernière intervention 24 mars 2023 2 099
24 oct. 2013 à 13:11
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 153
24 oct. 2013 à 13:19
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
0
OlivGFT Messages postés 22 Date d'inscription jeudi 24 octobre 2013 Statut Membre Dernière intervention 28 février 2014
Modifié par OlivGFT le 24/10/2013 à 13:30
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 ?
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 153
24 oct. 2013 à 14:20
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
0
OlivGFT Messages postés 22 Date d'inscription jeudi 24 octobre 2013 Statut Membre Dernière intervention 28 février 2014
24 oct. 2013 à 14:45
Elle marche du tonnere !!!!
Un très grand merci à toi !!! vraiment super.
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 153
24 oct. 2013 à 14:55
de rien, mets juste en résolu le post stp (en dessous de la ligne du titre).
0