Microsoft 365 comment ajouter et renommer les feuille suivant une matrice

[christophe.ar80]

bonjour a tous.

je voudrais savoir si vous pouviez m'aidée pour ajouter et renommer les feuilles automatique suivant une matrice en code VBA?

je vous remerci.

 

[Dim.Reichart]

Bonjour,
Aider, probablement, mais surement pas sans fichier, et pas faire à votre place ni inventer des informations manquantes.
Vous pouvez déjà commencer par utiliser l'enregistreur de macro dans un fichier vierge pour ajouter une feuille et voir le code généré, puis tester des variantes pour comprendre ce qui est écrit et comment obtenir ce que vous souhaitez.
Bon apprentissage.

 

[zelda]

*Bonjour,
j'ai la même question. J'aimerais renommer automatiquement mes onglets en fonction d'un listing (ici onglet centre de coûts).
J'ai tenté une macro trouvée sur le forum mais ça ne marche pas.
Merci

 

[job75]

Bonjour zelda, bienvenue sur XLD, salut les autres,

Il y a 15 feuilles et 20 noms listés.

Il faudrait savoir quelles sont les feuilles à renommer et avec quels noms, donc créer un tableau de correspondance.

A+

 

[zelda]

Hello Job75,

Il faudrait renommer les onglets compris entre front et back (non inclus) à partir de la cellule B5 de chaque feuille ou directement à partir de l'onglet centre de coûts.

Zelda

 

[job75]

Voyez le fichier .xlsm joint et cette macro :

Sub Renommer()
Dim lig&, n%, nom$
lig = 3
On Error Resume Next 'si le nom est déjà attribué à une autre feuille
For n = Sheets("front").Index + 1 To Sheets("back").Index - 1
    nom = Sheets("Centre de coûts").Cells(lig, 2)
    If nom <> "" Then Sheets(n).Name = Left(nom, 31)
    lig = lig + 1
Next
End Sub

 

[zelda]

C super! ça marche bien.😀
Est-ce que tu veux bien m'expliquer en step by step stp?
Merci Job75