Discussion :

[moimemessssssssss]

bonjour

dans la colonne G j'ai des pourcentages
ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
a = Application.WorksheetFunction.Min(Range("G:G"))
debug.print a

trouve le max des pourcentage mais
la valeur de a s'écrit en écriture scientifique a = 1,32E-3
et non en écriture standard meme si je change les formats de la collone G en la mettant en standard, le problème persiste
comment y rémédier?
merci

[fring]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
a = Application.WorksheetFunction.Min(Range("G:G"))
debug.print a

trouve le max des pourcentage

En es-tu certain ?

Pourtant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
Dim a As Single
a = Application.WorksheetFunction.Min(Range("G:G"))
MsgBox a * 100 & " %"
End Sub

ça fonctionne correctement mais je trouve le min

[moimemessssssssss]

bonsoir,

oui en effet je me suis trompé dans ma formulation
la fonction trouve bien le min mais il me l'écrit en ecriture scientifique
exemple :
0,02% se transforme par la fonction min en 2E-4

quand y remédier et le laisser 0,02%
merci

[fring]

Comme je te l'ai signalé, le code fonctionne correctement.
Maintenant, vu que tu es devant ton écran, je n'arrive pas à voir au-dessus de ton épaule ton fichier, le format de tes cellules de ta colonne G et à force de lire dans ma boule de cristal elle devient complètement opaque.

Tes cellules sont-elles bien au format "pourcentage" ?
Tu as bien des valeurs du style 10%, 54,2%, 27%, etc...?
Comment as-tu déclarer ta variable a ?
As-tu essayer mon bout de code ?