Microsoft 365 Macro comptage EAN identique et supprimer les doublons EAN

Dudu2

XLDnaute Barbatruc

• 16 Mai 2021

• #2

Bonjour,
A supposer que ton tableau soit un tableau structuré... Exécuter la Macro ÉliminerLesDoubles().

 

Pièces jointes

• Copie de FORUM 16 MAI 2021 V1.xlsm

  21.3 KB · Affichages: 11

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 16 Mai 2021

• #3

Bonjour Dudu2,
un grand merci pour votre aide , c'est exactement ce que je souhaitais , c'est parfait .
Vous êtes vraiment très fort .
Encore un grand merci , cela va me faire gagner un temps énorme .

Bonne soirée

DavidP

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 16 Mai 2021

• #4

Bonsoir à tous ,

Un autre essai. Le tableau doit être un tableau structuré. Le code est dans module1:

VB:

Sub OterDoublon()
Const Formule = "=countif([xxx],[@[xxx]])"
Dim enteteEAN As String, laFormule As String
   With Sheets("saisie").ListObjects(1)
      enteteEAN = .ListColumns(3).Range(1, 1)
      laFormule = Replace(Formule, "xxx", enteteEAN)
      .ListColumns(4).DataBodyRange.FormulaR1C1 = laFormule
      .ListColumns(4).DataBodyRange = .ListColumns(4).DataBodyRange.Value
      .Range.RemoveDuplicates Columns:=Array(3)
   End With
End Sub

 

Pièces jointes

• davidp- compter-supprimer Doublon- v1.xlsm

  25.4 KB · Affichages: 9

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 16 Mai 2021

• #5

Re à tous,

La même mais à partir d'une plage ordinaire. On se ramène au cas précédent.

VB:

Sub OterDoublon()
Const Formule = "=countif([xxx],[@[xxx]])"
Dim enteteEAN As String, laFormule As String, Nom As String
 
   With Sheets("saisie")
      With .ListObjects.Add(xlSrcRange, .Range(.Range("a4"), .Range("a4").End(xlDown).Offset(, 4)), , xlYes)
         Nom = .Name
         enteteEAN = .ListColumns(3).Range(1, 1)
         laFormule = Replace(Formule, "xxx", enteteEAN)
         .ListColumns(4).DataBodyRange.FormulaR1C1 = laFormule
         .ListColumns(4).DataBodyRange = .ListColumns(4).DataBodyRange.Value
         .Range.RemoveDuplicates Columns:=Array(3)
      End With
      .ListObjects(Nom).Unlist
   End With
End Sub

 

Pièces jointes

• davidp- compter-supprimer Doublon- v11.xlsm

  25.4 KB · Affichages: 5

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 17 Mai 2021

• #6

Bonjour, mais que c'est compliqué... juste un query... et une seule instruction: grouper...

 

Pièces jointes

• FORUM 16 MAI 2021 V1.xlsx

  22.9 KB · Affichages: 12

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Mai 2021

• #7

Bonjour @merinos,
PowerQuery c'est magique ! A condition d'avoir la potion ou la baguette qui va avec.
Déjà rien que pour exécuter la requête, il faut savoir que c'est: Onglet Données + Actualiser tout.
Je le précise parce que pour ceux qui sont experts en PowerQuery ça semble évident mais ça ne l'est pas.

Tu as besoin des 2 tableaux pour obtenir le résultat ou c'est juste ton choix ?

 

Dernière édition: 17 Mai 2021

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 17 Mai 2021

• #8

merinos à dit:

Bonjour, mais que c'est compliqué... juste un query... et une seule instruction: grouper...

Cliquez pour agrandir...

Bonjour @merinos,

Excusez-moi d'avoir pondu du VBA. Je mérite le chat à neuf queues et d'être empalé vif au fer rouge .

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Mai 2021

• #9

Tant que @merinos n'aura pas démontré qu'il sait travailler sur le tableau source pour donner le résultat attendu, le châtiment est suspendu.

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 18 Mai 2021

• #10

Dudu2 à dit:

Bonjour @merinos,
PowerQuery c'est magique ! A condition d'avoir la potion ou la baguette qui va avec.
Déjà rien que pour exécuter la requête, il faut savoir que c'est: Onglet Données + Actualiser tout.
Je le précise parce que pour ceux qui sont experts en PowerQuery ça semble évident mais ça ne l'est pas.

Tu as besoin des 2 tableaux pour obtenir le résultat ou c'est juste ton choix ?

Cliquez pour agrandir...

Salut le fofo, Salut @Dudu2 ,

J'ai juste besoin de 2 tableau: la source et le resultat... donc j'aurais pu prendre la même source. mais pour ne pas changer ce qui fonctionnait deja, ... j'ai juste copié les données.

Pourquoi j'emploie PowerQuery pour ce genre de chose, car c'est souvant plus facile a employer que VB...
Je me fais l'avocat du diable... mais je suis plein d'admiration pour le code VB que certains font... rien de perso, @mapomme . Tout depend de ce qu'on réalise... Et comme on peut créer des query via une interphase graphique...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Mai 2021

• #11

Bonjour @merinos,
En effet j'ai survolé PQ via une vidéo ultra-basique et j'ai compris qu'il fallait une source sur laquelle on applique des requêtes successives.
Alors j'ai essayé et je ne suis même pas arrivé à sélectionner le tableau en source .
Devrai-je me passer de PQ ad vitam eternam ? Bon, je vais me ré-inscrire en Master à l'université.

 

Dernière édition: 18 Mai 2021

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 18 Mai 2021

• #12

Salut @Dudu2 ,

Pourtant c'est devant tes yeux... "A partir d'un tableau" ... et si le tables n'existe pas, excel le crée.
Là tu cherches dans ls sources externes... c'est bien aussi, mais c'est pour la leçon 5...




Quand tu lance ton query, tu arrives dans le query editor.

A: le bouton pour sauver... et dire comment. tu peux aussi juste garder le resultat en memoire.
B: le GROUP By : je deffini comment grouper les lignes.
C: je vois les differentes étapes... et je peux changer leur ordre, en effacer...
A noter que le changement de type n'etait pas correct: les codes EAN etaient reconnus comme chiffres.. j'ai juste replacé ce type par text...
Quand tu double click sur une des étapes, un popup te montre ce qu'il fait...

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 18 Mai 2021

• #13

Bonjour à tous ,

un grand merci pour votre aide très instructive

Bonne journée

DAVIDP

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Mai 2021

• #14

Désolé @davidp, ça tourne à la leçon PowerQuery pour définir la source.
Un truc qui devrait être totalement intuitif et pourtant que je n'arrive pas à maîtriser sur un simple tableau !

@merinos, A partir d'un tableau... Bien sûr que j'avais essayé ça, en vain.
Car dès que j'indique la zone du tableau source il me dit qu'il y a recouvrement car PQ veut créer un tableau !!?? Alors que j'essaie de lui désigner la source ! Je ne comprends vraiment pas la logique du truc.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Mai 2021

• #15

Ok je vais pas t'emm.. avec mes histoires de PQ où le B-A BA ne répond déjà pas à la logique intuitive la plus élémentaire et ça m'énerve au plus haut point. Je vais rester sur VBA. Avec @mapomme on pourra s'entendre au moins.

 

Vote positif 0 Vote négatif