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