Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pour creer et préremplir nouvelles feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion popy33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

popy33

Guest
Bonjour à tous,

j'aimerais à partir d'un tableau de la feuil1, créer autant de feuilles que de réference de mon tableau,selon un modéle dans une autre feuille.De plus j'aimerais utilisé les données du tableau pour préremplir les cellulles correspondantes de chaque feuille.
Je suis débutant en Macro, j'ai trouvé un bout de solution, mais je bloque sur le préremplissage.
Merci d'avance pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : macro pour creer et préremplir nouvelles feuilles

Bonsoir popy33, et bienvenue à toi,

Complète ta macro comme suit :

Code: 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

 For i = Sheets("debut").Range("a65536").End(xlUp).Row To 9 Step -1
    nom = Sheets("debut").Cells(i, 1)
        'copy et renomme la feuille
    Sheets("MODELE").Copy After:=Sheets(1)
    Sheets("MODELE (2)").Name = nom
    For n = 1 To 4
        ActiveSheet.Cells(n + 4, 2) = Sheets("debut").Cells(i, n)
        ActiveSheet.Cells(n + 4, 2).NumberFormat = Sheets("debut").Cells(i, n).NumberFormat
    Next
    Next
End Sub

Bonne soirée.

Cordialement.
 
Vote positif 0 Vote négatif
Re : macro pour creer et préremplir nouvelles feuilles

Re :

Si tu mets le format des cellules concernées de la feuille "MODELE" à l'identique de celles de la feuille "debut", tu peux alors supprimer une ligne :

Code: 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

 For i = Sheets("debut").Range("a65536").End(xlUp).Row To 9 Step -1
    nom = Sheets("debut").Cells(i, 1)
        'copy et renomme la feuille
    Sheets("MODELE").Copy After:=Sheets(1)
    Sheets("MODELE (2)").Name = nom
    For n = 1 To 4
        ActiveSheet.Cells(n + 4, 2) = Sheets("debut").Cells(i, n)
    Next
    Next
End Sub

Cordialement.
 
Vote positif 0 Vote négatif
Re : macro pour creer et préremplir nouvelles feuilles

Bonjour et grand merci papou-net,

c'est exatement ce que je cherche, je vais maintenant essayer de le transposer à mon tableau (350 lignes)
grand merci pour l'aide
cordialement
bonne soirée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
245
pascal21
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
506
caseras
C
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
438
gbinforme
G
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
2 K
job75
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
786
ORL
O
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
3 K
Florent74
F
R
  • Question Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
559
rh.finances
R
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
2 K
Olihoes
O
3
  • Question Question
XL 2013 copier et coller un tableau croisé dynamique
Réponses
3
Affichages
688
306255
3
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
908
picc
P
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
488
Anthony_51
A
S
  • Résolu(e)
XL 2010 creation d'une InputBox pour creer plusieur tableau
2
Réponses
29
Affichages
2 K
Surfeur En Serie
S
V
  • Question Question
Microsoft 365 affichage sélectif tableau croisé dynamique
2
Réponses
21
Affichages
2 K
vincent Blanchard
V
  • Question Question
XL 2021 Dupliquer un tableau sur différents onglets pour un mois donné
Réponses
2
Affichages
736
Jelose
S
  • Question Question
Microsoft 365 Afficher dans un tableau les noms des feuilles d'un fichier excel ainsi que le nombre de lignes renseignées pour chacune d'elle.
Réponses
2
Affichages
745
chris
B
  • Question Question
XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne
Réponses
5
Affichages
711
ChTi160
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
4 K
crocrocro
C
P
  • Résolu(e)
Microsoft 365 Macro VBA pour Copier coller une valeur sur plusieurs feuilles
Réponses
9
Affichages
660
pat66
P
C
  • Résolu(e)
Microsoft 365 Macro copié collé valeur se trouvant dans d'autres feuilles
2 3
Réponses
38
Affichages
2 K
Croc_de_loups
C
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…