Maximum/Minimum sans formule excel

Étudiant -  
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").Select
Range("B3").Value = Application.WorksheetFunction.Max(Cellules)

End Sub


2 réponses

  1.  pijaku Modérateur
    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.....
    1. Étudiant
      Parfait, merci beaucoup!

      Et si je veux placer ma réponse dans la case B23?
    2. PlacageGranby
      Bonjour,
      Tu peux assigner avec 
      Range("B23").value = Maxi

Discussions similaires

tout en majuscules (excel)
txiki

35 réponses
Excel - Transformer minuscule en majuscule
Robocopp

16 réponses