OVH Cloud OVH Cloud

Txtbox dans ComboBox

2 réponses
Avatar
Linebaker
Bonjour,

Pour fin de validation, lorsque je met quelque chose dans un textbox
j'aimerai que mon msgbox affiche : Est-ce bien le numéro ... que vous voulez
ajouter ?

Quel est le code que je dois mettre dans le msgbox pour qu'il prenne la
donnée inscrite dans le txtbox ?

Merci

2 réponses

Avatar
Arnaud LECLEMENT
Salut Linebaker

Private Sub CommandButton1_Click()
Mavar = TextBox1.Value
If Mavar = "" Then
MsgBox "Vous devez saisir un numéro !", vbExclamation, _
"Numéro ?"
TextBox1.SetFocus
Exit Sub
End If
If MsgBox("Est-ce bien le numéro " & Mavar & _
" que vous voulez ?", vbQuestion, "Numéro correct ?") = vbYes Then
'la suite de la procédure
Else: Exit Sub
End If
End Sub

Arnaud

"Linebaker" a écrit dans le message de news:
5SpCe.2569$
Bonjour,

Pour fin de validation, lorsque je met quelque chose dans un textbox
j'aimerai que mon msgbox affiche : Est-ce bien le numéro ... que vous
voulez
ajouter ?

Quel est le code que je dois mettre dans le msgbox pour qu'il prenne la
donnée inscrite dans le txtbox ?

Merci




Avatar
Linebaker
Excellent

Merci beaucoup pour ton aide.

"Arnaud LECLEMENT" a écrit dans le message
de news:
Salut Linebaker

Private Sub CommandButton1_Click()
Mavar = TextBox1.Value
If Mavar = "" Then
MsgBox "Vous devez saisir un numéro !", vbExclamation, _
"Numéro ?"
TextBox1.SetFocus
Exit Sub
End If
If MsgBox("Est-ce bien le numéro " & Mavar & _
" que vous voulez ?", vbQuestion, "Numéro correct ?") = vbYes Then
'la suite de la procédure
Else: Exit Sub
End If
End Sub

Arnaud

"Linebaker" a écrit dans le message de news:
5SpCe.2569$
Bonjour,

Pour fin de validation, lorsque je met quelque chose dans un textbox
j'aimerai que mon msgbox affiche : Est-ce bien le numéro ... que vous
voulez
ajouter ?

Quel est le code que je dois mettre dans le msgbox pour qu'il prenne la
donnée inscrite dans le txtbox ?

Merci