Copier le contenu d'une feuille excel dans une autre
xzonz
Messages postés107Date d'inscriptionmardi 13 janvier 2004StatutMembreDernière intervention23 novembre 2022
-
12 oct. 2005 à 22:59
aieeeuuuuu
Messages postés698Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention20 mai 2011
-
17 oct. 2005 à 14:30
salut a toutes et tous
voila mon souçi
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 automatiquement une cellule excel dans une autre feuille (vba)
Vba copier valeur cellule dans une autre feuille - Meilleures réponses
Copier des données d'une feuille excel à une autre vba - 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
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 20061 17 oct. 2005 à 08:59
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.