renommer les onglets automatiquement

[chilo]

bonsoir le forum

1° je souhaite que les onglets se renomment automatiquement en prenant la valeur de la cellule D2

2- que le nom des jours du week end se mettent en couleur sachant qu'ils se déplancent

je joins un fichier pour essayer d'expliquer cela merci de votre aide

bonne soirée [file name=chrono1.zip size=39592]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/chrono1.zip[/file]

 

[Dan]

Bonsoir,

voici déjà pour renommer les onglets :

- Vas en VBA par ALT+F11
- CTRL + R pour accéder à VBA project à gauche
- double clique sur la feuille 'mai' dans ton classeur posté ici
- à droite dans la fenetre place cette macro

Private Sub Worksheet_Activate()
ActiveSheet.Name = Range('D2')
End Sub

- enregistre ton classeur

En cliquant sur l'onglet de cette feuille, son nom sera changé.

Pace cette macro dans chacune des feuilles pour laquelle tu veux changer le nom en focntion de D2.



EDITION : mets plutôt cette macro ci

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Name = Range('D2')
End Sub

Là dès que tu changeras la valeur ta liste en D2, la feuille sera renommée.


Message édité par: Dan, à: 14/05/2006 23:05

 

[Bricofire]

Bonsoir Chilo,

Pour tes WE, tu peux adapter un truc du genre, en admettant que tu as nommé la plage des jours du mois : Moit

Sub Bricoxld()
For Each Cell In Range('Moit')
If Cell = 'samedi' Or Cell = 'dimanche' Then
Cell.Interior.ColorIndex = 6
End If
Next Cell
End Sub


Pour ce qui est des noms d'onglet tu peux adapter :

Activesheet.name = range('D2')

bien que si on peut le faire varier, une feuille qui change de nom en cours de route ??

Bonne soirée,

Brico

 

[Bricofire]

Arf, Dan Collision

Bonsoir à toi, excuses, j'ai voulu répondre aux 2 d'un coup et je n'ai pas rafraîchi :whistle:

Bonne soirée,

Brico

 

[chilo]

bonjour bricofire

merci pour ta rapidité je vais l'essayer dans la journée
bonne journée

 

[chilo]

bonsoir bricofire

j'ai essayé cela à fonctionner la 1ere fois mais dès que le samedi et le dimanche change de cellule cela ne fonctionne plus et les cellules conservent la couleur jaune

j'aurai voulu que les couleurs se déplacent avec

en tout cas merci

 

[Dan]

Bonsoir,

Une MFC devrait faire l'affaire. Suis donc cete procédure :

- Dans la feuille 'MAI' sélectionne A7
- Menu / format / mise en forme conditionnelle
- dans la liste 'valeur cellule est', choisi 'formule'
- à droite place cette formule --> =OU($A7='dimanche';$A7='samedi')
- clique sur 'format' puis 'motif' pour choisir une couleur
- confirme par OK
- ensuite sélectionne A7 puis fais copier
- sélectionne A8 à A37
- Menu / edition / collage spécial et coche la case 'format' puis OK

Change le mois dans ta liste et vois si cela te convient.

Il te suffit de refaire cela sur les autres feuilles.

 

[Bricofire]

Bonsoir Chilo, Dan,

Chilo si tu veux garder du Vba, il suffit de rajouter une petite ligne

Sub Bricoxld()
For Each Cell In Range('Moit')
Cell.Interior.ColorIndex = XlClorIndexNone
If Cell = 'samedi' Or Cell = 'dimanche' Then
Cell.Interior.ColorIndex = 6
End If
Next Cell
End Sub


Attention que c'est sensible à la 'casse' (majuscules)..

Bonne nuit à vous,

Brico,

 

[chilo]

bonjour bricofire

comme d'habitude je vais l'essayer dans la journée.
merci

pour les onglets du classeur (mois de l'année) je voulais automatiser tout cela, en donnant au premier classeur le nom d'1 mois, je voulais que les autres onglets prennent automatiquement la suite. Mes collegues m'incitent à faire toujours un peu plus.
Sachant qu'on peut toujours compter sur vous alors je m'implique et j'apprends avec votre aide
ce dont je ne vous remercierai jamais assez
merci à tous

 

[chilo]

rebonjour
pour compléter ce programme, j'ai complétement oublié comment faire pour que l'année change automatique
merci de me rafraichir la mémoire
merci et bonne journée

 

[Bricofire]

Re tout le monde,

Dans la case voulue :

=ANNEE(AUJOURDHUI())

Bonne journée,

PS : si tu es sur un portable et que tu fais un long voyage suivant que tu voles dans un sens ou un autre si tu es le 31/12 ou le 01/01, penses à changer le fuseau horaire de Windows :silly:

Brico

Message édité par: Bricofire, à: 16/05/2006 08:55

 

[chilo]

bonsoir bricofire

merci pour l'aide et le rappel

la mfc me convient parfaitement

merci beaucoup et a++