Discussion :

[Thorsen31]

Bonsoir à tous !

Oui effectivement je suis nouveau sur le forum, mais si je m'y suis inscrit c'est parce que j'ai un petit souci en VB (Version 5.0).

En effet, j'aimerais faire que dans un If, si la condition est vrai, le programme ne doit pas aller plus loin et se stopper à ce moment. En gros voilà un morceau de mon code (pardonné moi si ça n'as pas l'air très pro, je débute encore en VB mais si vous avez des remarques n'hésitez surtout pas).

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
27
Let nb = Text1.Text
Let el1 = Text2.Text
Let el2 = Text3.Text
Let el3 = Text4.Text
Let el4 = Text5.Text
Let el5 = Text6.Text
Let el6 = Text7.Text
' controle que les textbox ont été remplient et ne contiennent plus les valeurs par defaut du programme
    If el1 = "Element 1    (min.)" Then
    Label5.Caption = "Erreur, remplissez les champs ou laissez les vides"
    End If
    If el2 = "Element 2" Then
    Label5.Caption = "Erreur, remplissez les champs ou laissez les vides"
    End If
    If el3 = "Element 3" Then
    Label5.Caption = "Erreur, remplissez les champs ou laissez les vides"
    End If
    If el4 = "Element 4" Then
    Label5.Caption = "Erreur, remplissez les champs ou laissez les vides"
    End If
    If el5 = "Element 5" Then
    Label5.Caption = "Erreur, remplissez les champs ou laissez les vides"
    End If
    If el6 = "Element 6    (max.)" Then
    Label5.Caption = "Erreur, remplissez les champs ou laissez les vides"
    End If
' controle effectué

Voilà pour vous expliquer globalement de quoi il s'agit, ce programme contient 6 Textbox qui contiennent par défaut la valeur Elément suivi de leur numéro (sauf pour la 1 et la 6 qui en plus contiennent respectivement (min.) et (max.). J'aimerais que le programme affiche dans un label "Erreur, remplissez les camps ou laissez les vides" si une ou plus de ces textbox contient toujours sa valeur par défaut, et en plus, j'aimerais que le programme ne poursuive pas son code. Peut-être y a-t-il un moyen de le faire mettre le reste en commentaire ? Bref, j'ai besoin de votre aide!

Excellent soirée, Thorsen

[ucfoutu]

Bonjour,

1) - intéresse-toi vite auxx groupes de contrôles indexés (ici : un groupe de textboxes indexées ...)... à voir dans ton aide en ligne
2) - si j'ai bien tout compris, la valeur par défaut (de toutes tes texboxes) commence toujours par "Element" & "1" ou & "2", etc... ===>> "Elément" est donc commun et "1", "2", etc... n'est donc jamais rien d'autre que l'index de chaque textbox du groupe de Textboxes indexées.... L'opérateur Lioke (également à voir dans ton aide en ligne) est fort capable de "voir" la chose ...
3) un seul label suffit, dès lors que tu peux ainsi définir quelle textbox n'aurait pas été "saisie"... et donc ... son index !...
Je crois donc tout simplement que ce qui te manque, n'est ni plus ni moins qu'un apprentisage des groupes de contrôles indexés !

[Thorsen31]

héhé merci de ta réponse ucfoutu !

Surtout aussi rapidement, effectivement c'est quelque chose que l'on ne nous a pas encore appris au lycée, donc je vais tenter de m'y mettre par moi même

Mais cela dit, tu n'as pas répondu à ma question première, à savoir : Comment faire qu'un programme se stoppe en cours de processus si une condition n'est pas remplie ?

Merci encore, je vais me renseigner au sujets de ce que tu me conseilles d'apprendre.

[ucfoutu]

Ah...
Oui ... c'est vrai ...
On quitte une procédure par Exit Sub
On quitte une fonction par Exit Function
On quitte une boucle For par Exit For
On quitte une boucle Do .... par Exit Do...
Exit ? ah.... (mot barbare et pourtant si clair... à voir dans ton aide en ligne)

On quitte une application en fermant toutes ses fenêtres (et en évitant le brutal End).