Autres Excel 2024 : Regrouper racine nom en un seul nom

[kdet]

Bonjour à tous, le forum,

J'aurai besoin de votre aide svp. J'utilise Excel 2024 LTSC. j'ai utilisé cette formule en A2 qui est un peu longue désolé :

"=CHOISIR({1.2.3.4.5.6}; UNIQUE(TblSaisieFactures[FOURNISSEURS]); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(B$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(B$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(C$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(C$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(D$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(D$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(E$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(E$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(F$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(F$1;12;31)))"

Dans mon fichier joint, colonne H et I, par quelle formule peut-on regrouper les fournisseurs qui ont les mêmes racines et de l'inclure dans la formule ci-dessus?

Vous remerciant par avance de votre aimable collaboration.

kdet

 

[Hecatonchire]

Bonjour,

Ca ne répond pas à ta question mais ta formule en A2 ne pourrait pas être

=Let(f;UNIQUE(TblSaisieFactures[FOURNISSEURS]);
m;SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; f & "*"; annee(TblSaisieFactures[DATE]);INDEX(B$1:F$1;1;SEQUENCE(;5)));
ASSEMB.H(f;m))

formule non testé Edit : Oop marche pas !

Sinon pour extraire la "racine"
INDEX(FRACTIONNER.TEXTE(A2;" ");;1)

 

[Hecatonchire]

Je propose

=PIVOTER.PAR(INDEX(FRACTIONNER.TEXTE( TblSaisieFactures[FOURNISSEURS];" ");;1);ANNEE(TblSaisieFactures[Date]);TblSaisieFactures[Montant];SOMME)

 

[Cousinhub]

Bonsoir,
@Hecatonchire 🤚
Au vu des données, et des "racines", j'ai bien peur qu'un "Fractionner.Texte" ne soit 100% compatible...

Parfois un espace, parfois 2...
Perso, je pense qu'une table de correspondance, puis une fusion via Power Query, ça aurait de la gueule....😅
Bonne soirée

 

[job75]

Bonsoir kdet, le forum,

Pas trop compris ce que vous voulez faire mais voici une solution VBA avec filtrage par liste de validation, le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("H2:H" & Rows.Count).ClearContents 'RAZ
If Intersect(Target, UsedRange(1)) Is Nothing Then Exit Sub
Dim d As Object, tablo, i&, s
Set d = CreateObject("Scripting.Dictionary")
tablo = [A1].CurrentRegion
For i = 3 To UBound(tablo)
    s = Split(tablo(i, 1))
    If UBound(s) > -1 Then d(UCase(s(0))) = ""
Next i
If d.Count = 0 Then Exit Sub
With [H2].Resize(d.Count)
    .Value = Application.Transpose(d.keys) 'Transpose est limitée à 65536 lignes
    .Sort .Cells, xlAscending, Header:=xlNo 'tri alphabétique
    .Name = "Liste"
End With
'---liste de validation---
[A1].Validation.Delete
[A1].Validation.Add xlValidateList, Formula1:="=Liste"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then [A1].CurrentRegion.Offset(1).AutoFilter 1, [A1] & "*" 'filtre automatique
End Sub

Masquez la colonne H.

A+

 

[Nain porte quoi]

@Hecatonchire comment vous retrouvez les colonnes qui manquent DATE et MONTANT dans le tableau qui manque lui aussi ?

@kdet le fichier que vous fournissez n'est sans doute pas le bon... Et une question : Comment avez vous fait pour arriver à une formule d'une telle complexité ?

@Cousinhub je serais curieux de voir ce que ça donnerait avec Power Query

@job75 "Pas trop compris ce que vous voulez faire" je crois qu'on est dans le même état d'esprit 😉 mais il me semble que kdet voulais un regroupement, pas un filtre

 

[Cousinhub]

Hi,
La base de données n'étant pas fournie, il a juste fourni les Ctrl/V {1.2.3} (donc sans les formules...)
Donc, sans base, on ne peut que spéculer...
@Nain porte quoi , une fusion toute simple, puis un GroupBy, pour les années...
Bonne soirée

 

[job75]

il me semble que kdet voulais un regroupement, pas un filtre

Le filtre regroupe les fournisseurs commençant par la valeur de A1.

 

[Nain porte quoi]

Un test avec TCD

 

[kdet]

Bonjour,

Ca ne répond pas à ta question mais ta formule en A2 ne pourrait pas être

=Let(f;UNIQUE(TblSaisieFactures[FOURNISSEURS]);
m;SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; f & "*"; annee(TblSaisieFactures[DATE]);INDEX(B$1:F$1;1;SEQUENCE(;5)));
ASSEMB.H(f;m))

formule non testé Edit : Oop marche pas !

Sinon pour extraire la "racine"
INDEX(FRACTIONNER.TEXTE(A2;" ");;1)

Bonjour Hetaconchire, le forum,
Merci pour ton retour.
j'ai utilisé cette formule : "UNIQUE(GAUCHE(TblSaisieFactures[FOURNISSEURS]; TROUVE(" "; TblSaisieFactures[FOURNISSEURS] & " ") - 1))"
Et je voudrais intégrer cette formule avec celle-ci :
"=CHOISIR({1.2.3.4.5.6}; UNIQUE(TblSaisieFactures[FOURNISSEURS]); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(B$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(B$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(C$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(C$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(D$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(D$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(E$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(E$1;12;31)); SOMME.SI.ENS(TblSaisieFactures[MONTANT]; TblSaisieFactures[FOURNISSEURS]; UNIQUE(TblSaisieFactures[FOURNISSEURS]) & "*"; TblSaisieFactures[DATE]; ">="&DATE(F$1;1;1); TblSaisieFactures[DATE]; "<="&DATE(F$1;12;31)))"
Je joins la base originale.

Merci de votre aide.
kdet

 

[kdet]

Le filtre regroupe les fournisseurs commençant par la valeur de A1.

Bonjour job75, le forum

Effectivement avec FILTRE cela regroupe les fournisseurs et je voudrais le faire avec une seule formule si c'est faisable.

kdet

 

[kdet]

Un test avec TCD

Bonjour Nain porte quoi, le forum,

Merci pour le TCD. je vais l'adapter avec le fichier original ce que ça donne. je suis prenant par une formule.

kdet

 

[TooFatBoy]

Hello,

Comment avez vous fait pour arriver à une formule d'une telle complexité ?

Je dirais en particulier en testant ">= 1er janvier de l'année" et "<= 31 décembre de l'année", au lieu de tester simplement l'année. 😉

 

[Cousinhub]

Bon courage, et désolé pour mes interventions

 

[Hecatonchire]

Voila ce que donne ma formule
(quelques problèmes au niveau des dates, manquantes ou erronées et les racines semblent fonctionner)