Colorer un onglet en fonction de conditions
Bonjour à tous,
J'ai déjà trouvé beaucoup de solutions à mes problèmes, soit en parcourant le forum, soit en posant mes questions. Merci à tous ceux qui prennent le temps de nous aider.
Ma question est simple mais je n'ai pas trouvé de réponse adaptée à ma situation (ou j'ai mal cherché...)
Je souhaiterais que la couleur de mon onglet SALSA_Ad_Demi soit verte si la cellule E3 contient une donnée et en rouge si elle est vide. Il n'y a que cette cellule à tester puisqu'elle se remplie déjà sous condition du nombre de participants...
A tous ceux qui pourront m'apporter une réponse, merci.
Bonjour,
à tester,
With ActiveWorkbook.Sheets("SALS_Ad._demi")
If .Range("E3") = "" Then
.Tab.Color = 255
Else
.Tab.Color = 65280
End If
End WithBonjour,
Si je comprend bien la cellule E3 change quand la feuille Participants change.
Si joint un test avec le code vba sur l'évènement feuille "Participants" change.
Code adaptable avec les lignes vba de i20100 beaucoup plus simples
Merci pour vos réponses.
@i20100 : où placer ton code pour que ça fonctionne ?
@Xmenpl : j'ai testé ta solution mais l'onglet ne se colore pas en vert lorsque j'ai plus de 7 inscrits. Au contraire il ne met pas de couleur...
re,
@i20100 : où placer ton code pour que ça fonctionne ?étant donné qu'il y a une formule en cellule "E3"
je mettrais le code dans l'événement calculate de l'onglet "SALS_Ad._demi"
Private Sub Worksheet_Calculate()
With ActiveWorkbook.Sheets("SALS_Ad._demi")
If .Range("E3") = "" Then
.Tab.Color = 255
Else
.Tab.Color = 65280
End If
End With
End SubMerci i20100 !
Ça fonctionne impeccable !
C'est le top !
Merci pour vos réponses.
@i20100 : où placer ton code pour que ça fonctionne ?
@Xmenpl : j'ai testé ta solution mais l'onglet ne se colore pas en vert lorsque j'ai plus de 7 inscrits. Au contraire il ne met pas de couleur...
correction pour le fun puisque le code de i20100 est bien meilleurs.
Tu es tout excusé Xmenpl. C'est déjà beau de donner de son temps pour aider les autres...