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
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
A voir également:
- Vba couleur onglet
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
3 réponses
choubaka
Messages postés
39375
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
14 avril 2024
2 100
24 oct. 2013 à 13:11
24 oct. 2013 à 13:11
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
24 oct. 2013 à 13:19
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
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
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
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 ?
"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 ?
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
24 oct. 2013 à 14:20
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
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
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
24 oct. 2013 à 14:45
Elle marche du tonnere !!!!
Un très grand merci à toi !!! vraiment super.
Un très grand merci à toi !!! vraiment super.
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
24 oct. 2013 à 14:55
24 oct. 2013 à 14:55
de rien, mets juste en résolu le post stp (en dessous de la ligne du titre).