Microsoft 365 comment ajouter et renommer les feuille suivant une matrice

christophe.ar80

XLDnaute Nouveau
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

XLDnaute Occasionnel
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

XLDnaute Nouveau
*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

job75

XLDnaute Barbatruc
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

Discussions similaires

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T