copie multiple de feuilles

mromain

XLDnaute Barbatruc

• 26 Mars 2009

• #2

Re : copie multiple de feuilles

bonjour alfazoulou,

je te propose ce code :

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+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 26 Mars 2009

• #3

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.

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 26 Mars 2009

• #4

Re : copie multiple de feuilles

re,

essaye avec ça :

Code:

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

a+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 26 Mars 2009

• #5

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 ?

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 26 Mars 2009

• #6

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

 

Pièces jointes

• Classeur2.xls

  25.5 KB · Affichages: 57
• Classeur2.xls

  25.5 KB · Affichages: 60
• Classeur2.xls

  25.5 KB · Affichages: 55

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 27 Mars 2009

• #7

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 ?

 

Pièces jointes

• Classeur3.xls

  31 KB · Affichages: 53
• Classeur3.xls

  31 KB · Affichages: 52
• Classeur3.xls

  31 KB · Affichages: 61

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 27 Mars 2009

• #8

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à.

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 27 Mars 2009

• #9

Re : copie multiple de feuilles

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

 

Vote positif 0 Vote négatif