VBA Excel: Renommer une feuille d'une valeur de cellule - split

Résolu/Fermé

Feuille

Audrey - 9 mars 2015 à 15:44
Audrey - 9 mars 2015 à 16:19

Bonjour,

Mon classeur a plusieurs feuilles organisées de manière identique, sauf la première. Je voudrais simplement pouvoir renommer automatiquement les feuilles (sauf la 1ère) de la partie de la valeur contenue dans chaque feuille en cellule "A2" et située avant l'espace.
Exemple: si en A2 on a "0012 Bleu", j'aimerais que la feuille en question soit renommée "0012".
Sauriez-vous faire??
Je vous en remercie par avance!

A voir également:

Vba renommer une feuille avec variable
Renommer plusieurs fichiers en même temps - Guide
Vba range avec variable ✓ - Forum VB / VBA
Excel reporter des données sur une autre feuille avec conditions - Forum Excel
Comment renommer quelqu'un sur instagram - Forum Instagram
Feuille de score belote excel - Forum Excel

1 réponse

Réponse 1 / 1

Audrey
9 mars 2015 à 16:19

Bon, je viens de trouver moi-même la réponse, que je vous fais partager:

Sub Renommer()
Dim i As Integer
For i = 2 To Sheets.Count
    Sheets(i).Activate
    Sheets(i).name = Split(Range("A2").Value, " ")(0)
Next i
End Sub

Discussions similaires

Afficher tous les onglets

imprimer sur papier cartonné

Oter la protection de plusieurs feuilles à la fois excel 2013

VBA Excel: Importer des feuilles vers un classeur

Publipostage word : créer plusieurs documents distincts

comparer 2 feuilles excel [VBA]