Maximum/Minimum sans formule excel
Étudiant
-
PlacageGranby Messages postés 402 Statut Membre -
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?
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
A voir également:
- Maximum/Minimum sans formule excel
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Liste déroulante excel - Guide
- Excel mise en forme conditionnelle formule - Guide
- Formule somme excel ligne - Guide
2 réponses
Bonjour,
Tu te fais tes deux petites fonctions Minimum et Maximum?
Du style
Et le code d'appel de la fonction :
Je te laisse faire la fonction Minimum, puisque tu n'as qu'un seul caractère à changer dans le code de la fonction Maximum.....
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.....
Bonjour,
a voir et a adapter au VBA
https://algorithmique.wordpress.com/2012/02/06/max-et-le-min-dun-tableau/
a voir et a adapter au VBA
https://algorithmique.wordpress.com/2012/02/06/max-et-le-min-dun-tableau/
Et si je veux placer ma réponse dans la case B23?
Tu peux assigner avec
Range("B23").value = Maxi