Mettre en couleur le prix le moins cher dans une liste

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

laptitvava

XLDnaute Nouveau
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!!
 
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 😛
 
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
 
Dernière édition:
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
 

Pièces jointes

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 ?
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
457
  • Question Question
Réponses
2
Affichages
386
Réponses
8
Affichages
260
Retour