Bonjour à tous
Je cherche la formule conditionnelle permettant de mettre en couleur automatiquement le chiffre le plus faible d'une valeur sans tenir compte des 0.
Classeur joint avec explications
Merci d'avance
Cordialement
Re : Formule conditionnelle pour le calcul du chiffre le plus faible d'une valeur
Bonjour, mp5078, le Forum,
Ne parvenant pas à trouver la formule idoine, une suggestion par macro :
Code:
Option Explicit
Sub Valeur_mini_colorer()
Dim c As Range
Application.ScreenUpdating = False
Columns("A:A").Insert Shift:=xlToRight
Range("A9").FormulaR1C1 = "=SMALL(RC[7]:RC[13],COUNTIF(RC[7]:RC[13],0)+1)"
For Each c In Range("h9:n9")
c.Interior.ColorIndex = xlNone
If c = Range("a9") Then c.Offset(-1, 0).Resize(2).Interior.ColorIndex = 44
Next
Columns("A:A").Delete
Application.ScreenUpdating = True
End Sub
Ne parvenant pas à trouver la formule idoine, une suggestion par macro :
Code:
Option Explicit
Sub Valeur_mini_colorer()
Dim c As Range
Application.ScreenUpdating = False
Columns("A:A").Insert Shift:=xlToRight
Range("A9").FormulaR1C1 = "=SMALL(RC[7]:RC[13],COUNTIF(RC[7]:RC[13],0)+1)"
For Each c In Range("h9:n9")
c.Interior.ColorIndex = xlNone
If c = Range("a9") Then c.Offset(-1, 0).Resize(2).Interior.ColorIndex = 44
Next
Columns("A:A").Delete
Application.ScreenUpdating = True
End Sub
Bonjour
Merci pour la réponse ; je ne pourrai rien faire de cette macro car il faudrait que je transpose les formules dans mon fichier final
et je ne sais pas le faire n'y connaissant absolument rien en macro...
Merci tout de même
Bonne journée
Re : Formule conditionnelle pour le calcul du chiffre le plus faible d'une valeur
Re,
Pardon Gilbert, quand j'ai posté la réponse, c'etait pas pour éviter le problème dont tu parles..
Voir fichier, je n'ai aucun problème avec la tienne.
Re,
Pardon Gilbert, quand j'ai posté la réponse, c'etait pas pour éviter le problème dont tu parles..
Voir fichier, je n'ai aucun problème avec la tienne.