[vba] recopier x fois une feuille Excel

Résolu/Fermé
taroteur Messages postés 3 Date d'inscription lundi 17 octobre 2005 Statut Membre Dernière intervention 12 janvier 2007 - 17 oct. 2005 à 18:16
 gundam - 27 mai 2010 à 15:04
Bonsoir le forum

Comment en vba copier une feuille appelée "Valeur" en une autre nommée "Position 1" puis relancer la macro qui va à nouveau copier la même feuille "Valeur" et l'appeler "Position 2" puis relancer la macro ............. etc....

Merci d'avance
A voir également:

2 réponses

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
17 oct. 2005 à 23:03
Salut,

Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
    Sheets("Valeur").Copy After:=Sheets(i)
    ActiveSheet.Name = "Position " & i
Next i
End Sub

Et voilà...
A+
12
taroteur Messages postés 3 Date d'inscription lundi 17 octobre 2005 Statut Membre Dernière intervention 12 janvier 2007
19 oct. 2005 à 16:58
Merci tampols

Ca marche super

@+
0
MERCI

5 secondes cela m'a pris j'aime vba

Merci pour l'aide c'est sympathique de partager vos connaissances
0
Bonjour à tous,

J'ai testé votre méthode sur Excel 2002 qui marche super bien mais qui plante au bout de 45 feuilles copiées!!!
En fait je veux dupliquer une feuille "model" avec une macro qui doit effectuer un certains nombre de traitements!

J'utilise le code suivant:
Sheets("Model").Copy After:=Sheets(sheets.Count)
ActiveSheet.Name = "Feuil " & N_Feuil

Aprés 45 feuilles dupliquées il s'arrete avec un message d'erreur!!

J'ai essayer de vider le presse-papier mais ça ne change rien!
clipboard.clear
ou Application.CutCopyMode = False

Je sais pas si c'est un problème de mémoire ou d'un problème Excel?

D'avance merci.
4