j'ai une feuille excel avec un onglet qui me sert de modele (sans donné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é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é 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
A voir également:
Copier des données d'une feuille excel à une autre vba
Macro excel copier cellule vers autre feuille - Meilleures réponses
Excel vba copier cellule vers autre feuille - Meilleures réponses
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ère feuille
With Sheets(1)
.Select
.Cells.Select
End With
Selection.Copy
' Boucle sur le nombre de feuilles créé
For i = 2 To ActiveWorkbook.Sheets.Count
Sheets(i).Select
Cells.Select
ActiveSheet.Paste
Next
End Sub
Certainement que oui, mais là tu ne cherche pas à copier une feuille mais sont contenu! Raison pour laquelle je sélectionne toute les cellules. Souvent lorsque tu fais une copie de feuille, collé directement sur une autre, il y a des messages d'erreurs ou cela ne fonctionne pas bien.