Discussion :

[mouftie]

Bonjour, j'ai créé des textbox de date au format dd/mm/yy, tout fonctionne bien, sauf que quand on alimente le tableau, les dates sont au format texte date, avec le petit triangle vert me demandant de convertir en 19XX ou en 20XX.
J'ai essayé un code qui multiplie la valeur par 1 ce qui fonctionne manuellement, mais pas en vba.
est-ce que quelqu'un peut m'aider, svp.
merci

[joe.levrai]

Bonjour,

comment réalises-tu l'écriture de cette chaine de caractère sur ta feuille Excel ?

tu peux utiliser la fonction Format(), ou la fonction de conversion Cdate(MaChaine), et bien sûr formater ta cellule en fonction de tes souhaits (propriété NumberFormat de Range)

[mouftie]

bonjour Joe,
ça fait plaisir de te retrouver, merci pour ton aide.
après la saisie dans le USF, le remplissage se fait avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("H" & DerLg) = TbxDécis.Value

la saisie dans le USF se fait par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TbxDécis_Change()
'Place les intervalles / de dates automatiquement
If TbxDécis = "" Then Exit Sub
    Dim Val As Byte
    Val = Len(TbxDécis)
    If Val = 2 Or Val = 5 Then TbxDécis = TbxDécis & "/"
    TbxDécis.MaxLength = 8
    TbxDécis.AutoTab = True
End Sub
Private Sub TbxDécis_Enter()
If TbxDécis <> "" Then Exit Sub 'ne pas effacer les données de la précédente saisie
    TbxDécis = "sans / jjmmaa"
End Sub
Private Sub TbxDécis_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 47 Then KeyAscii = 0  'Interdit la saisie de slach /
End Sub

j'espère avoir répondu comme tu voulais.

[joe.levrai]

Mes trois propositions ne t'ont pas donné pleine satisfaction ?

Je te laisse essayer dans ton coin pour commencer, si ça bloque, revient avec le code entrepris et on va dépatouiller ça

[mouftie]

Oui, j'étais en train d'essayer...
Alors avec CDate, je suis obligée de retraiter la donnée, je pensais qu'il était possible de le faire en une seule ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Range("H" & DerLg) = CDate(TbxDécis.Value)
.Range("H" & DerLg).NumberFormat = "dd/mm/yy;@"

Je n'ai pas mieux
mais si tu n'as pas le temps, tu m'as déjà bien dépanné, je tournais autour de la solution, il me semble même avoir essayé CDate, mais voilà, j'avais besoin d'aide...

[eriiic]

Bonjour,

si tu mets le format voulu manuellement sur ta colonne il restera, pas besoin de le mettre en vba.
eric