copie multiple de feuilles

[alfazoulou]

Bonjour le forum
je voudrais savoir comment faire une copie multiple de la feuille1 en nomant les copies par rapport à un texte contenue dans la cellule A1 plus 1 pour la premiere copie, 2 pour la deuxieme, etc jusqu'à 10.
Exemple:
dans la cellule A1 = toto
on fait 10 copies dela feule1 et on les nomme toto 1, toto 2, etc...
J'ai déjà vu ça quelque part mais je ne le retrouve pas.
Merci pour votre aide, je continue à chercher en attendant

 

[mromain]

Re : copie multiple de feuilles

bonjour alfazoulou,

je te propose ce code :

For i = 1 To 10
    'ajouter une feuille en dernière position
    ThisWorkbook.Worksheets.Add After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    'modifier le nom de la feuille ajoutée
    ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = ThisWorkbook.Sheets("Feuil1").Range("A1").Value & i
Next i

a+

 

[alfazoulou]

Re : copie multiple de feuilles

merci mromain
mais comment sélectionner ensuite les feuilles ?
ThisWorkbook.Sheets("Feuil1").Range("A1").Value & "1".select
ne fonctionne pas.

 

[mromain]

Re : copie multiple de feuilles

re,

essaye avec ça :

ThisWorkbook.Sheets(ThisWorkbook.Sheets("Feuil1").Range("A1").Value & "1").select

a+

 

[alfazoulou]

Re : copie multiple de feuilles

Merci pour ta réponse qui fonctionne;
Par contre n'y a t'il pas une écriture plus légère ?

 

[alfazoulou]

Re : copie multiple de feuilles

en fait voici mon code qui ne fonctionne pas
merci de votre aide
Sub Bouton1_QuandClic()



Sheets("feuil 1").Copy After:=Sheets(Sheets.Count)

Sheets("feuil 1 (2)").Name = [nom] & "1"


Sheets([nom] & "1").Range("B2").Value = "coucou"


Sheets("feuil 2").Copy After:=Sheets([nom] & "1")
Sheets("feuil 2 (2)").Activate
Sheets("feuil 2 (2)").Name = [nom] & "2"
Sheets([nom] & "2").Range("B2").Value = "youpy"


For i = 2 To 9

ActiveSheet.Name = [nom] & i
Sheets([nom] & "2").Copy After:=Sheets([nom] & "1")
Next
ActiveSheet.Name = [nom] & i



End Sub

 

[alfazoulou]

Re : copie multiple de feuilles

aprés correction

Sub Bouton1_QuandClic()

Sheets("feuile 1") .Copyafter:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

Sheets("feuil 1 (2)").Name = [nom] & "1"

Sheets([nom] & "1").Range("B2").Value = "coucou"

For i = 2 To 10
Sheets("feuil 2").Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = [nom] & i
Next i

Sheets([nom] & "5").Range("B2").Value = "youpy"

End Sub

Ce code ne fonctionne pas, il y a sans doute une erreur quelque part.
pouz vous m'aider ?

 

[alfazoulou]

Re : copie multiple de feuilles

attention à l'erreur de transcrition suivante
Sheets("feuile 1") .Copyafter:=ThisWorkbook.Worksheets(ThisWorkbook.W orksheets.Count
il s'agit de feuil 1
donc l'erreur ne vient pas de là.

 

[alfazoulou]

Re : copie multiple de feuilles

résolu.
plusieurs petites erreurs (espaces) s'étaient glissées dan le code
probème e clavieer sans fil....🙁