Mettre en couleur le prix le moins cher dans une liste

[laptitvava]

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]

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

Bonsoir, Efgé 🙂

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]

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

=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é]

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

Re

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]

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

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

ou bien,

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

Voir PJ...

Amicalement

 

[Efgé]

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

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

 

[R@chid]

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]

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

Bonjour,

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

excfl

 

[Fo_rum]

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 :

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

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]

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