en fait c le meme prog qu'au dessus mais avec un bug en -
Source / Exemple :
Dim Vdate
' Source par OverDarck
' za511@aol.com
' pour tout commantaire, remarque ou modification concernant ce programme, envoyer moi un mail
Private Sub form_load()
Vdate = Date
Text1.Text = Date
Text2.Text = ""
End Sub
Private Sub text1_gotFocus()
Text2.SetFocus
End Sub
Private Sub Label1_click()
On Error GoTo eror
If Text2.Text = "" Then
MsgBox ("Vous devez entrer une date !"), vbCritical + vbOKOnly, "Attention !"
Text2.SetFocus
GoTo fin
Else
Date = Text2.Text
End If
Dim intDoIt
intDoIt = MsgBox("Voulez vous accepter le changement de date ?", vbExclamation + vbYesNo, "Accepter le changement de date ?")
If intDoIt = vbYes Then
MsgBox ("La nouvelle date est : " & Date), vbInformation + vbOKOnly, "Changement de date Validé"
Text2.Text = ""
End If
If intDoIt = vbNo Then
Date = Vdate
MsgBox ("La nouvelle date a été refusée ! la date est : " & Date), vbInformation + vbOKOnly, "Changement de date annulé !"
Text2.Text = ""
End If
GoTo fin
eror:
Dim ret
ret = MsgBox((Error$(Err)), vbCritical + vbRetryCancel, "Dates")
If ret = vbRetry Then '3
GoTo eror
ElseIf ret = vbCancel Then
Text2.Text = ""
End If '3
fin:
End Sub
Conclusion :
Telecharger le zip c mieux mais bon, c comme tu veux !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.