reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se trouvent
la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui fera
ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se trouvent
la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui fera
ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se trouvent
la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui fera
ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se trouvent
la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui fera
ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" <basselaa@yahoo.com> a écrit dans le message de news:
eXC5WMRwFHA.624@TK2MSFTNGP11.phx.gbl...
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se trouvent
la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui fera
ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se trouvent
la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui fera
ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui
fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui
fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en même
temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui
fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui
fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journée
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" <basselaa@yahoo.com> a écrit dans le message de news:
eXC5WMRwFHA.624@TK2MSFTNGP11.phx.gbl...
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui
fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro qui
fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le message
ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le message
ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journée
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" <basselaa@yahoo.com> a écrit dans le message de news:
eXC5WMRwFHA.624@TK2MSFTNGP11.phx.gbl...
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le message
ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
Gilbert
Bonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journée
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" <basselaa@yahoo.com> a écrit dans le message de news:
eXC5WMRwFHA.624@TK2MSFTNGP11.phx.gbl...
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets en
même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais la
150 eme( la dernière) (150 étant le nombre de copie que je voulais faire).
Merci bienBonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais la
150 eme( la dernière) (150 étant le nombre de copie que je voulais faire).
Merci bien
Bonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
Gilbert
Bonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journée
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" <basselaa@yahoo.com> a écrit dans le message de news:
eXC5WMRwFHA.624@TK2MSFTNGP11.phx.gbl...
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
Bonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais la
150 eme( la dernière) (150 étant le nombre de copie que je voulais faire).
Merci bienBonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
regarde le nombre de prénoms identiques l' erreur vient de là
dans ce que je t'ai donné audelà de deux prénoms semblables il y a une
erreur de déclenchées
pour ne pas avoir de problème modifie les doublons
Salutations
GilbertBonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais la
150 eme( la dernière) (150 étant le nombre de copie que je voulais
faire).
Merci bienBonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau
nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
regarde le nombre de prénoms identiques l' erreur vient de là
dans ce que je t'ai donné audelà de deux prénoms semblables il y a une
erreur de déclenchées
pour ne pas avoir de problème modifie les doublons
Salutations
Gilbert
Bonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais la
150 eme( la dernière) (150 étant le nombre de copie que je voulais
faire).
Merci bien
Bonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
Gilbert
Bonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journée
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" <basselaa@yahoo.com> a écrit dans le message de news:
eXC5WMRwFHA.624@TK2MSFTNGP11.phx.gbl...
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau
nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
regarde le nombre de prénoms identiques l' erreur vient de là
dans ce que je t'ai donné audelà de deux prénoms semblables il y a une
erreur de déclenchées
pour ne pas avoir de problème modifie les doublons
Salutations
GilbertBonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais la
150 eme( la dernière) (150 étant le nombre de copie que je voulais
faire).
Merci bienBonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau
nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la macro
qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
il suffisait de mettre un compteur pour ne plus avoir d'erreur
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
a = a + 1
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & a
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
Gilbertregarde le nombre de prénoms identiques l' erreur vient de là
dans ce que je t'ai donné audelà de deux prénoms semblables il y a une
erreur de déclenchées
pour ne pas avoir de problème modifie les doublons
Salutations
GilbertBonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais
la 150 eme( la dernière) (150 étant le nombre de copie que je voulais
faire).
Merci bienBonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau
nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la
macro qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
il suffisait de mettre un compteur pour ne plus avoir d'erreur
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
a = a + 1
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & a
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
Gilbert
regarde le nombre de prénoms identiques l' erreur vient de là
dans ce que je t'ai donné audelà de deux prénoms semblables il y a une
erreur de déclenchées
pour ne pas avoir de problème modifie les doublons
Salutations
Gilbert
Bonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais
la 150 eme( la dernière) (150 étant le nombre de copie que je voulais
faire).
Merci bien
Bonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
Gilbert
Bonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2
Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journée
Bonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" <basselaa@yahoo.com> a écrit dans le message de news:
eXC5WMRwFHA.624@TK2MSFTNGP11.phx.gbl...
reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau
nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la
macro qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup
il suffisait de mettre un compteur pour ne plus avoir d'erreur
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
a = a + 1
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & a
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
Gilbertregarde le nombre de prénoms identiques l' erreur vient de là
dans ce que je t'ai donné audelà de deux prénoms semblables il y a une
erreur de déclenchées
pour ne pas avoir de problème modifie les doublons
Salutations
GilbertBonjour,
1- ca a marché quleque fois et après j'ai le message suivant
"Erreur dexecution 1004"
2- même quand ca marchait, j'avais 30 copies et juste après j'avais
la 150 eme( la dernière) (150 étant le nombre de copie que je voulais
faire).
Merci bienBonjour
Tu mets une deuxième feuille au fichier que je t' ai mis sur Cjoint
et tu modifies le code pour la copie de la feuille 2
comme ceci
Sub nfeuil()
nliste = Feuil1.Range("A1000").End(xlUp).Row
For i = 1 To nliste
Sheets("Feuil2").Copy After:¬tiveSheet
'Sheets.Add
On Error GoTo dejalui
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value
GoTo suite
dejalui:
ActiveSheet.Name = Feuil1.Range("a" & (i)).Value & "1"
Resume Next
GoTo suite
suite:
Next
End Sub
salutations
GilbertBonsoir
Daniel
La macro a fonctionné quelquefois mais souvent elle me donne le
message ci-après
Erreur dexecution 1004
La methode copy de la classe worksheet a echoué
RGI
je te remercie pour le code, mais il "add" des feuilles au lieu de
copier une feuille précise
merci à vous 2Bonjour
ca fonctionne Parfaitement
Je te remercie Daniel
Bonne fin de journéeBonjour.
Essaie la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
Sheets("Feuil2").Copy After:=Sheets("Feuil3")
ActiveSheet.Name = c.Value
Next c
End Sub
Cordialement.
Daniel
"Bass" a écrit dans le message de news:reBonjour
Je suis dans feuille1
Je souhaiterais copier feuille2 (n) fois et renommer les onglets
en même temps.
Dans une plage de cellule de la colone "A1:An" de la feuille1 se
trouvent la liste des noms que je donnerais aux onglets "nouveau
nés"
(n) étant le nombre d'onglets à créer
Oserais-je abuser de votre gentillesse en vous demandant la
macro qui fera ca en partant d'une selection de la plage "A1:An"
Merci beaucoup