Microsoft 365 Excel VBA

M

mo_owen

XLDnaute Nouveau
Bonjour à tous je suis novice en VBA et j'ai besoin de votre aide

Voici le fichier Excel ci joint

Il comporte trois feuilles excel. (ORIGINAL, RESULTAT ATTENDU, COPY_ORIGINAL_POUR_TEST).

Je voudrais si possible un code qui se rapproche de la suppression des doublons mais pas que. J'ai besoin d'un code qui garde le plus ancien et le plus récent dossier pour un numéro de dossier donné.

Cependant, Dans le fichier j'ai des doublons, un dossier unique, des triplons, quatriplons etc.....


Résultat attendu:
Besoin de 2 lignes (le plus ancien et la plus récent pour chaque numéro de dossier dossier en prenant en compte le code journal A) pour chaque dossier à savoir le premier dossier (le plus ancien dossier) et le dernier dossier (le plus récent) du même numéro de dossier.)

je récapitule : Si le code journal == A alors récupère le dossier le plus ancien et le plus récent; mais pour chaque numéro de dossier

Cordialement
Merci pour votre aide
 

Pièces jointes

  • TestFinal_Automatisation.xlsx
    12 KB · Affichages: 2
  • TestFinal_Automatisation.xls
    50.5 KB · Affichages: 0
Dernière édition:
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
bon.. ce serait sympa d'arreter de dire "ca ne marche pas, je sais pas faire....."
ca donne quand meme l'impression que tu ne fais pas d'effort

1) je t'ai dit qu'il fallait trier tes données sur la colonne A, puis la colonne B==> la macro donnera donc le résultat attendu

2) dans ta feuille résultat attendu, je vois une ligne avec le dossier 4
il me semblait que tu avais dit que si on avait une seule ligne pour un dossier, alors, elle est supprimée...???
 
Vote positif 0 Vote négatif
chris

chris

XLDnaute Barbatruc
Bonjour

Pas de MP non sollicité, merci.

C'est une solution Excel mais elle peut fonctionner dans Power BI puisque PowerQuery fait aussi partie de Power BI

Si cela peut aider voici le code de la requête
VB: 
let
    Source = Excel.CurrentWorkbook(){[Name="Dossiers"]}[Content],
    Etat1 = Table.TransformColumnTypes(Source,{{"N°DOSSIER ", Int64.Type}, {"DATE", type date}, {"STATUT", type text}}),
    #"Lignes groupées" = Table.Group(Etat1, {"N°DOSSIER "}, {{"D1", each List.Min([DATE]), type nullable date}, {"D2", each List.Max([DATE]), type nullable date}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Lignes groupées", "Filtre", each if [D1] = [D2] then null else 1),
    #"Lignes filtrées" = Table.SelectRows(#"Personnalisée ajoutée", each ([Filtre] = 1)),
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Lignes filtrées", {"N°DOSSIER "}, "Attribut", "DATE"),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Supprimer le tableau croisé dynamique des autres colonnes",{"Attribut"}),
    #"Requêtes fusionnées" = Table.NestedJoin(#"Colonnes supprimées", {"N°DOSSIER ", "DATE"}, Etat1, {"N°DOSSIER ", "DATE"}, "Etat1", JoinKind.Inner),
    #"Etat1 développé" = Table.ExpandTableColumn(#"Requêtes fusionnées", "Etat1", {"STATUT"}, {"STATUT"}),
    #"Lignes triées" = Table.Sort(#"Etat1 développé",{{"N°DOSSIER ", Order.Ascending}, {"DATE", Order.Ascending}})
in
    #"Lignes triées"

Le tableau source a été mis sous forme de tableau structuré nommé Dossiers
 
Vote positif 0 Vote négatif
M

mo_owen

XLDnaute Nouveau
vgendron à dit:
bon.. ce serait sympa d'arreter de dire "ca ne marche pas, je sais pas faire....."
ca donne quand meme l'impression que tu ne fais pas d'effort

1) je t'ai dit qu'il fallait trier tes données sur la colonne A, puis la colonne B==> la macro donnera donc le résultat attendu

2) dans ta feuille résultat attendu, je vois une ligne avec le dossier 4
il me semblait que tu avais dit que si on avait une seule ligne pour un dossier, alors, elle est supprimée...???
Cliquez pour agrandir...
Oui bien-sûr c'est exacte
 
Vote positif 0 Vote négatif
M

mo_owen

XLDnaute Nouveau
chris à dit:
Bonjour

Pas de MP non sollicité, merci.

C'est une solution Excel mais elle peut fonctionner dans Power BI puisque PowerQuery fait aussi partie de Power BI

Si cela peut aider voici le code de la requête
VB: 
let
    Source = Excel.CurrentWorkbook(){[Name="Dossiers"]}[Content],
    Etat1 = Table.TransformColumnTypes(Source,{{"N°DOSSIER ", Int64.Type}, {"DATE", type date}, {"STATUT", type text}}),
    #"Lignes groupées" = Table.Group(Etat1, {"N°DOSSIER "}, {{"D1", each List.Min([DATE]), type nullable date}, {"D2", each List.Max([DATE]), type nullable date}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Lignes groupées", "Filtre", each if [D1] = [D2] then null else 1),
    #"Lignes filtrées" = Table.SelectRows(#"Personnalisée ajoutée", each ([Filtre] = 1)),
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Lignes filtrées", {"N°DOSSIER "}, "Attribut", "DATE"),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Supprimer le tableau croisé dynamique des autres colonnes",{"Attribut"}),
    #"Requêtes fusionnées" = Table.NestedJoin(#"Colonnes supprimées", {"N°DOSSIER ", "DATE"}, Etat1, {"N°DOSSIER ", "DATE"}, "Etat1", JoinKind.Inner),
    #"Etat1 développé" = Table.ExpandTableColumn(#"Requêtes fusionnées", "Etat1", {"STATUT"}, {"STATUT"}),
    #"Lignes triées" = Table.Sort(#"Etat1 développé",{{"N°DOSSIER ", Order.Ascending}, {"DATE", Order.Ascending}})
in
    #"Lignes triées"

Le tableau source a été mis sous forme de tableau structuré nommé Dossiers
Cliquez pour agrandir...
Merci beaucoup pour ton code prenez tous soin de vous
 
Vote positif 0 Vote négatif
M

mo_owen

XLDnaute Nouveau
chris à dit:
Bonjour

Pas de MP non sollicité, merci.

C'est une solution Excel mais elle peut fonctionner dans Power BI puisque PowerQuery fait aussi partie de Power BI

Si cela peut aider voici le code de la requête
VB: 
let
    Source = Excel.CurrentWorkbook(){[Name="Dossiers"]}[Content],
    Etat1 = Table.TransformColumnTypes(Source,{{"N°DOSSIER ", Int64.Type}, {"DATE", type date}, {"STATUT", type text}}),
    #"Lignes groupées" = Table.Group(Etat1, {"N°DOSSIER "}, {{"D1", each List.Min([DATE]), type nullable date}, {"D2", each List.Max([DATE]), type nullable date}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Lignes groupées", "Filtre", each if [D1] = [D2] then null else 1),
    #"Lignes filtrées" = Table.SelectRows(#"Personnalisée ajoutée", each ([Filtre] = 1)),
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Lignes filtrées", {"N°DOSSIER "}, "Attribut", "DATE"),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Supprimer le tableau croisé dynamique des autres colonnes",{"Attribut"}),
    #"Requêtes fusionnées" = Table.NestedJoin(#"Colonnes supprimées", {"N°DOSSIER ", "DATE"}, Etat1, {"N°DOSSIER ", "DATE"}, "Etat1", JoinKind.Inner),
    #"Etat1 développé" = Table.ExpandTableColumn(#"Requêtes fusionnées", "Etat1", {"STATUT"}, {"STATUT"}),
    #"Lignes triées" = Table.Sort(#"Etat1 développé",{{"N°DOSSIER ", Order.Ascending}, {"DATE", Order.Ascending}})
in
    #"Lignes triées"

Le tableau source a été mis sous forme de tableau structuré nommé Dossiers
Cliquez pour agrandir...
Merci beaucoup pour ton code
 
Vote positif 0 Vote négatif
M

mo_owen

XLDnaute Nouveau
chris à dit:
Bonjour

Pas de MP non sollicité, merci.

C'est une solution Excel mais elle peut fonctionner dans Power BI puisque PowerQuery fait aussi partie de Power BI

Si cela peut aider voici le code de la requête
VB: 
let
    Source = Excel.CurrentWorkbook(){[Name="Dossiers"]}[Content],
    Etat1 = Table.TransformColumnTypes(Source,{{"N°DOSSIER ", Int64.Type}, {"DATE", type date}, {"STATUT", type text}}),
    #"Lignes groupées" = Table.Group(Etat1, {"N°DOSSIER "}, {{"D1", each List.Min([DATE]), type nullable date}, {"D2", each List.Max([DATE]), type nullable date}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Lignes groupées", "Filtre", each if [D1] = [D2] then null else 1),
    #"Lignes filtrées" = Table.SelectRows(#"Personnalisée ajoutée", each ([Filtre] = 1)),
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Lignes filtrées", {"N°DOSSIER "}, "Attribut", "DATE"),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Supprimer le tableau croisé dynamique des autres colonnes",{"Attribut"}),
    #"Requêtes fusionnées" = Table.NestedJoin(#"Colonnes supprimées", {"N°DOSSIER ", "DATE"}, Etat1, {"N°DOSSIER ", "DATE"}, "Etat1", JoinKind.Inner),
    #"Etat1 développé" = Table.ExpandTableColumn(#"Requêtes fusionnées", "Etat1", {"STATUT"}, {"STATUT"}),
    #"Lignes triées" = Table.Sort(#"Etat1 développé",{{"N°DOSSIER ", Order.Ascending}, {"DATE", Order.Ascending}})
in
    #"Lignes triées"

Le tableau source a été mis sous forme de tableau structuré nommé Dossiers
Cliquez pour agrandir...
Merci beaucoup pour ton code
chris à dit:
RE

Finalement tu ne dis pas si tu as essayé le fichier Excel que j'avais joint et donne bien le résultat attendu sans VBA...
Cliquez pour agrandir...
Désolé Chris je ne l'ai pas encore essayé je te fais le CR dans peu de temps.Merci
 
Vote positif 0 Vote négatif
M

mo_owen

XLDnaute Nouveau
Bonjour, Heureux de t'écris ta requ
chris à dit:
Bonjour

Pas de MP non sollicité, merci.

C'est une solution Excel mais elle peut fonctionner dans Power BI puisque PowerQuery fait aussi partie de Power BI

Si cela peut aider voici le code de la requête
VB: 
let
    Source = Excel.CurrentWorkbook(){[Name="Dossiers"]}[Content],
    Etat1 = Table.TransformColumnTypes(Source,{{"N°DOSSIER ", Int64.Type}, {"DATE", type date}, {"STATUT", type text}}),
    #"Lignes groupées" = Table.Group(Etat1, {"N°DOSSIER "}, {{"D1", each List.Min([DATE]), type nullable date}, {"D2", each List.Max([DATE]), type nullable date}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Lignes groupées", "Filtre", each if [D1] = [D2] then null else 1),
    #"Lignes filtrées" = Table.SelectRows(#"Personnalisée ajoutée", each ([Filtre] = 1)),
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Lignes filtrées", {"N°DOSSIER "}, "Attribut", "DATE"),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Supprimer le tableau croisé dynamique des autres colonnes",{"Attribut"}),
    #"Requêtes fusionnées" = Table.NestedJoin(#"Colonnes supprimées", {"N°DOSSIER ", "DATE"}, Etat1, {"N°DOSSIER ", "DATE"}, "Etat1", JoinKind.Inner),
    #"Etat1 développé" = Table.ExpandTableColumn(#"Requêtes fusionnées", "Etat1", {"STATUT"}, {"STATUT"}),
    #"Lignes triées" = Table.Sort(#"Etat1 développé",{{"N°DOSSIER ", Order.Ascending}, {"DATE", Order.Ascending}})
in
    #"Lignes triées"

Le tableau source a été mis sous forme de tableau structuré nommé Dossiers
Cliquez pour agrandir...
Bonjour Chris, Heureux de t'écrire ta requête marche super bien sur mon jeu de données test encore une fois merci,
cependant je suis entrain de le testé sur mon jeu de données original, il marche très bien sauf que je suis bloqué au niveau de cette partie et si possible j'aimerais plus d'éclaircissement merci.


#"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Lignes filtrées", {"N°DOSSIER "}, "Attribut", "DATE"),
#"Colonnes supprimées" = Table.RemoveColumns(#"Supprimer le tableau croisé dynamique des autres colonnes",{"Attribut"}),
#"Requêtes fusionnées" = Table.NestedJoin(#"Colonnes supprimées", {"N°DOSSIER ", "DATE"}, Etat1, {"N°DOSSIER ", "DATE"}, "Etat1", JoinKind.Inner),
#"Etat1 développé" = Table.ExpandTableColumn(#"Requêtes fusionnées", "Etat1", {"STATUT"}, {"STATUT"}),
#"Lignes triées" = Table.Sort(#"Etat1 développé",{{"N°DOSSIER ", Order.Ascending}, {"DATE", Order.Ascending}})
 
Vote positif 0 Vote négatif
chris

chris

XLDnaute Barbatruc
Bonjour tous

Etapes depuis le début :
Tu mets ton vrai jeu de données sous forme de tableau structuré nommé Dossiers (on utilise les tableaux structurés depuis 19 ans dans Excel)
fauconnier.developpez.com

Tableaux structurés Excel

Tableaux structurés Excel
fauconnier.developpez.com fauconnier.developpez.com
puis
  • depuis une cellule du tableau, Données, A partir d'un tableau : cela ouvre PowerQuery
  • il y a deux étapes listées à droite pour la requête qui s'est créée : renommer l'étape 2 de typage en Etat1
  • sélectionner la colonne N°DOSSIER clic droit, Regrouper par : en opérations utiliser le Min et le Max de DATE
  • Ajouter une colonne, Colonne Personnalisée, Nom Filtre, formule
    =if [D1] = [D2] then null else 1
  • filtrer cette colonne pour ne garder que 1
  • sélectionner les colonnes N°DOSSIER et Filtre, clic droit Dépivoter les autres colonnes
    Dans la barre de formule remplacer Valeur par DATE
  • supprimer les colonnes Filtre et Attribut
  • Accueil, Fusionner les requêtes : on ne peut choisir que la requête en cours.
    Sélectionner dans les 2 tableaux, les deux colonnes, Type de jointure Interne.
    Dans la barre de formule, remplacer le 2ème #"Colonnes supprimées" par Etat1 et
    "Colonnes supprimées" par "Etat1"
  • Cliquer sur la double flèche près du titre Etat1 : décocher tout sauf STATUT
  • Trier par N°DOSSIER et DATE
  • sortir par Fermer et Charger dans, Tableau et choisir la destination
 
Vote positif 0 Vote négatif

Discussions similaires

L
  • Question
XL 2019 Créer des dossiers et sous dossiers avec VBA
2
Réponses
19
Affichages
226
patricktoulon
patricktoulon
M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
262
mromain
mromain
M
  • Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
219
MBEPID
M
V
  • Question
Microsoft 365 VBA deux document Excel
Réponses
10
Affichages
452
vroumvroum
V
M
  • Question
XL 2021 Creation VBA copie de differents fichiers dans différents dossiers
Réponses
5
Affichages
373
patricktoulon
patricktoulon
J
  • 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
59
JJ69
J
edgy63
  • Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
500
alexga78
A
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
1 K
patricktoulon
patricktoulon
D
  • Résolu(e)
Microsoft 365 TRIER SUR FEUILLE PROTEGER
Réponses
8
Affichages
459
dd_76
D
M
  • Question
Microsoft 365 Extraire une valeur sous 2 conditions
Réponses
10
Affichages
299
Milou86
M

Membres actuellement en ligne

11 membres et 133 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 093
Messages
2 116 132
Membres
112 667
dernier inscrit
foyoman