démêleer l'utilisation de plusieur if puis de elseRésolu

Question

bon J'ai  créer un programme avec uniquement un textbox nommé: text1

et un bouton nommé command1

j'aimerais que mon programme réagisse a toute sorte de text que l'utilisateur aurait pu tapper.

donc il  faut utiliser if

je comprend utiliser if, mais je comprend pas comment en utiliser un deuxième 

et n'on plus comment terminer avec else:

bon, je commence:

Private Sub Command1_Click()
if text1.text = "salut" then 
msgbox "salut"
End if
End Sub

ca marche super bien... 
je continue en ajoutant un deuxième if:

Private Sub Command1_Click()
if text1.text = "salut" then 
msgbox "salut"
if text1.text = "comment ca va" then
msgbox "bien"
End if
End Sub

ca marche pas....

quelqu'un pourrait m'espliquer pourquoi

et aussi commen utiliser else
??

merci d'avance

cs_liquide · Accepted Answer

ca ne fonctionne pas comme ca
plusieurs cas de figure :
un test unique

if ....... then
...
...
end if

si tu veux refaie un if then
et bien tu devras avoir de nouveau un end if

tu peux avoir 2 solution possibles :

If ... then 'Si ... alors
...
...
Else' sinon
...
...
end if 'j'ai fini mon/mes si


tu peux avoir une multitudes de conditions :

if ... then 'si ... alors
...
...
elseif .... then ' sinon si ... alors
elseif .... then ' sinon si ... alors
end if 'fin des conditions


et derniers connu pour ma part

if ...then'si ... alors
...
...
elseif ... then ' sinon si ... alors
elseif ... then ' sinon si ... alors
else ' alors si il n'y a vraiment rien d'autre
end if 'fin des conditions


ca doit etre tout, donc un if a toujours un end if

tu peux toujours aussi faire comme ceci d'un maniere simple


if ...then
.......if.... then
.......end if
end if


je passe la methode du 
if .... and ..... then 
end if

ca doit etre a peu pres tout
puis si tu veux tu peux te pencher sur les "select case"..."end select"

Bonne prog, poele_a_frire@hotmail.com
liquide

crenaud76 · Answer

Petite correction par rapport à ce qu'a dit Liquide ! (décidément, je t'en veux !)
1 If n'a pas toujours de End If. EN effet, si la clause Then ( et éventuellement la clause Else sont sur la meme ligne, on ne doit pas mettre de End If
Ex :
If A 1 Then A2 Else A = 0


Par contre ...

If A = 1 Then
  A = 2
Else
  A = 0
End If


A noter un dernier petit conseil ... Quand tu code un If ... qui n'est pas de la première forme, (donc sur plusieurs lignes, donc avec un EndIf) Dès que tu tapes ton "If A = 1 Then", et que tu passes à la ligne suivante, tapes immédiatement après ton "End If". Retourne ensuite entre la ligne du If et celle du End If, pour coller le code de ta clause Then, et éventuellement taper une clause Else.
Cela te permettra de ne jamais oublier un End If : Cela arrive trop souvent et dans des If Then imbriqué, cela peut etre chiant à déboguer. Pour finir, ne pas oublier d'indenter correctement le code, cela facilite grandement la lecture.  Cela ne se voit pas dans les ex de code sur ce site, mais le code des clause Then et Else, peut ( doit ?) être indenter d'au moins 1 niveau par rapport au If, au Else et au EndIf, qui sont sur le même niveau d'indentation.
Encore une fois ce n'est pas obligatoire, mais bien pratique

Christophe R.

cs_CanisLupus · Answer

Salut,
J'ai l'impression qu'on oublie Select Case qui me semble plus approprié pour le cas exposé car les if, elseif plus ou moins imbriqués conduisent souvent à des prises de tête quand il faut débugger.

Ex :

Select case Text1.text
case "salut"
msgbox "salut"
case "comment ça va"
msgbox "bien"
case else
msgbox "je ne comprend pas"
end select
Cordialement

CanisLupus

crenaud76 · Answer

Liquide a ouvert la voie du Select Case dasn son msg, mais je ne l'ai pas relevé ! C'est effectivement une très bonne piste dans ce contexte

Christophe R.

cs_CanisLupus · Answer

J'avais bien vu mais il ne l'avait pas développé.
Cela dit, cela n'enlève rien aux capacités pédagogiques de liquide que je salue cordialement.

CanisLupus

cricri_b34 · Answer

est ce que avec un select case, c possibe d'utiliser else??

si oui... comment?

si non... ya t'il un équivalent?

cs_liquide · Answer

(dsl je n'ai pas pu revenir avant, cause plantage avec vbfrance sur IE)

select case ...
case ..
case ..
case else
end select

Bonne prog, poele_a_frire@hotmail.com
liquide

cs_CanisLupus · Answer

Pas besoin de else dans un select case, sauf un case else au cas ou tous les cas ne sont pas traités.

Mais, tu peux toujours insérer un if...then...else....endif dedans :

select case Tavariable
case Tavaleur1
.......
case Tavaleur2
.......
case Tavaleur3
if ........ then
.......
else
......
end if
case else
...........
end select

Cordialement

CanisLupus

cricri_b34 · Answer

merci a tous...
j'suis un expert dans ça maintenant!!

Démêleer l'utilisation de plusieur if puis de else

9 réponses

Discussions similaires