[VBA-E]Calcul d'un minimum et de son rang [débutant]

**Grandchon** · 01/03/2006, 14h54

Bonjour, j'ai un petit exercice à faire qui paraitra surement enfantin à beaucoup d'entre vous mais n'étant pas vraiment branché informatique je bloque bêtement dessus. Je suis totalement débutant, tout ce qui est marqué là-dessous est ce que je viens d'apprendre dans la matinée

Il faut que j'écrive l'algorithme qui permet de saisir 20 valeurs successivement au clavier et de déterminer leur minimum et le rang du minimum (avec while-wend; for;do-until).

Pour simplifier j'ai pris 3 valeurs et voilà ce que j'ai marqué :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Calcul As Integer, Compteur As Integer, Min As Integer
 
Sub Test()
Compteur = 0
While Compteur < 3
    InputBox ("Entrez votre valeur")
    Compteur = Compteur + 1
    Calcul = MinCompteur        
Wend
MsgBox ("20 valeurs rentrées")
MsgBox Calcul
End Sub

Voilà donc je peux bien rentrer mes 3 valeurs mais je n'arrive pas à lui faire trouver le minimum.

Avant qu'on ne me pose la question, j'ai recherché sur le forum, FAQ, etc... sans succès (je m'y suis peut être mal pris)

Merci d'avance pour votre aide.

Grégory

**Megaxel** · 01/03/2006, 15h20

Je vais essayer de te donner des pistes:
si tu prépares 4 variables pour stocker le max, le rang du max, le min et le rang du min, et si, à chaque nouvelle valeurs saisies, tu compares avec le min et le max que tu avais avant, pour savoir si cette nouvelle valeur prend la place d'un des extrema.
Ca t'aide?

**Megaxel** · 01/03/2006, 15h55

Allez, et en plus, je suis dans un bon jour: regarde ça, et dis moi si tu comprends:

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
Sub MinEtMax()
    Dim Mini As Integer
    Dim RangMini As Integer
    Dim Maxi As Integer
    Dim RangMaxi As Integer
    Dim Compteur As Integer
    Dim Saisie As Integer
 
    Maxi = InputBox("Saisissez le 1er chiffre:")
    Mini = Maxi
    RangMini = 1
    RangMaxi = 1
    For Compteur = 2 To 20
        Saisie = InputBox("Saisissez le " & Compteur & "ème chiffre:")
        If Saisie > Maxi Then
            Maxi = Saisie
            RangMaxi = Compteur
        End If
        If Saisie < Mini Then
            Mini = Saisie
            RangMini = Compteur
        End If
    Next Compteur
    MsgBox ("Max = " & Maxi)
    MsgBox ("Min = " & Mini)
End Sub

Attention, ce n'est qu'un squelette. Il faudra aussi contrôler les saisies (pour ne pas rentrer autre chose qu'un entier). Afficher un tableau récapitulatif...

**Grandchon** · 01/03/2006, 17h44

Excusez moi du retard,

effectivement vous avez bien fait de préciser car je n'ai rien compris à votre premier post

J'ai pu grâce à vous faire les 2 conditions For (vous avez tout fait

) et While (juste quelques modifications à faire et tout était réglé.) et je vous en remercie.

FOR :

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
Dim Saisie As Integer, Compteur As Integer, Mini As Integer, RangMini As Integer
 
Sub Min()
    Dim Mini As Integer
    Dim RangMini As Integer
    Dim Compteur As Integer
    Dim Saisie As Integer
 
    Mini = InputBox("Saisissez le 1er chiffre:")
    RangMini = 1
    For Compteur = 2 To 20
        Saisie = InputBox("Saisissez le " & Compteur & "ème chiffre:")
        If Saisie < Mini Then
            Mini = Saisie
            RangMini = Compteur
        End If
    Next Compteur
    MsgBox ("Min = " & Mini)
    MsgBox ("Rang du minimum =" & RangMini)
End Sub

WHILE :

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
Sub Test()
 
   Compteur = 2
   Mini = InputBox("Saisissez le 1er chiffre:")
   RangMini = 1
   While Compteur < 20
        Saisie = InputBox("Saisissez le " & Compteur & "ème chiffre:")
        If Saisie < Mini Then
            Mini = Saisie
            RangMini = Compteur
        End If
        Compteur = Compteur + 1
   Wend
   MsgBox ("Min = " & Mini)
   MsgBox ("Rang du minimum =" & RangMini)
 
End Sub

Il me reste cependant un problème à résoudre avec "Do Until". J'ai fait ceci :

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
Sub Min()
    Dim Mini As Integer
    Dim RangMini As Integer
    Dim Compteur As Integer
    Dim Saisie As Integer
 
    Mini = InputBox("Saisissez le 1er chiffre:")
    RangMini = 1
    Do Until 20
        Saisie = InputBox("Saisissez le " & Compteur & "ème chiffre:")
        If Saisie < Mini Then
            Mini = Saisie
            RangMini = Compteur
            Exit Do
        End If
    Loop Until Compteur
    MsgBox ("Min = " & Mini)
    MsgBox ("Rang du minimum =" & RangMini)
End Sub

Lorsque j'essaye de le lancer, VB me sélectionne Loop Until (en rouge ci-dessus) et me marque : "Compile error : Loop without Do".
Il me semble pourtant avoir mis un Do au-dessus mais je ne comprends peut être pas le sens du message (surement pas d'ailleurs

).

J'ai essayé avec et sans le "Exit Do" (souligné ci-dessus) c'est pareil...

**Megaxel** · 02/03/2006, 10h35

Regarde mieux les syntaxes de Loop. J'ai bien l'impression que tu as fait un "mix" des deux possibilités (sur la condition)
Et si tu pouvais me tutyer, ça me mettrait plus à l'aise...

**Grandchon** · 02/03/2006, 14h59

Ok va pour le tutoiement alors

Bon effectivement j'avais mis quelques petits trucs en trop.

Voici le résultat final :

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
Sub Min()
    Dim Mini As Integer
    Dim RangMini As Integer
    Dim Compteur As Integer
    Dim Saisie As Integer
 
    Compteur = 2
    Mini = InputBox("Saisissez le 1er chiffre:")
    RangMini = 1
    Do Until Compteur = 21
        Saisie = InputBox("Saisissez le " & Compteur & "ème chiffre:")
        If Saisie < Mini Then
            Mini = Saisie
            RangMini = Compteur
        End If
        Compteur = Compteur + 1
    Loop
    MsgBox ("Min = " & Mini)
    MsgBox ("Rang du minimum =" & RangMini)
End Sub