Mon problème est le suivant.
Dans un j'ai un formulaire nommé TBdtedeb dans lequel j'aimerais bloquer la saisie à un seul et unique format jj/mm/aaaa, et que si ce format n'est pas respecté qu'un message "Format incorrect" apparaisse, et si le format est correct c'est alerte est caduque.
Voici le code que j'ai tenté de faire mais qui bloque à chaque tentative de renseignement de donnée..
Private Sub TBdtedeb_Change()
Dim Valeur As Byte
TBdtedeb.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TBdtedeb)
If Valeur = 2 Or Valeur = 5 Then TBdtedeb = TBdtedeb & "/"
If Not IsDate(TBdtedeb.Value) Then
MsgBox "Format incorrect"
TBdtedeb = ""
Exit Sub
End If
End Sub
Re : Formulaire avec obligation de saise de date au format jj/mm/aaaa
Voilà le fichier.
Dans la colonne I les dates s'affichent mais pour qu'elles soient prises en compte, je suis obligé de positionner le curseur de la souris à la fin de la date de de cliquer sur "entrée" pour qu'elle soit prise en compte..
Pour les pourcentage je n'y suis pas encore parvenu.
Merci pour votre aide.
Re : Formulaire avec obligation de saise de date au format jj/mm/aaaa
Le format est bon, mais pour que les formules qui sont dans les colonnes "mois" fonctionnennt il faut que je valide manuellement la date de début. Sans cela la répartition mensuelle ne se fait pas..
CDBL: convertit la valeur String en Type Double
Replace: remplacera le point par le séparateur décimal définit dans les options, sinon CDBL plante
/100 divise le résultat par 100