copier feuille suivant n fois

[btihadi]

bonjour
je veux copier une feuille facture dans le meme classeur autant de fois suivant

les valeurs existant dans une liste qui est variable et les renomer suivant ces valeures

exemple
colone k10
100
101
102
----
je veux que la macro copie donc trois fois la feuille et les renomes 100;101;102;--

 

[ziopizza]

Re : copier feuille suivant n fois

bonjour btihadi,

Si ta liste en (a)

Sub cop()
For i = 2 To Range("a65536").End(xlUp).Row
nom = Cells(i, 1)
'copy et renomme la feuille
Sheets("MODELE").Copy After:=Sheets(1)
Sheets("MODELE (2)").Name = nom
Next
End Sub
Salut
Yves

 

[btihadi]

Re : copier feuille suivant n fois

merci de votre reponse

les valeure 100.101..... se trouvent dans une autre feuille
la copie marche mais le changement de nom non

 

[ziopizza]

Re : copier feuille suivant n fois

change cette ligne nom = Cells(i, 1)
Par:
nom =sheets("nomdetafeuille").cells(i,1)

Yves

 

[btihadi]

Re : copier feuille suivant n fois

For i = 2 To Range("p65536").End(xlUp).Row
nom = Sheets("fact").Cells(i, 1)
'copy et renomme la feuille
Sheets("fact").Copy After:=Sheets(1)
Sheets("fact(2)").Name = nom
Next

message erreur ! en plus le nombre de copie ne correspond pas à la valeur ds colon !

 

[ziopizza]

Re : copier feuille suivant n fois

Cette ligne à changer car Colonne p =16
mettre 16 à la place de 1
nom =sheets("nomdetafeuille").cells(i,16)

Ta liste doit commencer en (P2)
(Attention Excel ne renomme pas une feuille 2 fois du même nom)

 

[ziopizza]

Re : copier feuille suivant n fois

Un petit exemple joint.

 

[Dan]

Re : copier feuille suivant n fois

Bonjour,

essaie ceci :

Sub Copie()
Dim i As Byte, nom as byte
On Error Resume Next
With Sheets("fact")
For i = 2 To Range("P65536").End(xlUp).Row
nom = .Cells(i, 16)
.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
Next i
End With
End Sub

Attention si la feuille existe déjà elle sera crée sous la forme fact(2), etc...

Bon travail

 

[btihadi]

Re : copier feuille suivant n fois

merci à tous

 

[btihadi]

Re : copier feuille suivant n fois

merci encore

je suis gaurmond

comment faire pour que apres chaque copie de la feuille le nom de chaqye feuille s'affiche sur une cellule donnée !

 

[Dan]

Re : copier feuille suivant n fois

Re,

Tu ajoute dans ta macro ceci :
Range("A4") = ActiveSheet.Name

Avec A4 la cellule qui doit contenir le nom de ta feuille

A te lire

 

[btihadi]

Re : copier feuille suivant n fois

grand merci
j'ai obtenu de bons resultats

liege est une ville que j'ai visité en 1990

merci encore

 

[Dan]

Re : copier feuille suivant n fois

Re,

Pas de quoi.

ah ok. Liège a beaucoup changé depuis....

Bonne soirée

 

[btihadi]

Re : copier feuille suivant n fois

un petit probleme
la macro decale le nom de la feuille et la valeur de la cellule
pour resoudre le problme j'ai fait
Range("A4") = ActiveSheet.Name+1
la la valeur de a4 est bien egal au non de feuille sauf la premiere feuille ne correspond pas
en effect a4 est egal à la derniere valeur de liste+1 et non =premiere valeur de liste !!

 

[Gorfael]

Re : copier feuille suivant n fois

un petit probleme
la macro decale le nom de la feuille et la valeur de la cellule
pour resoudre le problme j'ai fait
Range("A4") = ActiveSheet.Name+1
la la valeur de a4 est bien egal au non de feuille sauf la premiere feuille ne correspond pas
en effect a4 est egal à la derniere valeur de liste+1 et non =premiere valeur de liste !!

Salut à tous
essaie :

Rang("A4").FormulaR1C1 = _
        "=MID(CELL(""filename"",RC),FIND(""]"",CELL(""filename"",RC))+1,50)"

A+