Macro copier un onglet et le renomer
Fermé
johann118
Messages postés
6
Date d'inscription
jeudi 21 novembre 2013
Statut
Membre
Dernière intervention
5 décembre 2013
-
5 déc. 2013 à 10:34
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 5 déc. 2013 à 10:45
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 5 déc. 2013 à 10:45
A voir également:
- Macro copier un onglet et le renomer
- Rouvrir un onglet fermé - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Copier une vidéo youtube - Guide
- Macro word - Guide
- Super copier - Télécharger - Gestion de fichiers
1 réponse
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
5 déc. 2013 à 10:45
5 déc. 2013 à 10:45
Bonjour,
Je pense que le plus simple est de faire les 3 actions à la suite pour chaque valeur présente dans la colonne A (et non copier-coller x fois l'onglet model puis faire les aménagements nécessaires).
ligne=2
While Sheets("total").Cells(ligne,1).Value <>""
a_traiter=Sheets("total").Cells(ligne,1).Value
Sheets("model").Cells(21,8).Value=a_traiter
'copier-coller de la feuille modèle
Sheets("model").Copy After:=...
Sheets(ActiveWorkbook.SheetsCount).Name=a_traiter
ligne=ligne+1
Wend
Je ne suis pas trop sûr de la syntaxe mais le principe y est.
A+
Je pense que le plus simple est de faire les 3 actions à la suite pour chaque valeur présente dans la colonne A (et non copier-coller x fois l'onglet model puis faire les aménagements nécessaires).
ligne=2
While Sheets("total").Cells(ligne,1).Value <>""
a_traiter=Sheets("total").Cells(ligne,1).Value
Sheets("model").Cells(21,8).Value=a_traiter
'copier-coller de la feuille modèle
Sheets("model").Copy After:=...
Sheets(ActiveWorkbook.SheetsCount).Name=a_traiter
ligne=ligne+1
Wend
Je ne suis pas trop sûr de la syntaxe mais le principe y est.
A+