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

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