colorer la plus petite valeur d'une colonne

Marsh Posté le 05-02-2003 à 10:45:07

Tout est dans le sujet...
Je reçois dans une feuille Excel une colonne avec une valeur dans chaque cellule. Je cherche à colorer la plus petite en rouge.
PS: mon script colorie la toute dernière
Sub couleur()
Sheets("Tabelle1" ).Select
mini = Cells(1, 2).Value
n = 1

While n < 20
If Cells(n + 1, 2).Value < mini Then
mini = Cells(n + 1, 2).Value
End If
n = n + 1
Wend
Cells(n + 1, 2).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

MsgBox "La plus petite est " & mini
Range("B" & mini).Select
End Sub

---------------
heartbreak ridge

Reply

Marsh Posté le 05-02-2003 à 10:45:07

Reply

Marsh Posté le 05-02-2003 à 11:59:59

c'est quoi ton pb exactement ? ton script marche pas ?

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 05-02-2003 à 12:41:18

mon script colorie la premiere cellule vide en bas de la colonne et je cherche a ce que la plus petite valeur soit colorée (la cellule ou elle se trouve)

---------------
heartbreak ridge

Reply

Marsh Posté le 05-02-2003 à 14:11:48

Modifi ton code comme ci dessous, ça devrait marcher

Code :

Sub couleur()
Sheets("Tabelle1" ).Select
mini = Cells(1, 2).Value
n = 2
nMin = 1
While n < 20
If Cells(n, 2).Value < mini Then
mini = Cells(n + 1, 2).Value
nMin = n
End If
n = n + 1
Wend
Cells(nMin, 2).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
MsgBox "La plus petite est " & mini
Range("B" & nMin).Select
End Sub

:hello:

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 05-02-2003 à 15:22:11

mareek a écrit :

Modifi ton code comme ci dessous, ça devrait marcher

Code :

Sub couleur()
Sheets("Tabelle1" ).Select
mini = Cells(1, 2).Value
n = 2
nMin = 1
While n < 20
If Cells(n, 2).Value < mini Then
mini = Cells(n , 2).Value
nMin = n
End If
n = n + 1
Wend
Cells(nMin, 2).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
MsgBox "La plus petite est " & mini
Range("B" & nMin).Select
End Sub

:hello:

Merci bcp.
J'ai juste du changer n+1 en n sinon il colorait la case au-dessus!

---------------
heartbreak ridge

Reply

colorer la plus petite valeur d'une colonne

Sujets relatifs:

Leave a Replay