nom d'onglet en en-tête

AD7 · 30 Novembre 2005

Bonjour le Forum,

Par avance, je vous remercie de votre très précieuse aise...

En effet, voici ma problématique :

J’ai un fichier xls comportant une 30taine de feuilles. Je n’ai pas suffisamment de place pour indiquer leur nom en entier. J’utilise donc des abréviations :
Nom du commercial_initiale du Prénom_Zone de travail
Feuille 1 => DUPONT_E (Zone A)
Feuille 2 => DUMONT_P (Zone B)
Feuille 3 => MARTIN_A (Zone A+B)…
Sachant que la zone de travail peut changer d’une année sur l’autre. Les zones A et B sont donc précisées sur l’onglet « Acceuil ». Il n’y aurait donc qu’une cellule à modifier pour avoir tous les onglets à jour (lors de l’impression).

Aussi, à l’impression, je souhaite voir en-tête :

Feuille 1 => DUPONT Emile – Franche Comté
Feuille 2 => DUMONT Pierre – Nord
Feuille 3 => MARTIN Arnaud – Franche Comté et Nord
Etc…

Comment puis-je faire ????

Je suis complètement « sèche » sur la question…

Si je ne suis pas assez claire, n'hésitez pas à me demander des précisions.

AD

dg62 · 30 Novembre 2005

bonsoir AD7

ce bout de code collé sur un bouton peut faire l'affaire.

Il faut simplement l'adapter au nombre de tes feuilles et inscrire dans la colonne A le nom de tes différentes feuilles.

Code:

Sub rename_onglet()
For i = 1 To 3
nom_onglet = Range('A' & i).Value
Sheets(i).Name = nom_onglet
Next i
End Sub

Message édité par: dg62, à: 30/11/2005 18:22

nom d'onglet en en-tête

AD7

Guest

dg62

XLDnaute Barbatruc

Discussions similaires