Génère des feuilles automatiques à partir d'une liste
Bonjour,
je vais un code pour génère des feuilles automatiques à partir d'une liste
Merci
Cordiallement
El Hacen
Bonjour,
Une autre proposition.
Cdlt.
Public Sub CreateWorksheets()
Dim wb As Workbook, wsList As Worksheet, ws as worksheet
Dim n As Long, I As Long
Set wb = ActiveWorkbook
Set wsList = wb.Worksheets("Office")
Application.DisplayAlerts = False
For Each ws In wb.Worksheets
Select Case ws.Name
Case "Office":
Case Else: ws.Delete
End Select
Next ws
Application.DisplayAlerts = True
n = wsList.Cells(Rows.Count, 3).End(xlUp).Row
For I = 3 To n
Set ws = wb.Worksheets.Add(after:=wb.Worksheets(wb.Worksheets.Count))
ws.Name = wsList.Cells(I, 3).Value
Next I
With wsList
.Select
.Cells(1).Activate
End With
End SubBonjour Jean-Eric
Je suis nul à excel, vous pouvez mettre votre code dans excel sheet s'il vous plait?
Cordialement
El Hacen
Bonjour Zebulon2,
Votre code marche bien,
Maintenant je vaux que les feuilles générer doivent avoir la même forme en PJ.
Coridialement
El Hacen
Re,
Le code de Jean-Eric, que je salue, est bien plus propre que le mien.
Je ne vois pas trop la finalité de ce que tu demandes.
Ne vau t’il pas mieux partir du tableau de data pour générer les différents tableaux ?
En tout cas, ma macro modifiée pour aller dans le sens de ta demande.
Cordialement
Bonjour
Un million de merci....
C'est plus que parfait, c'est génial
Cordialement
El Hacen
Bonjour,
Est ce que vous avez considéré le code de Jean-Eric dans la feuille?
maintenant je veux integrer la feuille "creation-feuilles" dans mon fichier principale, et à partir du colonne Lines dans mon fichier je veux generer la feuille Modèle.aide moi
Cordialement
El Hacen
Re,
As tu regardé de ce coté ?
Bonjour,
non, ce n'est pas ça que je cherche,
S'il vous plait, on va continuer à développer mon fichier étape par étape, j'ai encore 9 jours.
d'abord, s'il vous vous pouvez intégrer la feuille modelé dans mon fichier principal et le code VBA?
El Hacen
Bonjour,
Bonjour zebulon2,
Une petite contribution sur base de ton fichier.
Cdlt.
Bonjour Jean-Eric,
Merci pour l'optimisation de la macro. Je regarde cela de plus près pour m'en inspirer à l'avenir.
Par contre, la formule en B6 ne s'actualise pas, j'ai rajouté un calculate à la fin de la macro.
Bonne journée,
Cordialement
Re,
Une solution :
For I = 3 To n
wsTemplate.Copy After:=wb.Worksheets(wb.Worksheets.Count)
Set ws = wb.Worksheets(wb.Worksheets.Count)
With ws
.Name = wsList.Cells(I, 2).Value
.Cells(6, 2).Value = ws.Name
.ListObjects(1).Name = "T_" & I - 2
End With
NextRe,
C'est nickel, tout fonctionne.
Reste plus qu'à attendre la réaction de l'intéressé.
Cordialement
Bonjour
merci,
1- On devrait supprimer la feuille Office définitivement, on la remplace par la feuille "TimeSheet Record" et on va baser sur la colonne H pour générer les feuilles "Line #1", "Line #2", ...
2- Si les feuilles "Line #1", "Line #2", "Line #3", ... ect, sont créés, toute les machines travaillé durant la période du 15 Août au 14 Septembre 2024 vont être placés dans les nouvelles feuilles créer "Line #1", "Line #2", ... ect
El Hacen
Prochainement, toutes les liaisons entre les feuilles de mon fichier sont basées sur les Lines.
Bonsoir,
Merci infiniment Zebulon2 et Jean-Eric
S'il vous plaît:
- Renommez le bouton "Création onglets" par "Create Recap Sheets"
- Dans la feuille Office, je souhaite exporter la colonne "Lines" à partir de la colonne H dans "Timesheet Record" et trier par ordre croissant Line #1, Line #2, Line #3, ... ect
- Je souhaite renommer cette feuille en"Office" par "Create Recap"
- les feuilles céer ne exporte rien de la feuille "Timesheet Record"
- Dans la feuille "Invoice" la deuxième colonne des tableaux "Equipment with Operator (Dry Rental)" eet les lignes nommées doivent avoir Line #1, Line #2 et se terminent par ordre croissant et ce tableau doit avoir le même nombre de lignes qui existent dans le feuille Office, ce tableau varie selon les nombres de Line #1, Line #2,
Merci
El Hacen