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
Vba range avec variable ✓ - Forum VB / VBA
Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
Renommer plusieurs fichiers - Guide
Excel reporter des données sur une autre feuille avec conditions - Forum Excel
Renommer iphone - Guide

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]

Discussions similaires

Newsletters