Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[vba] recopier x fois une feuille Excel

Dernière réponse le 8 jui 2008 à 14:44:17 taroteur, le 17 oct 2005 à 18:16:38

Signaler ce message aux modérateurs

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

Meilleures réponses pour « [vba] recopier x fois une feuille Excel » dans :

Comparer cellules de 2 feuilles excel VBA Voir

[VBA] renommer une feuille excel auto (Résolu) Voir

[VBA] Importer feuille Excel sous Access (Résolu) Voir

Eviter les doublons dans Excel VoirEviter les doublons lors d'un encodage dans un colonne de feuille excel: prendre le format conditionnel sur le première cellule sous les titres (par ex A2) choisir la formule suivante : =NB.SI($A$2:$A$21;A2)>1 mettre là la couleur de fond...

Acces à 1 feuille excel à partir d'une autre (Résolu) Voir

Excel VBA userform Voir

[VBA] Comparer deux listes sous excel Voir

Salut, Sub Copie() Dim i, z z = InputBox("Nombre de copies ", Lire la suite

Posez votre question Répondre

tompols, le 17 oct 2005 à 23:03:48

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+

Répondre à tompols

taroteur, le 19 oct 2005 à 16:58:51

Merci tampols

Ca marche super

@+

Répondre à taroteur

pn, le 8 jui 2008 à 14:44:17

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.

Répondre à pn

Posez votre question Répondre