Titre du sujet : Re: nommer un onglet avec le nom d'une cellule par JeanMarie le 15/02/2008 18:24:48
Bonjour
J'espère que je vais pas trop dire de bêtises dans mes commentaires. Je suis plus à l'aise avec les formules.
Regarde ce code
Option Explicit
Sub NomFeuille()
Dim I As Long 'Déclaration d'une variable pour la boucle sur le nombre de feuille
'Gestion d'erreur, dans le cas ou la valeur n'est pas un Name valable
On Error Resume Next
'Lance une boucle sur le nombre de feuille de calcul du classeur
'Worksheets est unh objet contenant toutes les feuilles
'Worksheets.Count retourne le nombre de feuilles de calcul. On exclu les autres feuilles
For I = 1 To Worksheets.Count
'I contenant une valeur allant de 1 à ...
'Worksheets(I).Name (lecture ou Ecriture) du nom de la feuille
'Worksheets(I).Range("A1")(lecture ou Ecriture) dans la cellule A1
Worksheets(I).Name = Worksheets(I).Range("A1")
'Passe à la feuille suivante
Next
'Arrêt de la gestion d'erreur
On Error GoTo 0
'Fin de la macro
End Sub
Une fois n'est pas de coutume, mais ce jour n'est pas un jour particulier ...
@+Jean-Marie
|