colorer la plus petite valeur d'une colonne

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : colorer la plus petite valeur d'une colonne

bibkar

la guerre, c'est l'enfer petit

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

Publicité

mareek

Et de 3 \o/

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

bibkar

la guerre, c'est l'enfer petit

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

mareek

Et de 3 \o/

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

bibkar

la guerre, c'est l'enfer petit

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

colorer la plus petite valeur d'une colonne

Sujets relatifs
Petite question de PHP...	question : recuperer une valeur à l'ecran ?
faire prendre une valeur a une variable dans une requete SQL	plusieurs valeur dans un meme champ
[PHP]Petite question sur sizeof	Passage par valeur ou par reference???
[Oracle] Recherche nom de colonne	[débutant] affecter la valeur d'une cellule à une textbox ou label ?
[php/MysqL] récuperer une valeur directement	Juste une petite question sur la structure de mon site
Plus de sujets relatifs à : colorer la plus petite valeur d'une colonne

Page générée en 0.047 secondes