copier le contenu d'une feuille excel dans une autre

Question

salut a toutes et tous

voila mon sou&#231;i

j'ai une feuille excel avec un onglet qui me sert de modele (sans donn&#233;es juste la mise en page)
j'ai une macro qui cree autant d'onglets qu'il y a de valeurs differentes dans une colonne d'une autre feuille... jusque la la macro fonctionne bien ... elle me fait bien tous mes onglets avec leurs noms.(valeurs stockees dans l'autre colonne de l'autre feuille)

j'aimerais maintenant copier ma feuille modele dans chacun des onglets cr&#233;es
(82 onglets au total)

voici la macro qui cree les onglets ... elle fonctionne bien
mais comment copier ma feuille modele dans chaque onglet ...
la je galere ! j'ai essay&#233; des tas de trucs ... sans succes !
merci de votre aide....

Sub Creation_Onglet()


  On Error Resume Next
  Sheets("listquest").Select
  Columns(1).Select
  ActiveCell.CurrentRegion.Select
  Dim Tableau() As String
  ReDim Tableau(1 To ActiveCell.CurrentRegion.Count)


  For Ctr = 1 To ActiveCell.CurrentRegion.Count
      Tableau(Ctr) = ActiveCell.CurrentRegion(Ctr)
  Next


      For Ctr = 1 To ActiveCell.CurrentRegion.Count
          Sheets.Add , Sheets(Sheets.Count)
          Sheets(Sheets.Count).Name = Tableau(Ctr)
      Next
  
 End Sub

Tuning Max · Answer

Si j'ai bien compris ta question &#231;a doit donner quelque chose comme &#231;a!

Sub Creation_Onglet()
Dim Ctr As Integer, Tableau() As String, i As Integer
ReDim Tableau(1 To ActiveCell.CurrentRegion.Count)
  On Error Resume Next
  
  Sheets(1).Select  '"listquest"
  Columns(1).Select
  ActiveCell.CurrentRegion.Select


  For Ctr = 1 To ActiveCell.CurrentRegion.Count
      Tableau(Ctr) = ActiveCell.CurrentRegion(Ctr)
  Next


      For Ctr = 1 To ActiveCell.CurrentRegion.Count
          Sheets.Add , Sheets(Sheets.Count)
          Sheets(Sheets.Count).Name = Tableau(Ctr)
      Next

' Selection et copy de la premi&#232;re feuille
  With Sheets(1)
                .Select
                .Cells.Select
  End With
  Selection.Copy
' Boucle sur le nombre de feuilles cr&#233;&#233;
  For i = 2 To ActiveWorkbook.Sheets.Count
  Sheets(i).Select
  Cells.Select
  ActiveSheet.Paste
  Next
 End Sub

aieeeuuuuu · Answer

salut,

heu... le sheet.copy directement ca marche pas ?

Tuning Max · Answer

Certainement que oui, mais l&#224; tu ne cherche pas &#224; copier une feuille mais sont contenu! Raison pour laquelle je s&#233;lectionne toute les cellules. Souvent lorsque tu fais une copie de feuille, coll&#233; directement sur une autre, il y a des messages d'erreurs ou cela ne fonctionne pas bien.

aieeeuuuuu · Answer

ok merci pour l'info :)

Copier le contenu d'une feuille excel dans une autre

4 réponses

sur les mêmes thèmes