A voir également:
- Boite de dialogue
- Se connecter à ma boite hotmail - Guide
- Boite gmail saturée - Guide
- Boîte mail française gratuite - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Boite gmail bloquée - Guide
2 réponses
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
61
5 nov. 2015 à 16:14
5 nov. 2015 à 16:14
Bonjour,
Un TextBox renvoie du texte :
Un TextBox renvoie du texte :
Private Sub CommandButton1_Click()
Dim TextBox1 As String
If TextBox1 = "" Then
MsgBox("Veuillez entrer la date", vbExclamation, "Attention")
Else
UserForm2.Show
End If
End Sub
Utilisateur anonyme
9 nov. 2015 à 22:58
9 nov. 2015 à 22:58
bonjour,
je pence savoir pourquoi ta forme s'affiche encore, c'est parce qu'il y à sans-doute d'autres fonctions que la textbox1 à exécutée; exemples en images :
il y a 3 fonction, textbox, combobox et richtextbox, ton code ne permet que de verifier la fonction de la textBox, donc tu doit vérifier les autres aussi. donc pour cette exemple le code sera :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Veuillez entrer la date", vbExclamation, "Attention")
Else
If ComboBox1.Text = "" Then
MsgBox("Veuillez entrer la date", vbExclamation, "Attention")
Else
If RichTextBox1.Text = "" Then
MsgBox("Veuillez entrer la date", vbExclamation, "Attention")
Else
form2.show()
Me.Hide()
End If
End If
End If
End Sub
Voila j'esper que ton problem est résolu maintenant ! ;)
je pence savoir pourquoi ta forme s'affiche encore, c'est parce qu'il y à sans-doute d'autres fonctions que la textbox1 à exécutée; exemples en images :
il y a 3 fonction, textbox, combobox et richtextbox, ton code ne permet que de verifier la fonction de la textBox, donc tu doit vérifier les autres aussi. donc pour cette exemple le code sera :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Veuillez entrer la date", vbExclamation, "Attention")
Else
If ComboBox1.Text = "" Then
MsgBox("Veuillez entrer la date", vbExclamation, "Attention")
Else
If RichTextBox1.Text = "" Then
MsgBox("Veuillez entrer la date", vbExclamation, "Attention")
Else
form2.show()
Me.Hide()
End If
End If
End If
End Sub
Voila j'esper que ton problem est résolu maintenant ! ;)
6 nov. 2015 à 14:26
j'ai essayé mais malheureusement que je remplisse ou pas le textbox1 le msgbox apparait
6 nov. 2015 à 14:41
Private Sub CommandButton1_Click() Dim TextBox1 As String If TextBox1 = "" Then MsgBox("Veuillez entrer la date") Else UserForm2.Show End If End SubSi ce code ne marche pas, vous pouvez m'envoyer votre fichier afin que je vérifie via https://www.cjoint.com/
En tout cas chez moi le code marche.