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
A voir également:
- Boite de dialogue
- Dialogue boost - Accueil - Guide streaming
- Boite gmail pleine - Guide
- Se connecter à ma boite hotmail - Guide
- Boite gmail bloquée - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
2 réponses
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
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 ! ;)
j'ai essayé mais malheureusement que je remplisse ou pas le textbox1 le msgbox apparait
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.