un programme simple qui marche pas (en If et Else)

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 Page Suivante Page Précédente Bas de page
Auteur	Sujet : un programme simple qui marche pas (en If et Else)

yanhoupa

Voila je comprend pas trop

mon programme marche pas, le principe est qu'une boite de dialogue demande sa moyenne à l'élève et qu'en fonction de celle si, on lui donne sa mention.

j'ai fait ca :

Code :

Sub passage()
Dim Note As Single
Note = InputBox("Quelle est votre moyenne ?" )
If Note < 0 Or Note > 20 Then MsgBox ("Erreur !" )
If Note <= 8 Then MsgBox ("Désolé, vous etes recalé" )
ElseIf Note <= 10 Then MsgBox ("Ratrapage autorisé" )
ElseIf Note <= 12 Then MsgBox ("Félicitation, vous etes accepté" )
ElseIf Note <= 14 Then MsgBox ("Mention bien" )
ElseIf Note <= 16 Then MsgBox ("Mention très bien" )
ElseIf Note <= 18 Then MsgBox ("Excelent" )
End Sub

désolé je suis nouveau je vois pas où est l"erreur, exel me dit que il y a un Else sans if (a la ligne 8) :??:

merci

Message édité par yanhoupa le 19-11-2006 à 09:00:26

Publicité

kiki29

Sélectionner ElseIf [F1] puis voir l'exemple

Message édité par kiki29 le 19-11-2006 à 09:54:20

seniorpapou

Bonjour,

Sub passage()
Dim Note As Single

Note = InputBox("Quelle est votre moyenne ?" )
If Note < 0 Or Note > 20 Then MsgBox ("Erreur !" )

If Note <= 8 Then
MsgBox ("Désolé, vous etes recalé" )
ElseIf Note <= 10 Then MsgBox ("Ratrapage autorisé" )
ElseIf Note <= 12 Then MsgBox ("Félicitation, vous etes accepté" )
ElseIf Note <= 14 Then MsgBox ("Mention bien" )
ElseIf Note <= 16 Then MsgBox ("Mention très bien" )
ElseIf Note <= 18 Then MsgBox ("Excelent" )
End If

End Sub
Par contre, si j'ai 19 je n'ai même pas de félicitations, je suis vexé.
Pour lorthographe tu auras moins de 8 :

Rattrapage
Félicitations
Excellent
Vous êtes

Cordialement

Message édité par seniorpapou le 19-11-2006 à 09:51:05

yanhoupa

lol merci bien seniorpapou, enfaite je comprend mieu comment marche les bloc en If

sinon oui je suis plutot mauvais en orthographe en tout cas merci bien.

la je suis en train de coder un autre petit programme dit simple, mais il y a de fortes chances que j'y arrive pas donc, j'ai envi de dire a tte

Message cité 1 fois

Paul Hood

yanhoupa a écrit :

Bonjour,
Avec un CASE il me semble que c'est un peu plus lisible .

Select Case Note
Case Is <= 10: MsgBox ("<10" )
Case Is <= 12: MsgBox ("<12" )
End Select

mais ca marce aussi avec les ElseIf ...

yanhoupa

Ah, ok merci, sinon me revoila

Je dois ecrire un programme qui demande a l'utilsateur sa promotion (Qlio1 ou Qlio2) et lui repondre un truck

voila ce que j'ai fait (ca marche pas )

Code :

Sub promo()
Dim promotion As String
promotion = InputBox("Quelle est votre promotion ?" )
If promotion = qlio1 Then
MsgBox ("Encore un an à etudier !" )
ElseIf promotion = qlio2 Then
MsgBox ("Bravo, le diplôme est proche !" )
Else
MsgBox ("erreur" )
End If
End Sub

Paul Hood

Bonjour,

sub promo()
dim Promotion as string
promotion = Inputbox("Quelle est votre promotion ?" )

select case promotion
case "Qlio1" : MsgBox ("Encore un an à etudier !" )
case "Qlio2" : MsgBox ("Bravo, le diplôme est proche !" )
case else : MsgBox ("erreur" )
end select
end sub

Ca doit fonctionner avec case et pitié... arrete les if else imbriqués à n'en plus finir... à la lecture c'est terrible.

yanhoupa

mais c'est mon prof qui a dit que ca permetter je suis plus trop quoi, il avait l'air d'aimer les elseif :spamafote:

sinon on a jamais vu le "truck" : case
ca consiste en quoi ?

sinon merci bien, mais tu pourais me dire où mon programme comportait une erreur ?

Paul Hood

Quand tu dis ca marche pas ca veut dire quoi ?
un plantage ou ca fait pas ce que tu veux ?

yanhoupa

bah il me met toujours une MsgBox ("erreur" )

Publicité

Paul Hood

il faut mettre Qlio1 et Qlio2 entre " puisqu'il s'agit de string.
Essaie avec ton code en ajoutant des "

yanhoupa

ahhhh oki merci bien Paul Hood, me disait bien que mon programme devait marcher

et surment a toute pour de nouvelles aventures...

yanhoupa

Alors me revoila

Donc je dois ecrire une procedure qui demande à l'utilisateur de rentrer des valeurs dans un tableau de 5 sur 5. Voila ce que j'ai fait :

Code :

Sub prog_tableau()
Dim tableau(5, 5) As Single
Dim addition As Integer
Range("A1" ).Select
For i = 1 To 5
For j = 1 To 5
tableau(i, j) = InputBox("Entrer un nombre" )
Next j
Next i
End Sub

bien sur il marche pas

-ThX-

Not here anymore

de mémoire ( mon VB remonte à loin )

InputBox() retourne une variable de type String. Pour la convertir en valeur Single ou Integer,

tableau(i, j) = val ( InputBox("Entrer un nombre" ) )

Mais je ne suis sur de rien...

A savoir aussi, si tu as déclaré "Option base 0" ou "Option base 1" pour les indexations de tableau.

yanhoupa

merci, mais enfaite mon problème c'est pas ca, il me demande bien 25 valeurs, mais il les affiche pas komenkonfé ? :??:

seniorpapou

Bonjour,
Il ne les affiche pas où?

si c'est dans les cellules :
Sub prog_tableau()
For i = 1 To 5
For j = 1 To 5
Cells(i, j) = InputBox("Entrer le " & i * j & "e nombre" )

Next j
Next i

End Sub
Cordialement

Message édité par seniorpapou le 22-11-2006 à 07:10:59

jpcheck

Pioupiou

Je complèterai même par

si c'est dans les cellules :
Sub prog_tableau()
For i = 1 To 5
For j = 1 To 5
Cells(i, j) = InputBox("Entrer le " & (i-1) *5 + j & "e nombre" )

Next j
Next i

End Sub

Message édité par jpcheck le 22-11-2006 à 11:54:34

seniorpapou

Bonjour,
Bien vu jpcheck, je n'avais même pas regardé ce que j'affichais lorsque j'ai testé.
Cordialement

FlorentG

Unité de Masse

J'croyais que l'aide aux devoirs était interdit [:dawak]

Message cité 1 fois

Paul Hood

FlorentG a écrit :

J'croyais que l'aide aux devoirs était interdit [:dawak]

Bonjour,
Il s'agit de l'aider ... pas de tout lui faire. :bounce:
Il avait le code ... jusque un détail à revoir.

yanhoupa

absolument, j'ai encore quelque soucis avec la synthaxe et quelque lacunes techniques mais c'est pas comme je demandé les reponses sans avoir essayé de le faire et je trouve que je m'ameliore

Edit : encore merci a vous :jap:

Message édité par yanhoupa le 22-11-2006 à 18:30:46

yanhoupa

Bonjour,

Je dois ecrire un programme qui a un tableau de 8 par 8 vide pour representer un echequier. Sur cette echequier on demande a l'utilisateur l'emplacement d'une tour, et en fonction de la où elle est on colorie en rouge là où elle peut aller (il n'y a qu'elle sur l'echequier).

J'ai fait ceci :

Code :

Sub Tour()
Dim place As Single
Dim tableau(8, 8) As Single
Dim i As Single
Dim j As Single
place = InputBox("Où se trouve votre Tour ?" )
For i = 1 To 8
For j = 1 To 8
If tableau(i, j) = place Then
Selection.Cells.Index.Color = 3
Next j
Next i
MsgBox ("Votre Tour peut aller sur toutes les cases rouges de ce damier" )
End Sub

J'explique ma logique (car pas forcement intuitive ). L'utilisateur entre par exemple la case "B3" pour dire où est la tour, puis le progamme regarde si chaque case est égale avec ce que l'utilisateur a entré et si oui, alors on colorie en rouge la case.

Mais enfaite jecomprend pas trop où ca déconne :??:

Merci d'avance

FlorentG

Unité de Masse

T'as au moins rempli ton tableau ?

yanhoupa

Non mais il n'y a rien sur le tableau, il est vide. On demande juste ou se trouve la Tour sur l'echequier et a partir de la on le colorie en rouge (enfin seulment les cases où la tour peut aller).

FlorentG

Unité de Masse

Ben c'est normal alors [:johneh]

Si tu testes :

Code :

If tableau(i, j) = place Then

tableau(i, j) sera vide, donc jamais égal à place

yanhoupa

oui enfin je crois comprendre le problème...

comment on fait pour qu'il ne regarde pas la valeur de la case mais sa place...

FlorentG

Unité de Masse

Ca c'est à toi de le faire... Découper ce que l'utilisateur a entré (B d'un côté, et 3 de l'autre), convertir B en nombre (2), et regarder ensuite dans le tableau si y'a déjà quelque chose. Si c'est vide, y mettre une valeur spéciale

yanhoupa

ah ok merci, je vais essayer ça, merci.

enfaite, je lui demande la colone de la tour, puis je colorie toute cette colone et je fais pareil avec la ligne ?

yanhoupa

donc je laisse tomber, je comprend plus rien là, je verais la correction lundi prochain...

Mais merci quand meme

Paul Hood

Bonjour,

Tu peux garder ton code et initialiser ton tableau en mettant comme valeur le nom de la case
En supposant que les colonnes sont A, B et C (on va faire avec 3 pour commencer)
et les lignes 1 ,2 et 3

Initialisation de ton tableau :
dim Tableau(3,3) as string
nbcol=3
nblig=3
for col=1 to nbcol
for lig =1 to nblig
tableau(col,lig)=Chr(64 + Col) & lig
next
next

Message cité 1 fois

yanhoupa

donc pour le tour aux echec c'est pas grave (pour le moment) je verais plus tard.

La j'essaye de rentrer des valeurs demander a l'utilisateur puis les enregistrer dans un tableau et faire la somme de chaque ligne comme ci dessous (c'est faux) :

Code :

Sub entrer_valeur_tableau()
Dim i As Integer
Dim j As Integer
Dim somme As Single
Dim tableau(5, 6) As Integer
'6 colones et 5 lignes
'ecrire un tableau
For i = 1 To 5
For j = 1 To 6
Cells(i, j) = InputBox("entrer nombre" )
Next j
Next i
'enregistrer le tableau
For i = 1 To 5
For j = 1 To 6
tableau(i, j) = Cells(i, j)
Next j
Next i
' calcule des sommes de chaques ligne
For i = 1 To 5
For j = 1 To 6
somme = somme + tableau(i, j)
Cells(i, 7) = somme
Next j
Next i
End Sub

Enfaite le soucis c'est qu'il semble cumuler toutes les valeurs

Message édité par yanhoupa le 29-11-2006 à 18:59:33

FlorentG

Unité de Masse

Il sert à quoi ton Cells ligne 16 ? Pourquoi tu remplis pas "tableau" directement ? [:johneh]

yanhoupa

oui non mais c'est pareil, dison qu'il est guidé, mais c'est pas la le probleme, ca c'est un detail mais j'ai reussi a compater le tout :

Code :

Sub entrer_valeur_tableau()
Dim i As Integer
Dim j As Integer
Dim somme As Single
Dim tableau(5, 6) As Integer
For i = 1 To 5
For j = 1 To 6
Cells(i, j) = InputBox("entrer nombre" )
tableau(i, j) = Cells(i, j)
somme = somme + tableau(i, j)
Cells(i, 8) = somme
Next j
Next i
End Sub

mon problème c'est qu'il cumule les sommes des ligne, enfaite il me faudrait trouver un moyen de remettre somme = 0 a chaque retour a la ligne

FlorentG

Unité de Masse

Ben entre les deux next, tu rajoutes un somme = 0 [:petrus dei]

yanhoupa

je me disais bien que ca devais pas etre sorcier, mais merci bien a toi

yanhoupa

Bon je revien avec mon echequier

Paul Hood a écrit :

mais enfaite ca sert a quoi de faire ca ? a mettre des valeur dans le tableau non ? mais le 64 sert ? et le chr ?

yanhoupa

Après correction et mise en forme ca donne cela :

Code :

Sub tour()
Dim Tableau(8, 8) As String
Dim nbcol As Single
Dim nblig As Single
Dim col As Integer
Dim lig As Integer
place = InputBox("Où est votre tour ?" )
nbcol = 8
nblig = 8
For col = 1 To nbcol
For lig = 1 To nblig
Tableau(col, lig) = Chr(64 + col) & lig
Next lig
Next col
End Sub

bien sur ca marche pas mais je là met où la variable "place" ?

Message édité par yanhoupa le 30-11-2006 à 14:14:55

Paul Hood

Bonjour,
Tu colles ce code dans une feuille. Tu ajoutes un bouton dans la feuille

Private Sub CommandButton1_Click()
Dim tableau(8, 8) As String
Dim MonChoix As String
For Col = 1 To 8
For lig = 1 To 8
tableau(Col, lig) = Chr(64 + Col) & lig
Next
Next

MonChoix = InputBox("Quelle case ?" )

For Col = 1 To 8
For lig = 1 To 8
If tableau(Col, lig) = MonChoix Then
Range(MonChoix).Interior.ColorIndex = 3
End If
Next
Next
End Sub

Quand tu clic sur le bouton, tu renseignes une case "A1", "C3", etc... (il n'y a pas de test sur la validité de la saisie)
Et quand tu valides ta saisie la case apparaît en rouge sur ta feuille.

Je ne sais pas si c'est ca que tu veux faire mais ca dervait t'aider.

Message édité par Paul Hood le 30-11-2006 à 15:27:26

Paul Hood

J'ai pas repondu à tes questions donc voilà :
Dans le tableau je mets les adresses des cellules.
le chr(i) me permet de convertir un nombre en caractére oùù i est le caractére ascii du caractère.
Et le 64 c'est parceque le "A" est en 65 (asc(A)=65) donc chr(65)=A

yanhoupa

A ok, c'est assez complex mais je vois mieux maintenant, merci.

Tu as mi cela :
If tableau(col, lig) = MonChoix Then
Range(MonChoix).Interior.ColorIndex = 3

et cela ne colorie que la case où est la tour, et enfaite moi mon but est de colorier toute les cases où la tour peut se déplacer (en clair toute la ligne et toute la colone ou elle se trouve) sauf la ou elle est.

Moi j'ai pensé a cela mais ca marche pas :

If tableau(col, lig) = MonChoix Then
Columns("col:col" ).Interior.ColorIndex = 3
Rows("lig:lig" ).Interior.ColorIndex = 3
Range(MonChoix).Interior.ColorIndex = 0

Message édité par yanhoupa le 30-11-2006 à 16:14:41

Publicité

Page : 1 2

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Programmation

VB/VBA/VBS

un programme simple qui marche pas (en If et Else)

Sujets relatifs
[C++]Factorisation Cholesky qui marche pas	Formulaire mailto ne marche pas sur IE
[PHP] Marche sous Easyphp mais pas sous wamp?	[SED] Remplacement simple d'une chaine avec espace
[ C ] erreur dans mon programme ?	[processing] programmer un jeu simple
Programme pour algorithme	Compiler ce petit programme
Titre avec ligne (tout simple mais IE ne veut pas)	Question tres simple : cloner un tableau
Plus de sujets relatifs à : un programme simple qui marche pas (en If et Else)

Page générée en 0.111 secondes