Trouver les prix sans doublons

[apt]

Bonsoir à tous,

J'aimerais écrire tous les prix sans doublons des articles présents dans la colonne M, depuis la colonne C.

Mais voila, dans mon exemple en PJ, il y a quand même des doublons. ($P$4 et $P$7 en jaune)

Une correction ?

Merci.

 

[R@chid]

Re : Trouver les prix sans doublons

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

=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

 

[JHA]

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

 

[apt]

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.

 

[R@chid]

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 :

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

Voir PJ
Amicalement

 

[R@chid]

Re : Trouver les prix sans doublons

ReBonjour,

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

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

 

[apt]

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 :

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

 

[R@chid]

Re : Trouver les prix sans doublons

Bonjour,

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

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

 

[apt]

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 ?

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