gds35
XLDnaute Impliqué
Bonjour , a tous mes AMIS du Forum ,
J'ai un soucis que je n'arrive pas a résoudre , dans un USF j'ai plusieurs textbox , dans l'une d'elle j'ai un nbre dans l'autre une valeur que doit rentrer l'utilisateur. si un nbre est entre l'entrée de la valeur est obligatoire. mais il se peut que la saisie du nbre soit une erreur , alors j'essai de revenir a la saisie du nbre soit pour le remettre a blanc soit pour que l'utilisateur entre la valeur .
Je bloque sur ma msgBOX voici le code :
Private Sub MTDOM_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'
' SI UN NB DE FORFAITS EST ENTRE OBLIGATION DE SAISIR
' LE MT UNITAIRE
'
Dim Message As String
'
If NBFDOM <> 0 And MTDOM.Text = vbNullString Then
Message = MsgBox("UN NB DE FORFAITS DOM A ETE SAISIE" & vbCrLf & _
"ENTRER LE MONTANT UNITAIRE DU FORFAITS OU SUPPRIMER LE NB DE FORFAITS", _
vbCritical + vbYes, "ERREUR !!!")
Cancel = True
NBFDOM = ""
NBFDOM.SetFocus
'
End If
End Sub
ce code ne fonctionne pas pourquoi , ne puis je revenir a la saisie du nbre de forfait . Merci de votre aide . Cordialement GDS35
J'ai un soucis que je n'arrive pas a résoudre , dans un USF j'ai plusieurs textbox , dans l'une d'elle j'ai un nbre dans l'autre une valeur que doit rentrer l'utilisateur. si un nbre est entre l'entrée de la valeur est obligatoire. mais il se peut que la saisie du nbre soit une erreur , alors j'essai de revenir a la saisie du nbre soit pour le remettre a blanc soit pour que l'utilisateur entre la valeur .
Je bloque sur ma msgBOX voici le code :
Private Sub MTDOM_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'
' SI UN NB DE FORFAITS EST ENTRE OBLIGATION DE SAISIR
' LE MT UNITAIRE
'
Dim Message As String
'
If NBFDOM <> 0 And MTDOM.Text = vbNullString Then
Message = MsgBox("UN NB DE FORFAITS DOM A ETE SAISIE" & vbCrLf & _
"ENTRER LE MONTANT UNITAIRE DU FORFAITS OU SUPPRIMER LE NB DE FORFAITS", _
vbCritical + vbYes, "ERREUR !!!")
Cancel = True
NBFDOM = ""
NBFDOM.SetFocus
'
End If
End Sub
ce code ne fonctionne pas pourquoi , ne puis je revenir a la saisie du nbre de forfait . Merci de votre aide . Cordialement GDS35