Baptème en rafale

Le
Jacquouille
Bonjour
Sub Baptiser_Feuilles ()
x = 130
y = Woksheets.count
For i = 1 to y
Worksheets(i).Select
ActiveSheet.Name = Range("A" & x).Value
x = x + 1
Next
End Sub
--
Cette jolie macro me permet de baptiser toutes les feuilles avec les noms
issus d'une liste en A130 à 130+y
Problème:
Cette prose prend le nom en A130, puis 131.de la feuille active. D'où le
problème de copier la liste de noms sur chaque feuille.
Je ne me rappelle plus l'écriture de:
ActiveSheet.Name = ***feuille appelée"Liste"***Range("A" & x).Value
où impérativement, la cel A130 contiendra le nom "Liste" .
Merci de votre aide.
--
Bien amicalmement,
Le vin est au repas ce que le parfum est à la femme.

Jacquouille.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gaston
Le #4976811
Bonjour Jacquouille,

Met ta liste sur ta première feuille
Ne sélectionne pas tes feuilles pour les nommer

Sub Baptiser_Feuilles ()
x = 130
y = Worksheets.count
For i = 1 to y
sheets(i).Name = sheets(1).Range("A" & x).Value
x = x + 1
Next
End Sub


"Jacquouille" wrote:

Bonjour
Sub Baptiser_Feuilles ()
x = 130
y = Woksheets.count
For i = 1 to y
Worksheets(i).Select
ActiveSheet.Name = Range("A" & x).Value
x = x + 1
Next
End Sub
--------------------------------------------
Cette jolie macro me permet de baptiser toutes les feuilles avec les noms
issus d'une liste en A130 à 130+y
Problème:
Cette prose prend le nom en A130, puis 131....de la feuille active. D'où le
problème de copier la liste de noms sur chaque feuille.
Je ne me rappelle plus l'écriture de:
ActiveSheet.Name = ***feuille appelée"Liste"***Range("A" & x).Value
où impérativement, la cel A130 contiendra le nom "Liste" .
Merci de votre aide.
--
Bien amicalmement,
Le vin est au repas ce que le parfum est à la femme.

Jacquouille.





Jacquouille
Le #4975771
Merci Gaston et bonne fin de soirée

--
Bien amicalmement,
Le vin est au repas ce que le parfum est à la femme.

Jacquouille.

"Gaston"
Bonjour Jacquouille,

Met ta liste sur ta première feuille
Ne sélectionne pas tes feuilles pour les nommer

Sub Baptiser_Feuilles ()
x = 130
y = Worksheets.count
For i = 1 to y
sheets(i).Name = sheets(1).Range("A" & x).Value
x = x + 1
Next
End Sub


"Jacquouille" wrote:

Bonjour
Sub Baptiser_Feuilles ()
x = 130
y = Woksheets.count
For i = 1 to y
Worksheets(i).Select
ActiveSheet.Name = Range("A" & x).Value
x = x + 1
Next
End Sub
--------------------------------------------
Cette jolie macro me permet de baptiser toutes les feuilles avec les noms
issus d'une liste en A130 à 130+y
Problème:
Cette prose prend le nom en A130, puis 131....de la feuille active. D'où
le
problème de copier la liste de noms sur chaque feuille.
Je ne me rappelle plus l'écriture de:
ActiveSheet.Name = ***feuille appelée"Liste"***Range("A" & x).Value
où impérativement, la cel A130 contiendra le nom "Liste" .
Merci de votre aide.
--
Bien amicalmement,
Le vin est au repas ce que le parfum est à la femme.

Jacquouille.







Publicité
Poster une réponse
Anonyme