Microsoft 365 Tableau et doublons

Marvin57 · 13 Juin 2023

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

Cousinhub · 13 Juin 2023

Marvin57 à dit:
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?

vgendron · 13 Juin 2023

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 · 13 Juin 2023

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 · 13 Juin 2023

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

VB:

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 · 13 Juin 2023

sylvanu à dit:

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

VB:

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 · 13 Juin 2023

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

Cousinhub · 13 Juin 2023

Re-,
Ou par formule :
En K2 :

VB:

=TRIER(UNIQUE(Tableau1[Lieu]))

Et en L2:

Code:

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

(Bien faire référence au #)

Phil69970 · 13 Juin 2023

Re

Version V2 mais rien ne change sur les formules

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

@Phil69970

Marvin57 · 13 Juin 2023

Cousinhub à dit:
Re-,
Ou par formule :
En K2 :

VB:

=TRIER(UNIQUE(Tableau1[Lieu]))

Et en L2:

Code:

=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 · 13 Juin 2023

Marvin57 à dit:
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 · 13 Juin 2023

Cousinhub à dit:
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 · 13 Juin 2023

Phil69970 à dit:
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 · 13 Juin 2023

Re

Marvin57 à dit:
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 · 13 Juin 2023

Phil69970 à dit:
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 · 13 Juin 2023

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

Microsoft 365 Tableau et doublons

Marvin57

XLDnaute Occasionnel

Pièces jointes

Cousinhub

vgendron

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

Marvin57

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Discussions similaires