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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
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.
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
Merci Gaston et bonne fin de soirée
-- Bien amicalmement, Le vin est au repas ce que le parfum est à la femme.
Jacquouille.
"Gaston" a écrit dans le message de news:
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.
Merci Gaston et bonne fin de soirée
--
Bien amicalmement,
Le vin est au repas ce que le parfum est à la femme.
Jacquouille.
"Gaston" <gasjospamspam@sympatico.ca> a écrit dans le message de news:
62566584-E80E-4B49-8B80-3D45C450E103@microsoft.com...
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.
-- Bien amicalmement, Le vin est au repas ce que le parfum est à la femme.
Jacquouille.
"Gaston" a écrit dans le message de news:
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.
