USF TextBox et Dates

[phoque.r]

Bonjour

j'ai un problème car j'ai un textbox que je mets:

Format(Now(), "dd/mm/yyyy")

dans mon USF

A l'enregistrement dans la base, c'est enregistré au format mm/dd/yyyy et aligné à droite dans la case

Dans l'USF, j'ai ajouté une sub TextBox_Exit qui est censée vérifier que la date rentrée n'existe pas dans la base. Je crée manuellement des enregistrements avec le bon format, par exemple 11/07/2007. Ils sont alignés à droite dans la case. Quand je fais la même methode que l'enregistrement pour mettre la date dans une case, ca me la met bien (dd/mm/yyyy) mais aligné à gauche.

Je n'y comprends plus rien...
Je précise bien que le code ne me fait pas d'erreur

phoque.r

 

[Pierrot93]

Re : USF TextBox et Dates

Bonsoir Phoque

je ne comprends pas très bien où se situe ton problème... Mets peut être un fichier explicatif en pièce jointe.

@+

 

[phoque.r]

Re : USF TextBox et Dates

Il va falloir que je le vide... IL fait un Mo
Je vais faire ça et je reviens

 

[phoque.r]

Re : USF TextBox et Dates

J'espère que ce sera suffisament clair

phoque.r

 

[Pierrot93]

Re : USF TextBox et Dates

Re

j ai modifié un peu le code comme ceci :

Private Sub UserForm_Initialize()
Birthday.TextAlign = fmTextAlignRight
Birthday.Value = Format(Now(), "dd/mm/yyyy")
End Sub
Private Sub Birthday_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Partie pour vérifier
Var = 0
n = Range("enreg!a1000").End(xlUp).Row
For i = 2 To n
If CDate(Birthday) = Range("enreg!e" & i) Then
Var = 1
MsgBox ("Déjà cette année")
End If
Next i
If Var = 1 Then
'Instructions
Else
MsgBox ("nouveau")
End If

mais en voyant ton classeur, j'ai l'impression que ton problème est la valeur renvoyée dans une cellule à partir de ta "textbox", mais je ne voie pas le code concerné. Si c'est le cas il faut utiliser la fonction "CDate".

bonne soirée
@+

 

[phoque.r]

Re : USF TextBox et Dates

Oui, j'ai effacé, mais je sortais la date avec un textbox.value


je vais essayer avec le CDate

merci
phoque.r

 

[phoque.r]

Re : USF TextBox et Dates

Nickel, c'est ça
merci

phoque.r

 

[Pierrot93]

Re : USF TextBox et Dates

Re

ca doit être codé comme cela pour que ta valeur contenue dans ton "textbox" soit renvoyée comme une dae dans la cellule A1.*

Range("A1").Value = CDate(Birthday)

bonne soirée
@+

 

[phoque.r]

Re : USF TextBox et Dates

C'est ce que j'ai fait et ça fonctionne parfaitement

merci