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

Aide creation macro avec filtre et split de fichier.

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

Soleil11

XLDnaute Occasionnel
Bonjour le Forum,

J'aimerais de l'aide pour créer un script vba qui me permette de faire les différentes étapes décrites ci-dessous. Mon problème c'est de pouvoir faire une avec boucle avec monfichier.xlsx qui normalement celui-ci ne doit pas changer.

J'ai monfichier.xlsx avec deux onglets, la premier onglet serait les données que je vais traité directement et son nom serait "Data" et mon deuxième onglet serait une pivot.

Voilà ce que la macro devrait faire sequentiellement :

1. Ouvrir monfichier.xlsx qui se trouve sur mon c:data
2. selectionner feuille 1 qui s'appelle "data"
3. selectionner column 8 et filter tous les teams : "teams1, teams2, team3 etc"
4. Enlever le filtre sur "teams1"
5. Eliminer les lignes avec le filtre "teams2, teams3 etc".
6. Selectionner 2ème onglet Pivot et faire un refresh
7. Sauver le fichier sous C:data/Output/teams1 avec le nom du "teams1".

reprendre le fichier monfichier.xlsx mon fichier de base faire une boucle avec team2:

8. Ouvrir de nouveau monfichier.xlsx qui se trouve sur mon c:data
9. selectionner feuille 1 qui s'appelle "data"
10. selectionner column 8 et filter sur tous les teams "teams1, teams2, team3 etc"
11. Enlever le filtre sur "teams2"
12. Eliminer les lignes avec le filtre "teams1, teams3 etc".
13. Selectionner 2ème onglet Pivot et faire un refresh
14. Sauver le fichier sous C:data/Output/teams2 avec le nom du "team2".

faire une boucle avec le team3

15. même étapes que les précédantes simplement prendre le prochain team3.

Pour être plus claire j'aimerais splitter mon fichier par le nbre teams qui existe dans monfichier.xlsx et le copier sur mon c:data\output. J'espère que mes explications sont suffisantes.

Merci de votre aide.

Soleil11😕
 
Trier par date Trier par votes
Re : Aide creation macro avec filtre et split de fichier.

Bonjour Soleil, bonjour le forum,

En pièce jointe un fichier Macro.xlsm qui contient la macro avec le code ci-dessous :
Code: 
Sub Macro1()
Dim C As Workbook
Dim O As Object
Dim DL As Long
Dim PL As Range
Dim D As Object
Dim CEL As Range
Dim TMP As Variant
Dim I As Long
Dim PLV As Range
Dim P As Object

Set C = Workbooks.Open("C:\Data\monfichier.xlsm")
Set O = C.Sheets("Data")
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row
Set PL = O.Range("A2:A" & DL)
Set D = CreateObject("Scripting.Dictionary")
For Each CEL In PL
    D(CEL.Offset(0, 7).Value) = ""
Next CEL
TMP = D.keys
C.Close SaveChanges:=False
For I = 0 To UBound(TMP)
    Set C = Workbooks.Open("C:\Data\monfichier.xlsm")
    Set O = C.Sheets("Data")
    DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row
    Set PL = O.Range("A2:A" & DL)
    O.Range("A1").AutoFilter Field:=8, Criteria1:="<>" & TMP(I)
    Set PLV = PL.SpecialCells(xlCellTypeVisible)
    PLV.EntireRow.Delete
    O.Range("A1").AutoFilter
    Set P = Sheets("Pivot")
    With P.PivotTables("PivotTable1").PivotFields("Teams")
        For J = 1 To .PivotItems.Count
            If .PivotItems(J) <> .PivotItems(TMP(I)) Then .PivotItems(J).Visible = False
        Next J
    End With
    C.SaveAs ("C:data/Output/" & TMP(I) & ".xlsm")
    C.Close
Next I
End Sub

D'habitude je commente toujours mes codes pour aider l'utilisateur à les comprendre mais là je n'ai pas eu le temps. Si tu as besoin des commentaire je te les ferai avec plaisir...
Ouvre ce fichier et lance la macro...
Le fichier :
 

Pièces jointes

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

Discussions similaires

S
  • Question Question
Microsoft 365 Erreur avec Choisircols et Filtre
Réponses
4
Affichages
135
Sissou71
S
F
  • Question Question
Microsoft 365 TCD avec Formules?
Réponses
12
Affichages
619
chris
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
254
JJ69
J
M
  • Résolu(e)
Microsoft 365 Aide sur macro (débutant inside)
2
Réponses
16
Affichages
846
Phil69970
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
715
Lyrix
L
B
  • Question Question
XL 2016 Exécution macro à l'ouverture de fichier
Réponses
3
Affichages
665
crocrocro
C
A
  • Résolu(e)
Microsoft 365 Macro pour split de données sur onglet nommé
2
Réponses
18
Affichages
2 K
Arnaud Legay
A
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
818
Dock91
D
M
  • Résolu(e)
XL 2016 Macro VBA pour appliquer un rang selon des filtres
Réponses
14
Affichages
939
M_lisa
M
  • Question Question
Autres Mise à jour fichier créé il y a 14 ans avec votre aide !
2
Réponses
20
Affichages
1 K
dn35
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
443
IderMTC
I
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
786
elgringo123456
E
POWERQUERY :: Combine vertical et totalisation des colonnes et des lignes avec application du SelectCase (ou SWITCH)
Réponses
0
Affichages
362
oguruma
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
868
fanch55
T
  • Résolu(e)
Microsoft 365 VBA code filtre auto en boucle - plusieurs critères
2
Réponses
28
Affichages
2 K
tnion
T
P
  • Question Question
Microsoft 365 Automatisation avec création de fichier et d'onglets en fonction des valeurs
2
Réponses
15
Affichages
1 K
pene
P
A
  • Résolu(e)
XL 2016 Formule filtre et mise en forme conditionnelle en fonction de la date
Réponses
9
Affichages
1 K
Alan28
A
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
728
JHA
J
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
677
job75
K
  • Question Question
Microsoft 365 Comment afficher des infos d'un fichier ouvert avec "GetOpenFileName"
Réponses
11
Affichages
754
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…