marquage d'onglet

[andré]

Salut à toutes et à tous,

Je ne peux pas partir en week-end sans vous poser une question !

Dans un classeur (modèle) avec une série d'onglets nommés 01, 02, 03, ..., je souhaite marquer d'une façon quelconque (je n'ai pas l'option de couleur d'onglet, sujet traité dernièrement) les onglets des feuilles dont la date, mentionnée à un endroit précis de chaque feuille (par exemple en A1) est antérieure à la date d'aujourdhui.
Une variante serait de dire si une cellule précise (somme) n'est pas vide.

Je suppose qu'en VBA il y a moyen, au moyen d'une macro évenentielle en boucle à l'ouverture du classeur, de modifier le nom des onglets, par exemple en 01*, 02*, ...
Sans macro ce serait évidemment mieux !

Pas du tout urgent, profitez avant tout de votre week-end, que je vous souhaite reposant.

Ândré.

 

[Didier]

Bonjour André
j' ai trouvé ce fichier il y a quelques jours en le bricolant peut être que...
A+Didier

 

[SYL'S]

salut à tous le forum,

petite question en dehors du sujet.

dans le fichier onglets de didier, il y a un bouton indiqué "macro" . et je n'arrive pas à modifier le nom, sa taille, son emplacement ???

j'ai regardé le VBA rien...

A plus et bonne soirée.

 

[Celeda]

Bonjour,

Syls : tu vas dans la petite equerre et tu cliques dedans
puis tu choisis Propriété et tu changes comme tu veux la couleur
le nom , ect... pour la taille tu redimensionnes directement aussi dans
la page.
Je t'envoie par email une copie ecran (le fichier fait 57 ko tout zippppppppppppé)

Bonne soirée
Celeda

 

[SYL'S]

Merci Celeda, pour ce petit cours du samedi soir.

@plus Syl's

 

[zon]

Bonsoir à tous,


Andre la macro suivante que tu retrouveras dans le fichier joint:

Par contre autre contrainte d'Excel le caractère" *" ne peut pas être mis dans le nom d'une feuille de calcul, ici je l'ai remplacé par N.

1ere Variante avec une date en A1

Sub Renom()
Dim WS As Worksheet
Dim Dat As Date
Dat = [today()] 'Recupération de la date du jour
For Each WS In Worksheets
If WS.[A1] < Dat Then ' feuille dont la date contenue en A1 est < à la date du jour
MsgBox "La feuille " & WS.Name & " est > à aujourdh'ui " & Dat & vbCrLf & vbCrLf & "elle sera nommée " & WS.Name & "N" 'ICI le msgbox pour montrer ce qu'on fait, à supprimer
On error Resume next 'Evite un message d'erreur si la feuille s'appelle déjà 02N par exemple
WS.Name = WS.Name & "N" ''''On renomme la feuille
End If
Next WS
End Sub




DIDIER, rajoute On error resume next quand tu renommes une feuille cela évite le message que le nom de feuille existe déjà...


A+++

 

[Celeda]

Bonsoir,


André en avait rêvé, Zon l'a fait !


Super cette ptite macro. Merci
T'es un grand gâté André.

Bon dimanche
Celeda

 

[zon]

Re,

Merci Celeda, je vais pouvoir aller danser ...



RDV sur le chat..


A+++

 

[andré]

Salut à toutes et à tous,

Je rentre de week-end.
Vous avez tous bien travaillé et je vous en remercie (lol).

Je regarde dès que j'ai cinq minutes, et je vous tiens au courant.

Bonne semaine.
Ândré.