Boite de dialogue
yogi69150
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
j'aimerais créer un message m'indiquant que je n'ai pas renseigné le textbox1
mon code ne marche pas j'ai besoin d'un peu d'aide
Private Sub CommandButton1_Click()
Dim TextBox1 As Integer
If TextBox1 = False Then
MsgBox "Veuillez entrer la date", vbExclamation, "attention"
Else
UserForm2.Show
End If
j'aimerais créer un message m'indiquant que je n'ai pas renseigné le textbox1
mon code ne marche pas j'ai besoin d'un peu d'aide
Private Sub CommandButton1_Click()
Dim TextBox1 As Integer
If TextBox1 = False Then
MsgBox "Veuillez entrer la date", vbExclamation, "attention"
Else
UserForm2.Show
End If
2 réponses
-
Bonjour,
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-
- Je vous conseille déjà d'écrire une MsgBox simple :
Private Sub CommandButton1_Click() Dim TextBox1 As String If TextBox1 = "" Then MsgBox("Veuillez entrer la date") Else UserForm2.Show End If End Sub
Si 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.
-
-
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 ! ;)
