Pb TextBox et cellule du tableau

[daniel1949]

Bonjour le forum,
J'ai un souci sur le formatage de la cellule de destination d'une date que j'inscris sur un TextBox d'un USF :
Private Sub CommandButton1_Click()
......
ActiveCell.Offset(0, 4).Value = Format(CDate(TextBox2.Value), "dd/mm/yy")
......
End Sub

J'obtiens bien dans la cellule de la 4ème colonne la date du TextBox sauf que le format de la cellule de destination n'est pas reconnu (jj/mm/aa)... De plus, ce format de réception est inopérant.
Avez-vous une (ou plusieurs) solution(s) à me proposer ?
Merci
Daniel

 

[Robert]

Re : Pb TextBox et cellule du tableau

Bonjour Daniel, bonjour le forum,

Peut-êter comme ça :

ActiveCell.Offset(0, 4).Value = TextBox2.Value
ActiveCell.Offset(0, 4).NumberFormat = ("dd/mm/yy")

 

[daniel1949]

Re : Pb TextBox et cellule du tableau

Bonsoir Robert, bonsoir le forum,
Et non. C'est tjrs la même chose. j'exporte ex : 19/05/10 sur une cellule au format jj/mm/aa et j'ai comme une compression de la date (aspect)... et de plus inopérante !
J'ai l'impression que le transfert ne tient aucun compte du formatage de la cellule.
Merci de t'être penché sur ce pb.
Daniel

 

[daniel1949]

Re : Pb TextBox et cellule du tableau

Je viens de me rendre compte par pur hasard que si je valide au clavier la cellule de réception... Cà marche !!! Comprends pas.

 

[MJ13]

Re : Pb TextBox et cellule du tableau

Bonjour Daniel, Robert.

En général j'utilise Cdate sans autre artifice.

Sinon quelquefois, il faut utiliser "mm/dd/yy" pour que cela fonctionne.

Enfin il faut peut-être débogger (mettre un stop dans le code et faire ALt+F8 pour aller en pas à pas pour voir comment sont interprêter les variables en passant la souris).

Ou un petit fichier reperésentant le problème (et que le problème car si il y a trop de codes on risque de perdre du temps 😕).

 

[daniel1949]

Re : Pb TextBox et cellule du tableau

Merci MJ du 13 !

Ou un petit fichier reperésentant le problème (et que le problème car si il y a trop de codes on risque de perdre du temps 😕).

C'est vrai qu'il y a trop de code et de plus il est en version... 2007 !
Ci-joint une image pour mieux s'en rendre compte.
Bon courage...

 

[daniel1949]

Re : Pb TextBox et cellule du tableau

Bonjour le forum,
Pb. réglé :
Private Sub UserForm_Initialize()
TextBox2.Value = Format(Sheets("BDD").Range("L3").Value, "hh:mm")
End Sub
Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Value, "hh:mm")
End Sub
Bonne Journée
Daniel