function max vba

bonjour

dans la colonne G j'ai des pourcentages
ce code

Code:

---

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

Citation:

---

Envoyé par moimemessssssssss

Code:

---

1 2 3

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

---

trouve le max des pourcentage

---

En es-tu certain ?

Pourtant

Code:

---

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 :mrgreen:

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

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 ?