Discussion :

[Delphee01]

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!

[geogeo70]

bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voir ce code :grand.xlsx

A vous

geogeo70

[Delphee01]

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

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

que je traduis, à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Delphee01]

Travail VBA Point3..xlsm

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[geogeo70]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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) : Travail VBA proposition.xlsm

[Delphee01]

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