Coloriser les onglets quand le mois est finis

Bonjour, connaissant rien au vba, et je sais que je doit passer par la au vu de mes recherches, je souhaiterai coloriser un onglet de feuilles lorsque le mois en cours est terminer.

Exemple , j'aimerai que le mois de mai soit en rouge quand on sera le 1er juin

Merci par avance pour m'aiguiller un peu

Bonjour,

Il faudrait en dire un peu plus,:

- Toutes les feuilles du classeur ne comportent-elles que le nom des mois ou y en a t-il d'autres avec des noms différents?

- Comment sont écrits les mois:

sous forme numérique 1,2, ....12?,

sous forme alphabétique mais avec les mois abrégés: "janv, févr... déc"?

sous forme alphabétique mais avec les mois en entier "janvier, février... décembre",

ou encore sous forme de date: "01/01/2022, 0102/2022 ....01/12/2022 ?

- Y a -t-il plusieurs années, donc plusieurs fois les mêmes mois?

Cdlt

Bonjour à tous

Greg59du13 a écrit :

je souhaiterai coloriser un onglet de feuilles lorsque le mois en cours est terminer.

Un mois terminé n'est plus en cours donc c'est le mois -1 par rapport à la date du jour...

Mais comme indiqué par Arturo sans plus de détail...

Bonjour Arturo83 et merci

- Toutes les feuilles du classeur ne comportent-elles que le nom des mois ou y en a t-il d'autres avec des noms différents?

Alors il y a d'autres feuilles (3) avec des noms différents

- Comment sont écrits les mois:

sous forme numérique 1,2, ....12?,

sous forme alphabétique mais avec les mois abrégés: "janv, févr... déc"?

sous forme alphabétique mais avec les mois en entier "janvier, février... décembre",

ou encore sous forme de date: "01/01/2022, 0102/2022 ....01/12/2022 ?

Les feuilles concernant les mois sont afficher en alphabétique de la sorte : Mai, Juin, Juillet, etc....

- Y a -t-il plusieurs années, donc plusieurs fois les mêmes mois?

Non un classeurs = 1 année donc plus facile à gérer ;) merci de ton intervention.

78chris : Merci de ton intervention, je connais niveau formule mais en vba c'est bien plus compliqué pour moi

Cordialement,

Je n'ai pas trouvé comment modifier mon message précédent .
concernant les feuilles

A savoir, le classeur et de cette année, et donc commence à partir du mois de MAI

Voici les Feuilles qui correspondent aux noms des mois de l'année

feuille 4 (Mai), 5(Juin), 6(Juillet), 7(Août), 8(Septembre), 9(Octobre), 10(Novembre) et 11(Décembre)

Bonjour

Je n'ai pas fait allusion aux formules mais juste relevé la logique de ton propos

A placer dans le Workbook.open()

    Mois = WorksheetFunction.Proper(MonthName(Month(Date) - 1))
    With Worksheets(Mois)
     If .Tab.Color <> 255 Then .Tab.Color = 255
    End With

Pour tester ajoute Avril sinon il te faudra attendre 3 semaines, lol...

EDIT : on pourrait ajouter un contrôle au cas où la feuille n'existe pas...

    Mois = WorksheetFunction.Proper(MonthName(Month(Date) - 1))
    If Not Evaluate("ISREF('" & Mois & "'!A1)") Then Exit Sub
    With Worksheets(Mois)
        If .Tab.Color <> 255 Then .Tab.Color = 255
    End With

Merci chris, par contre désolé a quel endroit dois-je ajouter Avril pour tester ? et workbook.open je n'ai pas par contre j'ai Thisworkbook
Merci

C'est bon j'ai trouvé , ça marche nickel merci beaucoup en tout cas ;)

RE

Merci du retour