XL 2010 changer la couleur d’un onglet à l’ouverture du doc Excel avec une condition

[jeanmi]

J’ai un fichier Excel avec des onglets, autant que de jours dans le mois, sauf les dimanches, plus un dernier onglet qui lui est caché à l'ouverture d'Excel (Il se trouve à la fin de tous les onglets)

Chaque onglet est identifié par une date.
La date est actuellement sous la forme jour-date-moi , avec des – entre chaque information (ex : ven.-1-oct) Il est peut être possible de faire plus simple ?

voici le code que je voulais mettre en place pour créer la date et donc nommer l'onglet,

date_demander = InputBox("Entrer la date de début de création des onglets :")

jour = Day(date_demander)
date = CDate(date_demander)
mois = CDate(date_demander)

nom_N_onglet = Format(date_test, "ddd") & "-" & jour & "-" & Format(mois_test, "mmm")

Nom_onglet_actif = ActiveSheet.Name
Sheets(Nom_onglet_actif).Name = nom_N_onglet

Après, il faut que j'arrive à créer automatiquement tous les autres onglets du mois, sauf les dimanches, mais ça je cherche. Actuellement je pratique 1 par 1 manuellement.

Ce que j’aimerai faire, à l’ouverture du doc Excel :

1- Que l’onglet correspondant à la date du jour soit ouvert
2- Que l’onglet correspondant à la date du jour soit colorisé en bleu par exemple, mais peut-être une autre couleur, à voir la possibilité de changer dans le code cela
2- A la fermeture du doc que l’onglet colorisé repasse à sa couleur initiale

Merci d’avance pour votre aide.

Bien cordialement

 

[ChTi160]

Bonjour jeanmi
Bonjour le Fil ,le Forum
peut être avec ceci

'Donne le dernier jour du mois
NB_JOURS = Day(DateSerial(Year(Date_Select), Month(Date_Select) + 1, 0))
'ou le Nombre de jours
 NB_JOURS = Day(DateSerial(Year(Date_Select), Month(Date_Select) + 1, 1) - 1)

Bonne rentrée
jean marie

 

[jeanmi]

Bonjour jeanmi
Bonjour le Fil ,le Forum
peut être avec ceci

'Donne le dernier jour du mois
NB_JOURS = Day(DateSerial(Year(Date_Select), Month(Date_Select) + 1, 0))
'ou le Nombre de jours
 NB_JOURS = Day(DateSerial(Year(Date_Select), Month(Date_Select) + 1, 1) - 1)

Bonne rentrée
jean marie

Bonjour @ChTi160 , bonjour à tous,

Merci pour cette réponse, mais j'ai déjà le nombre de jour du mois dans une variable (def_nb_jour_mois) et la date dans une autre (def_date_debut) récupérée par inputbox.

Ce que je cherche à faire, c'est Nb_onglets = def_nb_jour_mois - ( formule pour extraire le jour de la date entrée dans la variable def_date_debut , pour avoir un onglet par date à partir de la date demandée.

cordialement

 

[ChTi160]

Re excuse pas compris
Il faut faire une vérification lors de la création des feuilles si la page existe déjà !
Ca pourra ainsi éviter de créer x fois les feuilles dans le classeur.
a voir
pas trop le temps lol
Jean marie

 

[jeanmi]

Re excuse pas compris
Il faut faire une vérification lors de la création des feuilles si la page existe déjà !
Ca pourra ainsi éviter de créer x fois les feuilles dans le classeur.
a voir
pas trop le temps lol
Jean marie

re,

j'ai trouvé

def_nb_jour_mois = Day(DateSerial(Year(def_date_debut), Month(def_date_debut) + 1, 0))

cordialement

 

[ChTi160]

Mdr !
Voir #17
Bonne journée
Jean marie

 

[jeanmi]

Mdr !
Voir #18
Bonne journée
Jean marie

OK j'ai compris, effectivement c'est ce que tu avant donné comme solution #17, mais je n'avais pas compris.
Toutes mes excuses, il fallait tous simplement que je remplace par mes variables. mois j'ai testé tous simplement le code du #17 et ça ne marché pas évidement.

cordialement

 

[ChTi160]

Re
donc tu ne crées pas toutes les dates du mois 1 au 31 (exemple) ?
mais les dates a partir d'une Dates qui sera la première !
Bonne journée
jean marie

 

[jeanmi]

Bonjour @GALOUGALOU , bonjour à tous,

post #16 presque résolus,

Il ne me reste plus que :

a) Dans le code, ci-dessous, je n'arrive pas à comprendre où est défini le a de la boucle , quelle valeur, pourquoi ? merci pour l'explication

For n = 2 To n - a

b) j'ai voulu, cacher les onglets non utiliser, donc modèle et C_postal, et là ça ne semble pas fonctionner ?
Es possible ou pas d'avoir les feuilles de modèle et C_Postal non visible et de pouvoir faire fonctionner la procédure ?

c) j’ai mis en place ma feuille modèle pour faire des essais et j’ai un message que je ne comprends pas ?

Merci encore pour votre aide.

Cordialement

 

[ChTi160]

Re
je pense que tu peux la supprimer et mettre

For n = 2 To n

jean marie

 

[GALOUGALOU]

re jeanmi re chti 160
et bien je ne sais pas expliquer la raison du "a", car ce code je l'avais trouvé et adapté. j'ai essayé en enlevant le "a" et la création des onglets n'est pas correcte.
je suis toujours aujourd'hui à la recherche d'une explication ! Toutes les informations sont les bienvenues !!
cdt
galougalou

 

[ChTi160]

Re
Chez moi les onglets depuis la date saisie jusqu'à la date de fin de mois sont créés.
Je vérifie ce soir.
Jean marie

 

[jeanmi]

re à tous,

n'y connaissant rien j'ai fait des essais et vous donne les résultats :

a) j'ai mis un " Dim a As string" et là tous les onglets ne sont pas réalisés.
Avec une msgbox ça n'affiche pas de données pour a

b) j'ai mis un ( Dim a As Boolean " et là tous les onglets sont réalisés
avec une msgBox ça affiche Faux

Cordialement

 

[ChTi160]

Re Je pense que pour ton besoin il n'y a pas a utiliser cette variable !
Jean marie

 

[jeanmi]

Re Je pense que pour ton besoin il n'y a pas a utiliser cette variable !
Jean marie

re , oui certainement, car ça marche presque, mais j'aurais aimé comprendre sont utilité ?

il y a peut-être une cause à effet dans mon utilisation avec les petits pb que je rencontre su mon fichier donnés au post #24 ?

Cordialement

 

[ChTi160]

Re
y'a aussi un problème a ce Niveau

Private Sub Workbook_Open()
Dim i%, DateJour As String
' les actions qui seront réalisées à l'ouverture du doc
' *** effectuer un zome sur la largeur du tableau ***
    Range("A3:O3").Select '<-------------------ICI
    ActiveWindow.Zoom = True
' recherche l'onglet date jour pour le mettre en couleur bleu
 dt = Date
DateJour = Format(dt, "ddd-dd-mmm")
On Error Resume Next
For i = 1 To ThisWorkbook.Sheets.Count
    If ThisWorkbook.Worksheets(i).Name = DateJour Then
     ThisWorkbook.Worksheets(i).Activate
       ThisWorkbook.Worksheets(i).Tab.ColorIndex = 5 ' couleur bleu = 5
    Exit For
    End If
Next i
'Worksheets(1).Visible = True
'Worksheets(2).Visible = True
'Worksheets(1).Visible = False
'Worksheets(2).Visible = False

End Sub

je pense qu'a l'ouverture le fichier ce demande :"Mais dans quelle Feuille du Classeur je dois sélectionner la plage
"Range("A3:O3")" Lol
lorsque je teste la macro
si je rentre 12/08/2021 j'ai bien les feuilles du 12 au 31 qui sont créées §
jean marie