Maximum/Minimum sans formule excel Fermé

Question

Bonjour, 

J'ai un travail à faire, et je dois faire le maximum/minimum de données de C1 à C60. Cependant, je n'ai pas le droit d'utiliser la fonction excel. Donc, ce code là n'est pas bon, même s'il marche.

Quelqu'un peut m'aider?



Sub Maximum()Sheets("données").Select    Dim Cellules As Range    Set Cellules = Range("C1:C59")    Set Cellules = ActiveSheet.Range("C1:C59")Sheets("statistiques").SelectRange("B3").Value = Application.WorksheetFunction.Max(Cellules)        End Sub

Configuration: Windows 7 / Chrome 39.0.2171.95

pijaku · Answer

Bonjour,
Tu te fais tes deux petites fonctions Minimum et Maximum?
Du style 

 Function Maximum(Plage As Range, premiere As Double) As Double
    Dim Cel As Range, Temp As Double
Temp = premiere
For Each Cel In Plage
    If Cel.Value > Temp Then Temp = Cel.Value
Next
Maximum = Temp   
End Function

Et le code d'appel de la fonction :

Sub Appel()
Dim Maxi As Double, deb As Double
Dim maPlage As Range
Set maPlage = Sheets("Données").Range("C1:C60")
deb = CDbl(Sheets("Données").Range("C1"))
Maxi = Maximum(maPlage, deb)
End Sub

Je te laisse faire la fonction Minimum, puisque tu n'as qu'un seul caractère à changer dans le code de la fonction Maximum.....

f894009 · Answer

Bonjour,

a voir et a adapter au VBA

https://algorithmique.wordpress.com/2012/02/06/max-et-le-min-dun-tableau/

Maximum/Minimum sans formule excel

2 réponses

Discussions similaires