optimisation WorksheetFunction

Il n'y a pas lieu d'optimiser cela !!!

j'apelle le code suivant un très grand nombre de fois et
j'ai peur qu'en utilisant une WorkSheetFunction, ca
ralentisse l'execution de mon programme.

y aurait il un moyen d'optimiser ca ?

WorksheetFunction.Min(9, WorksheetFunction.max
(WorksheetFunction.Round(note, 0), -9))

par avance merci

pierref
.

Bonsoir,

Tu peux en tout cas rendre ton code plus facile à lire en utilisant une
structure With :

Sub AutreEcriture()
Dim Resultat, Note
With Application.WorksheetFunction
Resultat = .Median(9, .Max(.Round(Note, 0), -9))
End With
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

bonjour,

j'apelle le code suivant un très grand nombre de fois et
j'ai peur qu'en utilisant une WorkSheetFunction, ca
ralentisse l'execution de mon programme.

y aurait il un moyen d'optimiser ca ?

WorksheetFunction.Min(9, WorksheetFunction.max
(WorksheetFunction.Round(note, 0), -9))

par avance merci

pierref