Aide avec les IF ... THEN

Résolu/Fermé
Mr_Skkay Messages postés 81 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 18 octobre 2018 - 23 avril 2014 à 22:33
Mr_Skkay Messages postés 81 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 18 octobre 2018 - 24 avril 2014 à 15:06
Bonjour, j'ai un problème :
J'ai créé une fenêtre avec une TextBox, et un bouton "Valider" et que voudrait que quand :
-il y a marqué : 1
-quand j'ai appuyer sur le bouton "Valider"
-sa me fait une action

Ou quand il y a marqué :
-2
-quand j'ai appuyer sur le bouton "Valider"
-sa me fait une autre action

Etc...

1 réponse

Dolgan Messages postés 44 Date d'inscription jeudi 17 avril 2014 Statut Membre Dernière intervention 1 octobre 2014 12
23 avril 2014 à 23:30
Bonjour,

Si tu veux que les instructions s'exécutent lorsque l'on clique sur le bouton "Valider", il faut que tu places ton code à l'intérieur de cette procédure :

Private Sub CommandButton_Valider_Click()
' Ton code
End Sub

Pour ce faire, tu double-cliques sur le bouton "Valider" lors de l'édition de ton Userform.

Pour avoir des instructions différentes selon les chiffres entrés dans la TextBox :

If TextBox.Value = 1 Then
      ' Instructions 1
ElseIf TextBox.Value = 2 Then
      ' Instruction 2
ElseIf TextBox.Value = 3 Then
      ' Instruction 3
End If

Dolgan
0
Mr_Skkay Messages postés 81 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 18 octobre 2018 52
Modifié par Mr_Skkay le 24/04/2014 à 00:47
Merci, c'est ça que je veux ! :)
Mais y'a une erreur : 'Value" n'est pas un membre de "system.Windows.Form.TextBox".
Et aussi, le code que tu as mis, il faut le mettre dans le bouton ou la TextBox ?
(Désolé je débute en VB ^^' )
0
Dolgan Messages postés 44 Date d'inscription jeudi 17 avril 2014 Statut Membre Dernière intervention 1 octobre 2014 12
24 avril 2014 à 08:03
Je ne sais pas vraiment d'où vient l'erreur. Ça fonctionne chez moi...

TextBox.Value
récupère ce que contient la TextBox.

Tu mets le code "dans" le bouton puisque tu veux que tes instructions s'exécutent lorsque tu appuies sur le bouton "Valider".
0
Mr_Skkay Messages postés 81 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 18 octobre 2018 52
24 avril 2014 à 14:28
Peut être que tu n'utilise pas la même version que moi, j'ai Visual Basic 2010 Express.
Et le .Value ne marche toujours pas :/ J'ai pris deux screen pour te montrer a peu près les erreurs : http://puu.sh/8ltk4.png http://puu.sh/8ltlb.png
0
Dolgan Messages postés 44 Date d'inscription jeudi 17 avril 2014 Statut Membre Dernière intervention 1 octobre 2014 12
24 avril 2014 à 14:42
Essaie avec
TextBox1.Value
.
C'est possible que ça ne fonctionne pas car TextBox n'est pas le nom de ta TextBox.

Il faut mettre
NomDeLaTextBox.Value
0
Mr_Skkay Messages postés 81 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 18 octobre 2018 52
Modifié par Mr_Skkay le 24/04/2014 à 14:50
Je viens de trouver !
If TextBox1.Text = "1" Then
' Instructions 1
ElseIf TextBox1.Text = "2" Then
' Instruction 2
ElseIf TextBox1.Text = "3" Then
' Instruction 3
End If

Et je profite aussi pour demander comment faire apparaitre un message avec un texte que l'on peut copier coller, comme
MessageBox.Show("Mon texte")
Mais avec ça on peut pas copier coller.
0