Microsoft 365 Tableau et doublons

[Marvin57]

Bonjour à tout le monde,

Le fichier ci-joint comporte deux onglets.

"BASE STOCK" et "FILTRE STOCK"

le tableau de l'onglet "BASE STOCK" se remplira au fur et à mesure ou alors pourra diminuer.

Le tableau de l'onglet "FILTRE STOCK" me sert à filtrer les lieux afin de voir la valeur du lieu.

Ce que je souhaiterai que le tableau de l'onglet "FILTRE STOCK" fasse, c'est que, si dans le tableau de l'onglet "BASE STOCK" un nouveau lieu se rajoute ou si un lieu soit supprimer
alors il devrait me mettre à jour le tableau de l'onglet "FILTRE STOCK".
Le tableau de l'onglet "FILTRE STOCK" ne doit en aucun cas afficher des doublons de lieu.

En espérant que je me suis bien exprimé dans ma demande. Mais je suis disponible et je vous répondrai rapidement.

Merci à vous pour votre aide.

Marvin57

 

[vgendron]

Bonjour

comme tu es sous 365, je pense que tu peux utiliser la fonction "Unique"
en renommant les deux tables ca donnerait ceci
(PS: pas testé, puisque chez moi, la fonction Unique n'existe pas et ca me retourne "#Nom?"

 

[Phil69970]

Bonjour à tous les 2

Ma version pour ceux qui n'ont pas 365
Attention formule matricielle bien pensez à valider par : Ctrl+Maj+entrée

Merci de ton retour

@Phil69970

 

[sylvanu]

Bonjour à tous les trois
Ma petite contribution en VBA. La macro est automatique lorsqu'on sélectionne la feuille FILTRE STOCK.

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    [Tableau2].ListObject.DataBodyRange.Delete
    Sheets("BASE STOCK").[Tableau1].Copy
    Sheets("FILTRE STOCK").[A2].Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    [Tableau2].Select
    Selection.RemoveDuplicates Columns:=2, Header:=xlYes
    Set Plage = Range("D2:D" & Range("B65500").End(xlUp).Row - 1)
    Plage.FormulaLocal = "=SOMME.SI(Tableau1[Lieu];Tableau2[[#Cette ligne];[Lieu]];Tableau1[Prix])"
    [A1].Select
End Sub

 

[Marvin57]

Bonjour à tous les trois
Ma petite contribution en VBA. La macro est automatique lorsqu'on sélectionne la feuille FILTRE STOCK.

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    [Tableau2].ListObject.DataBodyRange.Delete
    Sheets("BASE STOCK").[Tableau1].Copy
    Sheets("FILTRE STOCK").[A2].Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    [Tableau2].Select
    Selection.RemoveDuplicates Columns:=2, Header:=xlYes
    Set Plage = Range("D2:D" & Range("B65500").End(xlUp).Row - 1)
    Plage.FormulaLocal = "=SOMME.SI(Tableau1[Lieu];Tableau2[[#Cette ligne];[Lieu]];Tableau1[Prix])"
    [A1].Select
End Sub

Bonjour à tous les trois aussi ,
@Phil69970, @sylvanu et @vgendron

Merci de m'avoir répondu.
Malheureusement je viens de voir à l'instant que j'ai fais une faute dans mon fichier joint et mon explication !!!!

Je m'en excuse auprès de vous . Vraiment désolé.

Alors pour vous montrer la faute:

Le tableau de l'onglet "FILTRE STOCK" ne comporte en réel que deux colonnes.

La colonne Lieu
La colonne Prix

Pourriez-vous m'adapter cela S'il vous plaît. Et encore une fois Milles excuses.

Merci

Marvin57

 

[Cousinhub]

Bonjour,
Un TCD tout simplement? (Ruban "Données", "Actualiser tout" pour mettre à jour)

 

[Cousinhub]

Re-,
Ou par formule :
En K2 :

=TRIER(UNIQUE(Tableau1[Lieu]))

Et en L2:

=SOMME.SI.ENS(Tableau1[Prix];Tableau1[Lieu];$K$2#)

(Bien faire référence au #)

 

[Phil69970]

Re

Version V2 mais rien ne change sur les formules

Attention formule matricielle bien penser à valider par : Ctrl+Maj+entrée

@Phil69970

 

[Marvin57]

Re-,
Ou par formule :
En K2 :

=TRIER(UNIQUE(Tableau1[Lieu]))

Et en L2:

=SOMME.SI.ENS(Tableau1[Prix];Tableau1[Lieu];$K$2#)

(Bien faire référence au #)

Bonjour Cousinhub,

Merci pour ta contribution. J'ai mis en place et tout fonctionne.

Une question :
Si je rajoute un lieu ou si j'en supprime un le TCD se mettra à jour automatiquement ?

 

[Cousinhub]

Bonjour Cousinhub,

Merci pour ta contribution. J'ai mis en place et tout fonctionne.

Une question :
Si je rajoute un lieu ou si j'en supprime un le TCD se mettra à jour automatiquement ?

Re-,
La réponse à ta question est dans ma contribution #6...
Et la meilleure des réponses n'est-elle pas d'effectuer des essais soi-même?

 

[Marvin57]

Re-,
La réponse à ta question est dans ma contribution #6...
Et la meilleure des réponses n'est-elle pas d'effectuer des essais soi-même?

Re,

tu as raison, j'avais pas fait d'essai sur le modèle.
Mais maintenant c'est fait et c'est tout bon.

Parfois il vaudrait mieux se creuser un peu la tête, mais bon !

Encore MERCI à vous pour votre aide.

Marvin57

 

[Marvin57]

Re

Version V2 mais rien ne change sur les formules


@Phil69970

Re,
Merci @Phil69970

J'ai suivi le conseil de Cousinhub. Cela fonctionne bien et sans avoir besoin de code.

Merci d'avoir pris le temps pour ma demande.
A une prochaine fois.

Marvin57

 

[Phil69970]

Re

Cela fonctionne bien et sans avoir besoin de code.

Ma solution n'a aucun code VBA !!!
Mais uniquement des formules !!!
Mais l'as tu regardé !

@Phil69970

 

[Marvin57]

Re


Ma solution n'a aucun code VBA !!!
Mais uniquement des formules !!!
Mais l'as tu regardé !

@Phil69970

Re @Phil69970

oui j'ai encore repris votre fichier à l'instant et si je valide comme vous l'avez dit il ne se passe rien !

Est-ce bien pour 365 ?

 

[Phil69970]

Re

Toutes les formules de mon fichier fonctionnent quelque soit la version d'excel utilisé.
Quand les valeurs changent dans la feuille 1 ==> la feuille 2 se met à jour

En clair c'est exactement comme les formules du post # 2 de Vincent mais les formules du post #2 fonctionnent uniquement avec 365 alors que les miennes fonctionnent dans toutes les versions d'excel.

La validation matricielle est à faire si tu vas dans une formule et la modifie

@Phil69970