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

macro excel création feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nat38
  • 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
N

nat38

Guest
Bonjour,
je galère actuellement pour effectuer une macro qui me permettrait de dupliquer des feuilles à partir d'un onglet.
à chaque type d'augmentation(variable), créer une feuille
je joins un fichier d'exemple

partir de l'onglet base et créer un onglet part type d'augmentation

1 créer des feuilles à chaque types augmentation
2 regrouper le type aug individuelle et promotion dans la meme feuille
3 renomer les feuilles par type d'augmentation
4 fichier a mettre à jour ts les mois
d'avance merci pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : macro excel création feuille

Bonjour à toutes et à tous,

Bienvenue sur XLD, nat38.

Une suggestion avec ce code affecté à un bouton :

Code: 
Option Explicit
Sub Répartir()
    Dim o As Worksheet
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
        For Each o In Worksheets
            If o.Name <> "base" Then o.Range("a:f").Cells.Clear
        Next
        Sheets("base").Activate '
        Range("a:f").AutoFilter Field:=5, Criteria1:="=aug individuelle", Operator:=xlOr, Criteria2:="=promotion"
        Range("a:f").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("aug individuelle  promo").Range("a1")
        Range("a:f").AutoFilter Field:=5, Criteria1:="aug générale"
        Range("a:f").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("aug general").Range("a1")
        Range("a:f").AutoFilter Field:=5, Criteria1:="Egalité pro"
        Range("a:f").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("egalite pro").Range("a1")
        Range("a:f").AutoFilter Field:=5, Criteria1:="Garantie salaire"
        Range("a:f").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("garantie salariale").Range("a1")
        Range("a:f").AutoFilter Field:=5
     With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : macro excel création feuille

🙂
 
Vote positif 0 Vote négatif
Re : macro excel création feuille

Re-bonjour,

Le code initial, mentionné en #2, peut être modifié comme suit :

Code: 
Option Explicit
Sub Répartir_bis()
    Dim o As Worksheet
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
        For Each o In Worksheets
            If o.Name <> "base" Then o.Range("a:f").Cells.Clear
        Next
        Sheets("base").Activate '
        With Range("a:f")
        .AutoFilter Field:=5, Criteria1:="=aug individuelle", Operator:=xlOr, Criteria2:="=promotion"
        .Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("aug individuelle  promo").Range("a1")
        .AutoFilter Field:=5, Criteria1:="aug générale"
        .Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("aug general").Range("a1")
        .AutoFilter Field:=5, Criteria1:="Egalité pro"
        .Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("egalite pro").Range("a1")
        .AutoFilter Field:=5, Criteria1:="Garantie salaire"
        .Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("garantie salariale").Range("a1")
        .AutoFilter Field:=5
        End With
     With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : macro excel création feuille

merci
Sub creer_feuilleai()
Dim o As Worksheet
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
For Each o In Worksheets
If o.Name <> "base" Then o.Range("a:af").Cells.Clear
Next
Sheets("base").Activate '
Range("a:af").AutoFilter Field:=25, Criteria1:=Array("AI", "PR", "NO"), Operator:=xlFilterValues
Range("a:af").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("aug individuelle promo").Range("a1")
Range("a:af").AutoFilter Field:=25, Criteria1:="EP"
Range("a:af").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("egalite pro").Range("a1")
Range("a:af").AutoFilter Field:=25, Criteria1:="GS"
Range("a:af").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("garantie salariale").Range("a1")
Range("a:af").AutoFilter Field:=25, Criteria1:="MT"
Range("a:af").Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Maternité").Range("a1")

With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

j'ai fait une modif sur la macro car je veux 3 conditions au lieu de 2 pour la première ligne(aug indi, promo, et nomination)
cela à l'air de fonctionner mais par contre elle plante car pas assez de mémoire....
qu'en penses tu??
merci encore
 
Vote positif 0 Vote négatif
Re : macro excel création feuille

Re-bonjour,

nat38 à dit:
...j'ai fait une modif sur la macro car je veux 3 conditions au lieu de 2 pour la première ligne(aug indi, promo, et nomination)...cela à l'air de fonctionner mais par contre elle plante car pas assez de mémoire...qu'en penses tu??...
Cliquez pour agrandir...

Pourrait-on voir le fichier en question et, sur un nouvel onglet, le résultat souhaité ?

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : macro excel création feuille

salut,

j'ai modifiée la macro pr selectionner que les plages incrémentées au lieu de toute la feuille.
Cela marche !!§§§§§!!!!!!!
ci joint le nouveau code
Range("a:af").AutoFilter Field:=25, Criteria1:="AG"
Range("a1").CurrentRegion.Copy Destination:=Sheets("AUG GENERALE").Range("a1")
Merci encore pour ton aide
a bientot
 
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

M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
410
ChTi160
G
  • Question Question
XL 2021 création graphique type gantt
Réponses
5
Affichages
421
sylvanu
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
882
Max
M
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
786
job75
J
  • Question Question
Microsoft 365 Création Macro pour copier/coller en valeur dans une autre feuille.
Réponses
1
Affichages
915
Lolote83
L
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
D
  • Question Question
Microsoft 365 macro avec lien hypertexte et modele de facture
Réponses
6
Affichages
1 K
david_aurel
D
S
  • Question Question
XL 2019 Besoin d'aide pour créer une macro vba - mettre à jour une feuille excel à partir d'une autre
Réponses
9
Affichages
2 K
saunier
S
J
  • Question Question
XL 2016 Chercher valeur dans plusieurs feuilles et recopier les lignes dans une seule feuille - Macro VBA
Réponses
1
Affichages
2 K
jo77
J
L
  • Résolu(e)
Microsoft 365 Copie d'une ligne entière sur une autre feuille à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
Phil69970
Y
  • Question Question
XL 2019 Besoin d'aide pour une Macro pouvant doubler des lignes et remplir des colonnes
Réponses
7
Affichages
975
chris
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
J
  • Question Question
XL 2016 Création de macros diverses
Réponses
0
Affichages
1 K
Jérôme57
J
F
  • Question Question
XL 2016 Créer une feuille à partir de 2 feuilles (macro ou VBA)
Réponses
0
Affichages
680
FranckyNC
F
A
  • Question Question
XL 2016 Création et remplissage automatique de feuilles selon un listing
2
Réponses
21
Affichages
3 K
angelusr71
A
D
  • Question Question
XL 2019 Ventilation des données selon nom dans colonne 1 = nom des onglets
Réponses
11
Affichages
2 K
Dwindle
D
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
J
  • Question Question
XL 2016 Dupliquer une feuille avec une numérotation automatique
Réponses
1
Affichages
2 K
mapomme
L
  • Question Question
XL 2016 Sélection onglet Excel envoi par mail en PDF
Réponses
4
Affichages
3 K
LuanaDDC
L
B
  • Question Question
XL 2019 Renommer fichier excel selon table de référence Excel
Réponses
1
Affichages
2 K
Bastien43
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…