Où est le MIN?
Salut le forum,
je vous soumets ce petit problème :
En colonne A, une liste de nom.
En colonne B, une cote numérique associée à ces noms.
En C1, je cherche la cote minimale de la colonne B (MIN B)
En D1, j'ai le nombre de fois que cette cote apparaît (COUNTIF).
J'aimerais alors trouver une façon de savoir sur quelle(s) ligne(s) est/sont cette(ces) cote(s) minimale(s).
J'ai pensé le faire avec une mise en forme mais je ne veux pas que ce soit automatique. Ça doit être sur demande seulement.
Au besoin, je vous fournirai un exemple de ce que je veux si je n'ai pas été suffisamment clair.
Merci pour votre aide.
Bonjour,
Tu voudrais avoir une liste avec les adresses de ces cellules, ou plutôt les colorer, ou autre ?
Un exemple pour imager ces propositions :
Sub test()
Dim cel As Range
Dim i As Byte
Dim liste As String, add As String
i = 2
liste = "Le minimum est en :" & Chr(13)
For Each cel In Range("B1:B30")
If cel = Range("C1") Then
cel.Interior.ColorIndex = 8
Cells(i, 4) = cel.Address
add = cel.Address
liste = liste & Chr(13) & add
i = i + 1
End If
Next cel
MsgBox (liste)
End SubSalut Sylvain,
je voudrais, quand j'appuis sur un bouton, que le minimum soit localiser et devienne en couleur.
Merci
Bonjour
Dans les cellules de la colonne b, tu peux faire une mise en forme conditionnelle =min
Tu peux aussi faire une autre colonne dont les cellules prenne la valeur 1 si la colonne b=min
et après tu utilises les filtres
Bonjour Eric,
Essaye avec ce code:
Sub test()
Dim cel As Range, plage As Range
Set plage = Range("B1:B" & Range("B1").End(xlDown).Row)
plage.Interior.ColorIndex = xlNone
For Each cel In plage
If cel = Range("C1") Then cel.Interior.ColorIndex = 8
Next cel
End SubLes couleurs resteront même si ton min change...
Jusqu'à ce que tu relances la macro