Maximum/Minimum sans formule excel

Étudiant -  
PlacageGranby Messages postés 402 Statut Membre -
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 Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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.....
    0
    1. Étudiant
       
      Parfait, merci beaucoup!

      Et si je veux placer ma réponse dans la case B23?
      0
    2. PlacageGranby Messages postés 402 Statut Membre 26
       
      Bonjour,
      Tu peux assigner avec 
      Range("B23").value = Maxi
      0

Discussions similaires

tout en majuscules (excel)
txiki -
Avatar -

35 réponses
Excel - Transformer minuscule en majuscule
Robocopp -
christophe -

16 réponses