XL 2019 Souci de formatage de TxtBox au format date

[egman]

Bonjour à tous,
je viens solliciter votre aide pour un souci de formatage de txtbox au format date.
J'ai récupéré une table Access où j'avais pas mal de dates, or quand je veux récupérer ces dates de mon tableau excel dans le userform elles apparaissent sous forme numérique.
J'ai regardé un peu partout comment faire mais je ne trouve pas de solution qui fonctionne.
Je vous joint un petit fichier explicatif avec ce que j'ai fait.....mais sans succès
D'avance merci pour votre aide

 

[Dranreb]

Le format d'affichage de la valeur de cellule on s'en fout. C'est le type de donné de sa valeur stockée qui est importante.

 

[egman]

Le format d'affichage de la valeur de cellule on s'en fout. C'est le type de donné de sa valeur stockée qui est importante.

Désolé je pige pas....
Avez vous un bout de code pour recuperer une date quelconque en A1 qui s'affiche dans le userform ?

 

[egman]

Pouvez vous m'expliquer ceci SVP ?
MsgBox TypeName(LExpressionRangeReprésentantLaCelluleIncriminée.Value)

 

[Dranreb]

Dim ValCel
ValCel = ActiveSheet.[A1].Value
If VarType(ValCel) = vbDate Then
    TextBox1.Text = ValCel
Else
    MsgBox "La valeur de A1 est de type """ & TypeName(ValCel) & """ et non ""Date""."
    end If

LExpressionRangeReprésentantLaCelluleIncriminée: un truc du genre Workbooks(X).Worksheets(Y).Range(Z) et plein d'autres possibles. Mais n'ayant rien de concret à étudier je ne savais quoi mettre. ActiveSheet.[A1] est aussi une expression Range, représentant la cellule A1 de la feuille active.

 

[egman]

Le format d'affichage de la valeur de cellule on s'en fout. C'est le type de donné de sa valeur stockée qui est importante.

La MsgBox me renvoie bien "Date"....

 

[egman]

Dim ValCel
ValCel = ActiveSheet.[A1].Value
If VarType(ValCel) = vbDate Then
    TextBox1.Text = ValCel
Else
    MsgBox "La valeur de A1 est de type """ & TypeName(ValCel) & """ et non ""Date""."
    end If

LExpressionRangeReprésentantLaCelluleIncriminée: un truc du genre Workbooks(X).Worksheets(Y).Range(Z) et plein d'autres possibles. Mais n'ayant rien de concret à étudier je ne savais quoi mettre. ActiveSheet.[A1] est aussi une expression Range, représentant la cellule A1 de la feuille active.

J'ai essayé avec votre déclaration de variable ValCel et en mettant n'importe quelle date en A1 cela fonctionne très bien.
Y 'a plus qu'à adapter tout ceci dans mon tableau et voir le résultat.
En tout cas un GRAND MERCI à vous pour m'avoir aidé.
Bonne soirée

 

[egman]

Dim ValCel
ValCel = ActiveSheet.[A1].Value
If VarType(ValCel) = vbDate Then
    TextBox1.Text = ValCel
Else
    MsgBox "La valeur de A1 est de type """ & TypeName(ValCel) & """ et non ""Date""."
    end If

LExpressionRangeReprésentantLaCelluleIncriminée: un truc du genre Workbooks(X).Worksheets(Y).Range(Z) et plein d'autres possibles. Mais n'ayant rien de concret à étudier je ne savais quoi mettre. ActiveSheet.[A1] est aussi une expression Range, représentant la cellule A1 de la feuille active.

je me permet de vous ré-déranger, mais votre solution fonctionne bien pour une cellule distincte.
J'ai du mal à intégrer votre variable dans mon Initialize de formulaire....
Est ce que je peux vous faire passer mon fichier allégé ? (3,4Mo quand même) et sous quelle forme , que vous puissiez y voir plus clair.
D'avance MERCI

 

[Dranreb]

Joignez ici un classeur encore plus simplifié.
Mais je ne vois pas en quoi ça compliquerait de le faire dans un UserForm.
N'oubliez pas, s'il écrit dans des cellules des Value de TextBox, toujours en String, indiquant des dates, de les convertir en Date à l'aide de la fonction CDate.

 

[egman]

Décidément c'est de l’hébreu pour moi, désolé.
On a droit à quoi en taille de fichier ? (en fait ce sont les userform qui prennent de l'espace car je n'ai laissé que 2 lignes dans mon tableau. Ce sont des userforms avec multi pages pour ne avoir à multiplier ceux ci.

 

[Dranreb]

Si vous avez une TextBox nommée TBxDate consacrée à une date dont vous voulez renseigner une cellule, ne surtout pas faire Cells(X, Y).Value = TBxDate.Value, ça risquerait d'y inscrire un texte, ou pire même de pousser Excel à le reconvertir lui même en Date, mais de travers. Faire If IsDate(TBxDate.Text) Then Cells(X, Y).Value = CDate(TBxDate.Text) Else Cells(X, Y).Value = Empty
(Remarque: la fonction IsDate n'indique pas si c'est une date mais si c'est une donnée convertible en Date)

 

[egman]

Si vous avez une TextBox nommée TBxDate consacrée à une date dont vous voulez renseigner une cellule, ne surtout pas faire Cells(X, Y).Value = TBxDate.Value, ça risquerait d'y inscrire un texte, mais Cells(X, Y).Value = CDate(TBxDate.Text)

OK je vais essayer cette solution.
Je crois bien que j'ai renseigné mes cellules de la mauvaise façon.
J'ai déclaré mes textbox de cette maniére
Private Sub txtFixe_AfterUpdate()
On Error Resume Next
Me.txtFixe.Value = Format(Me.txtFixe.Value, "##-##-##-##-##")
End Sub

Merci

 

[Dranreb]

Utilisez aussi CDouble pour convertir un String en Double et CCur en Currency.
Mais là je crois que vous avez surtout mal renseigné vos TextBox.

 

[egman]

Utilisez aussi CDouble pour convertir un String en Double et CCur en Currency.
Mais là je crois que vous avez surtout mal renseigné vos TextBox.

Donc il faut pas que j'utilise les TextBox en AfterUpdate() ......

 

[Dranreb]

Personnellement je le fais plutôt rarement. Mais je n'ai jamais dit qu'il ne fallait pas le faire. Je n'ai parlé que de la façon d'écrire ça ensuite dans des cellules.

 

[egman]

J'ai mis
Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0
txtDateS1.Value = CDate(txtDateS1.Text)
Mais j'ai une erreur d’incompatibilité de type Erreur 13