|
|
|
|
Bonjour, je cherche à créer une macro qui a pour but de renommer une feuille excel d'un classeur en fonction du contenu d'une cellule.
Je m'explique, j'ai un classeur contenant 10 feuilles ou 10 onglets (je ne connais pas le therme exacte) et je voudrais que chacune de ces feuilles portent le nom de la cellule A1 de la feuille 1.
Quelqu'un pourrait-il me mettre sur la voie?
Merci.
Configuration: Windows XP Firefox 2.0.0.4
Bonjour,
Option Explicit
Sub RenommeOngletsNomCelluleA1()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
Feuille.Name = Feuille.Range("A1").Value
Next Feuille
End Sub
'
ou ?
Sub RenommeOngletsNomFeuil1CelluleA1()
Dim Feuille As Worksheet, Boucle As Long
Boucle = 1
For Each Feuille In Worksheets
Feuille.Name = Sheets(1).Range("A1").Value & Boucle
Boucle = (Boucle + 1)
Next Feuille
End Sub
'
Lupin |
Bonjour,
|
Bonjour,
|