Trouver les prix sans doublons

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2012

• #2

Re : Trouver les prix sans doublons

Bonsoir apt,
si j'ai bien compris, en N2 :

Code:

=SI(COLONNES($N:N)<=SOMME(N(FREQUENCE(SI($B$2:$B$17=$M2;EQUIV($C$2:$C$17;$C$2:$C$17;0));LIGNE(INDIRECT("1:"&LIGNES($C$2:$C$17))))>0));INDEX($C$2:$C$17;MIN(SI((NB.SI($M2:M2;$C$2:$C$17)=0)*($B$2:$B$17=$M2);LIGNE(INDIRECT("1:"&LIGNES($C$2:$C$17))))));"")

@ valider par Ctrl+Maj+Entree
@ tirer vers le bas et vers la droite
Voir PJ.

Bonne Soirée

 

Pièces jointes

• PrixUnique.xls

  67 KB · Affichages: 39
• PrixUnique.xls

  67 KB · Affichages: 44
• PrixUnique.xls

  67 KB · Affichages: 46

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 6 Mai 2012

• #3

Re : Trouver les prix sans doublons

Bonjour à tous,

Avec une MFC en colonne "C" pour eviter les doublons lors de la frappe
Après lecture tu peux supprimer la colonne "D"

JHA

 

Pièces jointes

• PrixUnique.xls

  47.5 KB · Affichages: 50
• PrixUnique.xls

  47.5 KB · Affichages: 42
• PrixUnique.xls

  47.5 KB · Affichages: 45

Dernière édition: 6 Mai 2012

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 6 Mai 2012

• #4

Re : Trouver les prix sans doublons

Bonsoir Rachid, JHA,

Rachid > En ajoutant quelques articles, je n'ai pas eu de prix !!

JHA > La liste des prix est extraite depuis une feuille "Base".

C'est pour ça qu'il y a des doublons.

Avec la macro "Transforme", j'aimerais extraire que les prix uniques pour le calcul de la moyenne.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2012

• #5

Re : Trouver les prix sans doublons

Bonjour @ tous,
Salut JHA,
Si tu veux taper les prix manuellement, tu peux te servir de ==> Validation de données ==> Personnalisée :

Code:

=ET(SOMMEPROD(($B$2:$B$17=$M2)*($C$2:$C$17=N2));NB.SI($N2:$X2;N2)=1)

Voir PJ
Amicalement

 

Pièces jointes

• PrixUnique.xls

  37.5 KB · Affichages: 37
• PrixUnique.xls

  37.5 KB · Affichages: 36
• PrixUnique.xls

  37.5 KB · Affichages: 41

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2012

• #6

Re : Trouver les prix sans doublons

ReBonjour,

Rachid > En ajoutant quelques articles, je n'ai pas eu de prix !!

Cliquez pour agrandir...

On peut le faire avec des champs dynamiques,
Voir PJ
Amicalement

 

Pièces jointes

• PrixUnique_3.xls

  64 KB · Affichages: 41

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 7 Mai 2012

• #7

Re : Trouver les prix sans doublons

Bonsoir Rachid,

Si tu veux taper les prix manuellement, tu peux te servir de ==> Validation de données ==> Personnalisée :

Cliquez pour agrandir...

Comme j'ai plusieurs articles, j'aimerais le faire d'une manière automatique en VBA.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2012

• #8

Re : Trouver les prix sans doublons

Bonjour,

Comme j'ai plusieurs articles, j'aimerais le faire d'une manière automatique en VBA.

Cliquez pour agrandir...

Je te l'ai fait d'une maniere automatique mais par Formule, en attendant une en VBA
Voir Post #6
@ +

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 8 Mai 2012

• #9

Re : Trouver les prix sans doublons

Merci je vais garder tes formules.

Et j’attends de savoir pourquoi cette ligne ne trouve pas une valeur déjà présente dans la ligne Nx:Yx ?

Code:

Set y = Cells(x.Row, 14).Resize(1, 199).Find(c.Offset(0, 1).Value, lookat:=xlWhole)

 

Dernière édition: 9 Mai 2012

Vote positif 0 Vote négatif