Apparition d'un messageBox en fonction résultat d'un TextBox

[thomasdu40]

Même problème que mon post précédent mais cette fois-ci avec un TextBox.

Sur le fichier joint, j'ai le TextBox juste en dessous du texte 'Clôture de..." où devra être saisie une date.

Quel est la macro qui indiquera via un MessageBox du style "Veuillez saisir le résultat" qu'il faut obligatoirement compléter l'autre TextBox en dessous du texte "Résultat sur ....".

Merci.

 

[Excel-lent]

Re : Apparition d'un messageBox en fonction résultat d'un TextBox

Bonjour Thomasdu40,

Voici la macro à écrire sur ta feuille (dans VBA Project) :

Private Sub TextBox13_Change()
    MsgBox ("Veuillez saisir le résultat")
End Sub

Bonne après midi

PS. : testé sur ton fichier avec succés.

 

[thomasdu40]

Re : Apparition d'un messageBox en fonction résultat d'un TextBox

Merci pour ta réponse mais le message via le messagebox s'affiche dès qu'on saisi un chiffre ou une lettre.

Je voudrai que dès que la personne saisie une date sous forme : 22/06/2010 le message apparaît.

Merci.

 

[Excel-lent]

Re : Apparition d'un messageBox en fonction résultat d'un TextBox

Bonsoir,

Alors il te suffit juste de tester le contenu de ta TextBox avec une simple boucle If ... Then... Else

Code à tester et adapter si nécessaire :

Do
TextBox13.Value = InputBox(Prompt:="Ce n'est pas une date! Il faut écrire une date", Default:=Format(TextBox13.Value, "dd-mm-yyyy"))
If Not (IsDate(TextBox13.Value)) Then
MsgBox "Ce n'est pas une date! Il faut écrire une date", vbOKOnly + vbCritical
Else
TextBox13.Value = DateValue(TextBox13.Value)
End If
Loop Until IsDate(TextBox13.Value)

End Sub

Bonne soirée

 

[Pierrot93]

Re : Apparition d'un messageBox en fonction résultat d'un TextBox

Bonjour,

perso, j'effectuerais plutôt le test lors de la sortie du "textbox"...

bonne journée.
@+

 

[thomasdu40]

Re : Apparition d'un messageBox en fonction résultat d'un TextBox

Bonjour et merci pour vos messages.

En fait, les personnes savent qu'il faut saisir une date dans le TextBox13 et dès qu'ils ont fait la saisie je voudrai qu'un message apparaisse à l'écran pour les prévenir qu'il faut donner ou expliquer le résultat obtenu ; message à faire apparaître à l'écran : "Veuillez confirmer le résultat obtenu".

Je vous rejoins le fichier.

Merci.

 

[thomasdu40]

Re : Apparition d'un messageBox en fonction résultat d'un TextBox

Oups c'est bon j'ai trouvé ce que je voulais. Voici mon petit programme.

Private Sub TextBox13_Change()
If Len(TextBox13.Value) = 10 And IsDate(TextBox13.Value) Then
With TextBox12.Activate
MsgBox "Vous avez clôturé l'action merci de donner le résultat obtenu"
End With
End If
End Sub

Voilà comme cela fonctionne je considère que ma demande est close. Et milles merci à ceux qui ont essayé de m'aider.😱