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

Résolu
Audrey -  
 Audrey -
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!

1 réponse

Réponse 1 / 1
Audrey
 
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
0

Discussions similaires

Afficher tous les onglets
faffoo -
gbinforme -

5 réponses
imprimer sur papier cartonné
Lylou -
Papounet17000 -

1 réponse
Oter la protection de plusieurs feuilles à la fois excel 2013
Limonade -
Na2s2O3 -

4 réponses
VBA Excel: Importer des feuilles vers un classeur
Amélie -
cs_Le Pivert -

14 réponses
Publipostage word : créer plusieurs documents distincts
Mikala -
Procurement_Manager -

32 réponses
comparer 2 feuilles excel [VBA]
binos359 -
binos359 -

2 réponses