Excel: changer nom des onglets avec une liste

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Excel: changer nom des onglets avec une liste

luipo

Dans mon premier onglet appelé "comptes", j'ai une liste de tous mes comptes, environ 150. Ils sont identifiables par leur numéro. Ex: 102
A partir du 4ème onglet, chaque onglet représente un et un seul compte. (j'ai donc environ 150 onglets).

Je souhaite que les noms de tous ces onglets se changent en fonction de la liste présente dans le premier onglet.

PS: je suis vraiment nul en macro donc soyez précis svp

Merci d'avance

Publicité

wago

Comment sont nommé tes feuilles?

Parce que le pb dans excel c'est que les adresses des feuilles sont pas forcément dans l'ordre visualisé.

Si c'est du type Feuil4, Feuil5... il y a moyen de faire qqc, si non il va falloir faire une genre de table de correspondance

Compte Feuille
1 a
2 e
3 v
... ...

Comme ça après tu fait une boucle while ou for qui renomme chaque feuille selon sa correspondance dans la table.

(c'est une idée, je dis pas que c'est la meilleur, mais ça peu faire le job)

luipo

dans le premier onglet j'ai la table
dans les onglets 3 et 4 j'ai deux tableaux s'appelant charges avec des formules allant chercher des données dans les onglets suivants appelés par le code client. Ex: 102, 235, 18649 etc

et je voudrai aussi savoir si une fois la matrice faite je pourrais rajouter une ligne et le nombre d'onglet augmentera

Merci d'avance

Message cité 1 fois

wago

luipo a écrit :

J'ai fait le code pour renommer selon une table de correspondance les feuilles:

Code :

Sub renommefeuille()
'Permet de renommer les feuille d'un classeur en fonction d'une table de correspondance
'A besoin d'une feuille nommée "TAB Correspondance"
'En colonne A les anciens noms, en B les nouveaux noms
'La ligne 1 n'est pas traiter pour permettre d'y inserer des titres de colonne EX:ancien / Nouveau
'Il ne doit pas y avoir d'espace vide entre chaque ligne
'Déclaration des variables
Dim FeuilleOld As String
Dim FeuilleNew As String
Dim NombreVal As Integer
Dim I As Integer
'Initialisation des variables
NombreVal = Application.WorksheetFunction.CountA(Worksheets("Tab Correspondance" ).Range("$A:$A" ))
'Ignore les erreurs pour continuer le renommage
On Error Resume Next
'boucle sur chaque ligne et renomme la feuille correspondante
For I = 2 To NombreVal
FeuilleOld = Sheets("Tab Correspondance" ).Cells(I, 1)
FeuilleNew = Sheets("Tab Correspondance" ).Cells(I, 2)
Worksheets(FeuilleOld).Name = FeuilleNew
Next I
MsgBox ("Fin du renommage des " & NombreVal - 1 & " feuilles" )
End Sub

Ce code ignorera les noms de feuilles mal saisies, et donc les feuilles attendues à renommer avec.

Pour répondre à ta question, si tu ajoutes une feuille, en plaçant dans la table une ligne supplémentaire concernant cette feuille, alors au prochain renommage elle pourra être traitée, puisqu'il y a une boucle sur le nombre de valeurs à traiter qui dépend du nombre d'entrées dans le tableau.

Edit: NB: a ta place avant d'executer ce code je ferais une copie de mon classeur

Message édité par wago le 26-07-2017 à 22:56:51

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Excel: changer nom des onglets avec une liste

Sujets relatifs
Excel: étirer ma formule avec un changement d'onglet	VBA Excel Requète WEB
[Excel] macro outlook ne traite jamais dernier mail sauf si un seul	creer une liste deroulante sous flash cs4.
envois mail par macro sous excel	Liste déroulante conditionnelle
Problème d'encodage de liste chainée	Constructeur de copie Liste chainée C++
Export Excel=> TXT avec suppression doublon
Plus de sujets relatifs à : Excel: changer nom des onglets avec une liste

Page générée en 0.062 secondes