VBA Par comparaison (Trouver le + haut et le plus petit)

Bonjour!
J'essaie de trouver un code puisque je dois trouver le montant le plus haut et le montant le plus petit d'une liste de montant dans une colonne excel.
Le montant plus grand et le montant plus petit doit s'écrire dans une autre feuille excel!
Je suis débutante dans le domaine alors j'ai besoin d'aide svp!
Merci beaucoup de votre aide!

bonsoir,

il existe des fonctions dans excel qui répondent sans le VBA :

Code:

---

1 2	=GRANDE.VALEUR(C2:C21;1) =PETITE.VALEUR(C2:C21;1)

---

voir ce code :Pièce jointe 168906

A vous

geogeo70

Bonjour!
Merci pour votre réponse! Mais pour mon travail je dois vraiment inscrire les code VBA et non excel!
Pouvez vous m'aider!?
Merci

Bonjour, bonjour !

Affecter alors la formule proposée dans la propriété FormulaLocal d'une cellule (voir l'exemple dans l'aide) …

__________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

Bonsoir,
Il faut s'aider de l'enregistreur de macro, si, je reprends l'exemple de geogeo70, t'aurai donné, entre autres, pour la grande valeur

Code:

---

ActiveCell.FormulaR1C1 = "=LARGE(R[-8]C[-1]:R[11]C[-1],1)"

---

que je traduis, à adapter

Code:

---

1 2 3 4

Dim toto As Long toto = WorksheetFunction.Large(Range("C2:C21"), 1)'c'est ça qu'il faut voir "WorksheetFunction.Large" MsgBox toto End Sub

---

edit : sans avoir vu ta réponse, Marc, que je salue

Pièce jointe 169066

C'est à partir de Sub Large que ça ne fonctionne pas...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

Sub moyenne()   'Déclaration des variables'   Dim somme, compteur, moyenne As Double   'Initialisation des variable'   somme = 0   compteur = 2   'Boucle qui additionne les données'   For compteur = 2 To 61   somme = somme + Sheets("Travail VBA").Cells(compteur, 2).Value   Next   'Division par nombre de données'   moyenne = somme / 60   'Inscrire ma réponse sur la feuille Stats   Cells(1, 2).Value = moyenne   Cells(1, 2).Style = "currency"     End Sub   Sub somme()     'Déclaration des variables'   Dim somme, compteur As Double   'Initialisation des variable'   somme = 0   compteur = 2   'Boucle qui additionne les données'   For compteur = 2 To 61   somme = somme + Sheets("Travail VBA").Cells(compteur, 2).Value     Next   'Inscrire ma réponse sur la feuille Stats   Cells(2, 2).Value = somme   Cells(2, 2).Style = "currency"     End Sub   Sub large()   Dim toto As Long toto = WorksheetFunction.large(Range("B2:B61"), 1) MsgBox toto   'Inscrire ma réponse sur la feuille stats'     Cells(3, 2).Value = plusgrand Cells(3, 2).Style = "currency"     End Sub

---

Citation:

---

C'est à partir de Sub Large que ça ne fonctionne pas...

---

bonsoir,

Avant de faire du travail en VBA, il vaut mieux bien maîtriser les fonctions d'excel. Mais si c'est pour s'exercer sur la programmation, les exemples proposés me semblent pas les plus intéressants. Je vous ai corrigé la "procédure" :

Code:

---

1 2 3 4 5 6 7 8 9

Sub large()     With Worksheets("stat") .Cells(4, 2) = WorksheetFunction.Small(Range("Travail VBA!B2:B61", 1)) .Cells(3, 2) = WorksheetFunction.large(Range("Travail VBA!B2:B61", 1)) End With End Sub

---

Mais ça n'a pas d'intéret puisque c'est écrire la fonction dans la cellule de calcul. Si vous voulez faire vraiment la recherche en vba, il faudrait faire comme vous avez fait pour la somme mais au lieu de somme=somme + "valeur courante" faire un test du genre :
if "valeur courante">somme then somme="valeur courante"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub large() Dim i As Integer Dim somme As Double   With Worksheets("Travail VBA") somme = 0 For i = 2 To 62 If .Cells(i, 2) > somme Then somme = .Cells(i, 2) Next i Worksheets("stat").Cells(3, 2) = somme End With End Sub

---

Je vous joins un fichier en utilisant seulement les fonctions d'excel et en faisant un graphique des stats (droite de régression) : Pièce jointe 169076

WOW !!!!
Merci énormément geogeo70!
C'est exactement ce qu'il me fallait ! :)