Userform et date à l'envers

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #2

Re : Userform et date à l'envers

Bonjour,

essaye la fonction "cdate", attention la valeur renseignée doit pouvoir être interprétée par excel comme une date :

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

A

alain.pierrephie

XLDnaute Occasionnel

• 22 Octobre 2010

• #3

Re : Userform et date à l'envers

J'ai déja essayé ça mais n'y suis pas parvenu , peux être ne l'ai je pas bien écris , peux tu me l'écrire dans mon usf et l'essayer , je t'en remercie.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Octobre 2010

• #4

Re : Userform et date à l'envers

Bonjour Alain,

ajoute ceci:

Code:

Private Sub CommandButton1_Click()
Dim DerL As Long
DerL = Range("C65536").End(xlUp).Row + 1
Feuil1.Activate
Range("A" & DerL).Select
If OptionButton5 Then
    ActiveCell.Offset(0, 2).Value = 2
ElseIf OptionButton6 Then
    ActiveCell.Offset(0, 2).Value = 1
End If
[B][SIZE=3][COLOR=blue]ActiveCell.Offset(0, 1).Value = TextBox1.Text[/COLOR][/SIZE][/B]
UserForm1.Hide
End
End Sub

à+
Philippe

Edit: Bonjour Pierrot

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 22 Octobre 2010

• #5

Re : Userform et date à l'envers

Bonjour,

Code:

 Range("A" & DerL).Offset(, 1) = DateValue(TextBox1)

semble fonctionner.

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #6

Re : Userform et date à l'envers

Re,

comprends pas, dans ton fichier le code ci-dessous fonctionne :

Code:

Private Sub CommandButton1_Click()
Range("B65536").End(xlUp)(2).Value = CDate(TextBox1)
End Sub

saisie 04/10/2010 dans le textbox
@+

Edition : bonsoir Hasco, Philippe

 

Vote positif 0 Vote négatif

A

alain.pierrephie

XLDnaute Occasionnel

• 22 Octobre 2010

• #7

Re : Userform et date à l'envers

Désolé à tous mais rien ne marche , j'ai fais tout ce que vous m'avez dit avec entrée du 04/10/2010 et ai eu 10/04/2010. J'ai joins le dossier si qqun peux essayer de mettre un code vba et essayer, merci infiniment

 

Dernière édition: 22 Octobre 2010

Vote positif 0 Vote négatif

A

alain.pierrephie

XLDnaute Occasionnel

• 22 Octobre 2010

• #8

Re : Userform et date à l'envers

Je vien d'essayer le code de HASCO et là ........... trop fort et je suis trop content hasco merci vraiment beaucoup depuis le temps que je galérais avec ce code.

 

Dernière édition: 22 Octobre 2010

Vote positif 0 Vote négatif