USF TextBox et Dates

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2007

• #2

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.

@+

 

Vote positif 0 Vote négatif

P

phoque.r

XLDnaute Occasionnel

• 11 Juillet 2007

• #3

Re : USF TextBox et Dates

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

 

Vote positif 0 Vote négatif

P

phoque.r

XLDnaute Occasionnel

• 11 Juillet 2007

• #4

Re : USF TextBox et Dates

J'espère que ce sera suffisament clair

phoque.r

 

Pièces jointes

• exemple.xls

  29 KB · Affichages: 64
• exemple.xls

  29 KB · Affichages: 63
• exemple.xls

  29 KB · Affichages: 66

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2007

• #5

Re : USF TextBox et Dates

Re

j ai modifié un peu le code comme ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

P

phoque.r

XLDnaute Occasionnel

• 11 Juillet 2007

• #6

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

 

Vote positif 0 Vote négatif

P

phoque.r

XLDnaute Occasionnel

• 11 Juillet 2007

• #7

Re : USF TextBox et Dates

Nickel, c'est ça
merci

phoque.r

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2007

• #8

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.*

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

P

phoque.r

XLDnaute Occasionnel

• 12 Juillet 2007

• #9

Re : USF TextBox et Dates

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

merci

 

Vote positif 0 Vote négatif