Maximum/Minimum sans formule excel

Étudiant -  
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
Étudiant
 
Parfait, merci beaucoup!

Et si je veux placer ma réponse dans la case B23?
0
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
Bonjour,
Tu peux assigner avec 
Range("B23").value = Maxi
0
Réponse 2 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

a voir et a adapter au VBA

https://algorithmique.wordpress.com/2012/02/06/max-et-le-min-dun-tableau/
0