copier feuille suivant n fois

ziopizza

XLDnaute Occasionnel

• 15 Octobre 2006

• #2

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

 

Vote positif 0 Vote négatif

B

btihadi

Guest

• 15 Octobre 2006

• #3

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

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 15 Octobre 2006

• #4

Re : copier feuille suivant n fois

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

Yves

 

Vote positif 0 Vote négatif

B

btihadi

Guest

• 15 Octobre 2006

• #5

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 !

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 15 Octobre 2006

• #6

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)

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 15 Octobre 2006

• #7

Re : copier feuille suivant n fois

Un petit exemple joint.

 

Pièces jointes

• copyfeuille.xls

  25.5 KB · Affichages: 104

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 15 Octobre 2006

• #8

Re : copier feuille suivant n fois

Bonjour,

essaie ceci :

Code:

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

 

Vote positif 0 Vote négatif

B

btihadi

Guest

• 15 Octobre 2006

• #9

Re : copier feuille suivant n fois

merci à tous

 

Vote positif 0 Vote négatif

B

btihadi

Guest

• 15 Octobre 2006

• #10

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 !

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 15 Octobre 2006

• #11

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

 

Vote positif 0 Vote négatif

B

btihadi

Guest

• 15 Octobre 2006

• #12

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 15 Octobre 2006

• #13

Re : copier feuille suivant n fois

Re,

Pas de quoi.

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

Bonne soirée

 

Vote positif 0 Vote négatif

B

btihadi

Guest

• 16 Octobre 2006

• #14

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 !!

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 16 Octobre 2006

• #15

Re : copier feuille suivant n fois

btihadi à dit:

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 !!

Cliquez pour agrandir...

Salut à tous
essaie :

Code:

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

A+

 

Vote positif 0 Vote négatif