Mettre en couleur le prix le moins cher dans une liste

laptitvava · 24 Octobre 2012

Bonjour,

J'ai besoin d'aide!!!!
J'ai établi une liste de prix de plusieurs articles de mes différents fournisseurs.
Je voudrais que ligne par ligne, Excel me mette la case ou le prix est le moins cher en fond vert.

Merci d'avance!!

Victor21 · 24 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Bonsoir, Efgé

Efgé à dit:
Re
Bonsoir Victor21
Sous 2007 il y a un problème si tu mets 0. Les cellules vides sont prises en compte....
Voir l'image dans la N iem pièce
Cordialement

Sous 2010 également.
Mais comme les biens et services gratuits ne courent pas les rues, les valeurs à 0 ne devraient pas être légion

Jocelyn · 24 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Bonjour le forum,
Bonjour laptitvava, R@chid, Dull, Victor21,si...,éfgé ,

En mettant dans la MFC cette formule

Code:

=D2=MIN(SI($D$2:$G$2>0;$D$2:$G$2))

cela me semble fonctionner correctement

Cordialement

EDIT Oup's j'ai oublié, Bonjour excfl

Efgé · 24 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Re

Victor21 à dit:
Mais comme les biens et services gratuits ne courent pas les rues, les valeurs à 0 ne devraient pas être légion

Mais quand même... ...cette histoire me semble étrange.
Bonne soirée
Cordialement

Edit Bonsoir Jocelyn

R@chid · 24 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Bonsoir @ tous,
la formule que j'ai proposé fonctionne même avec des cellules vides, sauf si il y a des 0 qu'on va pas prendre en compte, mais on peut le faire encore avec

Code:

=I2=PETITE.VALEUR($I2:$O2;NB.SI($I2:$O2;0)+1)

ou bien,

Code:

=NB.SI($I26:$O26;"<"&I26)-NB.SI($I26:$O26;0)+1=1

Voir PJ...

Amicalement

Efgé · 25 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Bonjour à tous, Message édité (voir proposition de SI... poste 11)

R@chid · 25 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Bonjour @ tous,
Salut FG,
la réponse en post 11 manque de Dollors ==> =ET(D2<>"";D2=MIN($D2:$F2))

Amicalement

excfl · 25 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Bonjour,

Tes données avec le résultat escompté.

excfl

Fo_rum · 25 Octobre 2012

Re : Mettre en couleur le prix le moins cher dans une liste

Bonjour,

j'ai vu un début de macro alors en voilà 2 :

Code:

Sub MoinsCher2()
  Dim L As Long, p As Range, C As Range
  For L = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Set p = Range("D" & L & ":G" & L)
    p.Interior.ColorIndex = xlNone
    For Each C In p
      If IsNumeric(C) And C <> "" Then
        If C = Application.min(p) Then C.Interior.ColorIndex = 14
      End If
    Next
  Next
End Sub

Code:

Sub MoinsCher()
  Dim L As Long, p As Range, C As Range, n As Single, m As Single
  For L = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Set p = Range("D" & L & ":G" & L)
    p.Interior.ColorIndex = xlNone
    n = Int(Application.min(p) * 100)
    For Each C In p
        If IsNumeric(C) And C <> "" Then
        m = Int(C * 100)
        If m = n Then C.Interior.ColorIndex = 10
      End If
    Next
  Next
End Sub

Faut-il tenir compte du format des nombres (2 chiffres après la virgule en affichage) ou pas ?

pp-63 · 1 Octobre 2022

Bonjour
J'ai exactement le même problème et mal grès les essais divers soit le 0 est pris en compte soit la formule ne fonctionne pas comme je le souhaite.
Pour info les cellules de prix sont soumis a opération de somme entre Prix unitaire et quantité (appelé conditionnement dans mon fichier)
Au pire si vous avez la solution lorsqu un fournisseur ne propose pas le produit que la case soit en gris et ne bloque pas le prix mini en vert.

Merci d'avance

Mettre en couleur le prix le moins cher dans une liste

laptitvava

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

Jocelyn

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Pièces jointes

Efgé

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

Pièces jointes

Fo_rum

XLDnaute Accro

pp-63

XLDnaute Nouveau

Pièces jointes

Discussions similaires