[vba] recopier x fois une feuille Excel [Résolu]

A voir également:Dupliquer feuille excel automatiquementDupliquer feuille excel - Meilleures réponses Copier plusieurs fois une feuille (exel 2007) ✓ - Forum - Bureautique Macro VBA faisant appel à deux feuilles excel ✓ - Forum - VB / VBA VBA copier coller vers plusieurs feuilles excel ✓ - Forum - Excel VBA - Rangement de données sur feuille excel - Forum - VB / VBA Dupliquer x fois la meme feuill excel ✓ - Forum - Excel

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

Forum

A voir également:Dupliquer feuille excel automatiquementDupliquer feuille excel - Meilleures réponses Copier plusieurs fois une feuille (exel 2007) ✓ - Forum - Bureautique Macro VBA faisant appel à deux feuilles excel ✓ - Forum - VB / VBA VBA copier coller vers plusieurs feuilles excel ✓ - Forum - Excel VBA - Rangement de données sur feuille excel - Forum - VB / VBA Dupliquer x fois la meme feuill excel ✓ - Forum - Excel

Web: www.shapebootstrap.net

2 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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+

Merci tompols 12

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM a aidé 32392 internautes ce mois-ci

Reply
réponses:
  • auteur

    Merci tampols

    Ca marche super

    @+

  • auteur

    MERCI

    5 secondes cela m'a pris j'aime vba

    Merci pour l'aide c'est sympathique de partager vos connaissances

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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.

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed