Microsoft 365 comment ajouter et renommer les feuille suivant une matrice

D

Dim.Reichart

XLDnaute Occasionnel

• 22 Août 2019

• #2

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.

 

Vote positif 0 Vote négatif

Z

zelda

Guest

• 25 Septembre 2019

• #3

*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

 

Pièces jointes

• Fichier pour test.xlsx

  166.6 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Septembre 2019

• #4

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+

 

Vote positif 0 Vote négatif

Z

zelda

Guest

• 25 Septembre 2019

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Septembre 2019

• #6

Voyez le fichier .xlsm joint et cette macro :

VB:

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

 

Pièces jointes

• Fichier pour test(1).xlsm

  181.9 KB · Affichages: 9

Vote positif 0 Vote négatif

Z

zelda

Guest

• 25 Septembre 2019

• #7

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

 

Vote positif 0 Vote négatif