inputbox

Question

Bonjour, 

Voila j'ai un petit soucis et j'espere que qq1 pourra m'aider ! 

alors voila j'utilise une inputbox tout fonctionne sauf quand l'utilisateur click sur annuler ca me genere une erreur .... c'est un peu normal parce que je n'ai pas geré le faite de cliquer sur annuler .... en faite à vrai dire je ne sais pas comment on peut faire !

voila mon petit bout de code 
Dim DateEntreSG
DateEntre =InputBox("Veuillez Saisir la date d'entrée?", "Date d'entrée ")

Merci pour votre aide !

Miss07

malhivertman1 · Answer

Tu n'es pas en vb.net, si?

drikce06 · Answer

Salut, si l'utilisateur click sur annuler DateEntre = "" (chaine vide), sinon annuler de l'inputbox ne peut pas être géré! Voir les différents topics et sources à ce propos!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_miss07 · Answer

non je suis en vba!

oui je me doutais que si on cliquait sur annuler DateEntre = "" mais vu qu'il est au format date ca plante ! 
et je ne peux pas modifier le format j'en ai besoin alors je ne sais pas comment faire !

drikce06 · Answer

Soit tu donnes le format après:

DateSaisie =InputBox("Veuillez Saisir la date d'entrée?", "Date d'entrée ")

If DateEntre<>"" Then
DateEntre=Format(DateSaisie,"dd/mm/yyyy")
End If

ou sinon

While DateSaisie = ""
DateSaisie =InputBox("Veuillez Saisir la date d'entrée?", "Date d'entrée ")
Wend

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

violent_ken · Answer

Salut, il faut tester si l'utilisateur a cliqué sur "Annuler" ou non avec StrPrt.

Exemple :

Dim tmp as string
tmp=inputbox("Titre")
If StrPtr(tm)=0 Then
    msgbox "appuyé sur Annuler" ' ==> pas de traitement du résultat car 'Annuler'
else
    'traitement du résultat car pas de Annuler
End if

Cette méthode différencie le bouton 'Annuler' de la réponse 'chaine vide'.
@+

cs_miss07 · Answer

mon format et un format date et non pas un string ca serai plus simple mais je vais essayer la methode de dricke06 et mettre le format apres ! merci je vous tiens au courant 

Miss07

mouchot francois · Answer

MOUCHOT  françois

essai  ce  ci

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 26/08/2008 par HP registered user
    Dim mydate


mydate = Date


Dim DateEntreSG
DateEntre = Application.InputBox("saisie de la date", "  DATE", mydate)


'
End Sub

mouchot francois · Answer

MOUCHOT  françois

essai  cette macro

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 26/08/2008 par HP registered user
    Dim mydate


mydate = Date


Dim DateEntreSG
DateEntre = Application.InputBox("saisie de la date", "  DATE", mydate)


'
End Sub

Inputbox

8 réponses

Votre réponse

Discussions similaires