Apprentissage visual basic

Signaler
Messages postés
13
Date d'inscription
vendredi 4 décembre 2009
Statut
Membre
Dernière intervention
24 décembre 2009
-
Messages postés
13
Date d'inscription
vendredi 4 décembre 2009
Statut
Membre
Dernière intervention
24 décembre 2009
-
Bonjour à tous !
Voila je débute dans VBA et j'ai vraiment beaucoup de mal ! J'ai des exercices qui semblent tout bête comme ça mais y a pas moyen j'adhère pas du tout à la logique...
Par exemple :
"Ecrire un algo qui permet d'afficher 5 entiers puis qui affiche la différence qu'il y a entre la plus grande et la plus petite"
J'ai beau essayé y a pas moyen; je fais :
dim x, max, min, i as Integer 
x = inputbox("Entrez une valeur") 
max = x 
min = x 
for i = 1 to 4 
i = inputbox("Entrez une valeur la " & i & " éme valeur") 
if max<x then 
max = x 
else max = max 
end if 
if min >x then 
min = x else 
min = min 
end if 
next 
msgbox("L'ecart entre la plus grande et la plus petite valeur est " & max - min) 


Quel est le problème ??

De même je n'arrives pas du tout à cet exo :
"ecrire un algo permettant de lire un entier n puis affiche les entiers tels que m^3 <= n <= p^3"

Merci de votre aide !

4 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
dim x, max, min, i as Integer

gaffe : ici seul i sera un integer

else max = max : autant ne rien faire ^^



Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
89
Date d'inscription
vendredi 16 mars 2007
Statut
Membre
Dernière intervention
23 février 2010

Salut,
i = inputbox("Entrez une valeur la " & i & " éme valeur")

Erreur i est le compteur de la boucle For...Next.

x = inputbox("Entrez une valeur la " & i & " ème valeur")
Messages postés
89
Date d'inscription
vendredi 16 mars 2007
Statut
Membre
Dernière intervention
23 février 2010

J'ai essayé ton code..:
après avoir corrigé les erreurs citées précédemment, il fonctionne.
Messages postés
13
Date d'inscription
vendredi 4 décembre 2009
Statut
Membre
Dernière intervention
24 décembre 2009

Super ca marche merci beaucoup de votre aide !!!