Controle de la valeur saisie

lafouine4478 · 26 Avril 2010

[Resolu] Controle de la valeur saisie

Bonjour a toutes et tous,

Je galère pour gerer les erreurs possible faite par un utilisateur lors de la saisie d'une valeur format date.

Sub Test2()

Dim Donnee As Variant
Dim varDate As Date

Donnee = Application.InputBox("Saisissez la date de fin de mois au format date 30/04/2010:", "Date fin de Mois")

If Donnee = o Then
MsgBox " opération annulée"
Exit Sub
End If

'Intercepte l'utilisation du bouton "Annuler" et la croix de fermeture.
If VarType(Donnee) = vbBoolean Then
MsgBox " opération annulée"
Exit Sub
End If

varDate = Donnee

MsgBox varDate
MsgBox Donnee
End Sub

Je désire prendre en compte que l'utilisateur rentre du texte ou un autre format de date ex 20.10.2010

J'ai tester en prenat directement une valeur date mais je ne peut plus gerer le bouton annulé ou la croix de la msgbox

JNP · 26 Avril 2010

Re : Controle de la valeur saisie

Bonsoir Lafouine ,
Pourquoi ne passes-tu pas par un DtPicker ou un Calendrier en USF ?
Bonne soirée

youky(BJ) · 26 Avril 2010

Re : Controle de la valeur saisie

Bonsoir Lafouine, bonsoir JNP,
Essaie comme ceci , on rentre que le mois et l'année.
Bruno

Code:

Dim Donnee As Variant
Dim varDate As Date
debut:
ladate = Application.InputBox("Saisissez le mois et l'année au format 04/2010", "Date fin de Mois")
If ladate = "" Then
MsgBox " opération annulée"
Exit Sub
End If
'Intercepte l'utilisation du bouton "Annuler" et la croix de fermeture.
If VarType(ladate) = vbBoolean Then
MsgBox " opération annulée"
Exit Sub
End If
On Error Resume Next
ladate = CDate("15/" & ladate)
If Err <> 0 Then Err.Clear: MsgBox "Recommencer": GoTo debut
MsgBox CDate(DateSerial(Year(ladate), Month(ladate) + 1, 0))

lafouine4478 · 26 Avril 2010

Re : Controle de la valeur saisie

youky(BJ) pas mal ton code mais il me faut une date de fin de mois ouvré Voila pourquoi je désirai saisir la date complète je pensait intégrer Weekday dans le Cdate mais ca foire,

CDate(weekday(DateSerial(Year(ladate), Month(ladate) + 1, 0), 2))

Mais cela me ressort une date complètement fausse 04/01/1990 par exemple

On y ajoutera les jour fériés d'une plage

youky(BJ) · 27 Avril 2010

Re : Controle de la valeur saisie

Salut,
Je viens de faire un petit fichier demo.
La calcul des jours fériés est ok et renvoie bien le dernier jour ouvrable.
Au départ la macro est de AV pour citer l'auteur.
Bruno

lafouine4478 · 30 Avril 2010

Re : Controle de la valeur saisie

Nickel

Désolé de vous repondre si tardivement mais j'ai eu de grosse journée ces jours ci

Probléme résolu

Controle de la valeur saisie

lafouine4478

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

lafouine4478

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

lafouine4478

XLDnaute Nouveau

Discussions similaires