Discussion :

[batbatbat]

Bonsoir,
Tout d'abord excusez-moi pour le niveau terrible que je dois avoir en programmation VBA...
Je suis donc étudiant et confronté à un problème dans un de mes exercices et j'aimerais trouver une solution !

l'énoncé :
1.Ecrire un programme qui permet de saisir n notes comprises entre 0 et 20 (0<n≤10 est connu et fixé c’est à dire qu’on demande de saisir cette valeur à l’utilisateur).
2. Ajouter au programme précédent le calcul de la moyenne arrondie à deux décimales des notes, le minimum, le maximum et le nombre d’occurrences du maximum.
3. Ajouter au programme l’affichage des notes saisies sur la première colonne de la Feuille 1 ainsi que la moyenne arrondie a` deux décimales des notes, le minimum, le maximum et le nombre d’occurrences du maximum.
4. On recommence l’exercice mais cette fois-ci on ne connaît pas d’avance le nombre n, le programme continue tant qu’une note incorrecte n’a pas été saisie.

Je suis actuellement bloqué à la question 3 j'ai fais plusieurs essais mais je n'arrive pas à trouver la façon de formuler ma requête, je voudrais pouvoir sélectionner la plage que j'ai fais écrire au programme et comparer une à une les valeurs pour trouver la plus petite et la plus grande !

Voila mon programme,( soyez tolérants svp il doit être brouillon) :

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
 
Sub ex8_1()
Dim nbredenote, A, B, C, D, E, Moyennearrondie As Double
Dim Cellule, Min, Max As Double
Dim element As Variant
C = 0
A = 0
B = 1
D = 0
E = 0
 
nbredenote = InputBox("combien de note voulez-vous saisir")
If nbredenote > 10 Or nbredenote < 0 Then
nbredenote = InputBox("Erreur! combien de note voulez-vous saisir (comprises entre 0 et 10)")
End If
    For A = 1 To nbredenote
        B = InputBox("veuillez saisir la note " & A)
        Feuil1.Cells(1, A) = B
        C = C + B
    Next
 
For Each element In Worksheets("Sheet1").Range(1, 1)
    If A > Min Then
        Min = A
    End If
    Next
MsgBox ("la note minimum est de " & A)
 
For Each element In Range(1, 1)
    If A < Max Then
       Max = A
    End If
    Next
MsgBox ("la note maximum est de " & A)
 
 
Moyennearrondie = C / nbredenote
Moyennearrondie = Round(Moyennearrondie, 2)
MsgBox (Moyennearrondie)
 
End Sub

Merci d'avance !
PS : Y a t il une différence entre VBA et VB ?
La balise code ça tue

[anasecu]

Bonsoir,

comparer une à une les valeurs pour trouver la plus petite et la plus grande !

Cela devrait fonctionner sauf qu'il ne faut pas afficher A mais MIN ou MAX.

Comme MIN ou MAX sont des fonctions VBA il est souhaitable de ne pas utiliser ces noms de variables car tu n'auras plus accès aux fonctions.

[batbatbat]

Merci pour votre réponse,

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
Sub ex8_1()
Dim nbredenote, A, B, C, D, E, Moyennearrondie As Double
Dim Cellule, nbreMin, nbreMax As Double
Dim element As Variant
C = 0
A = 0
B = 1
D = 0
E = 0
 
nbredenote = InputBox("combien de note voulez-vous saisir")
If nbredenote > 10 Or nbredenote < 0 Then
nbredenote = InputBox("Erreur! combien de note voulez-vous saisir (comprises entre 0 et 10)")
End If
    For A = 1 To nbredenote
        B = InputBox("veuillez saisir la note " & A)
        Feuil1.Cells(1, A) = B
        C = C + B
    Next
 
For Each element In Worksheets("Sheet1").Range(1, 1)
    If A > nbreMin Then
        nbreMin = A
    End If
    Next
MsgBox ("la note minimum est de " & nbreMin)
 
For Each element In Range(1, 1)
    If A < nbreMax Then
       nbreMax = A
    End If
    Next
MsgBox ("la note maximum est de " & nbreMax)
 
 
Moyennearrondie = C / nbredenote
Moyennearrondie = Round(Moyennearrondie, 2)
MsgBox (Moyennearrondie)

Le programme me renvoie :

Erreur d'exécution « 9 »:
L'indice est en dehors des dimensions du tableau

des qu'il arrive a la ligne du For each , une idée ?

[anasecu]

Erreur d'exécution « 9 »: L'indice est en dehors des dimensions du tableau

Ta plage de notes n'est pas correctement définie.
D'autre part il ne faut pas tester A mais element

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
Sub ex8_1()
Dim nbredenote, A, B, C, D, E, Moyennearrondie As Double
Dim Cellule, Min, Max As Double
Dim element As Variant
C = 0
A = 0
B = 1
D = 0
E = 0
 
nbredenote = InputBox("combien de note voulez-vous saisir")
If nbredenote > 10 Or nbredenote < 0 Then
nbredenote = InputBox("Erreur! combien de note voulez-vous saisir (comprises entre 0 et 10)")
End If
    For A = 1 To nbredenote
        B = InputBox("veuillez saisir la note " & A)
        Feuil1.Cells(1, A) = B
        C = C + B
    Next
Min = 999
For Each element In Feuil1.Cells(1, 1).Resize(1, nbredenote)
    If element < Min Then
        Min = element
    End If
    Next
MsgBox ("la note minimum est de " & Min)
 
For Each element In Feuil1.Cells(1, 1).Resize(1, nbredenote)
    If element > Max Then
       Max = element
    End If
    Next
MsgBox ("la note maximum est de " & Max)
 
 
Moyennearrondie = C / nbredenote
Moyennearrondie = Round(Moyennearrondie, 2)
MsgBox (Moyennearrondie)
 
End Sub

à toi de comprendre le principe du fonctionnement

[batbatbat]

Ok, je vais bosser ça de mon côté pour comprendre !
En tout cas merci beaucoup de votre réactivité et gentillesse anasecu !

Bien cordialement, take care.