VBA textbox date
LePirate
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Un nouveau problème face à moi, ouppps, un nouveau défi!
Cette fois le soucis est lié au format de mes textbox.
J'ai déjà fais des recherches et essayé des choses avec l'enregistreur de macro mais... toujours bredouille.
Je m'explique, depuis un userform je rentre dans des textbox "les fériés de l'années" (paques etc).
Ces données sont retranscrites en B1 B2 etc..
J'ai besoin que ces données arrive en format "lundi 1 janvier 2018"
Ce besoin est parce 'que ensuite une formule va rechercher ces dates dans la planning (en simple) et si le même format il ne les trouvent pas.
Un fichier joint pour essayer d'être plus clair.
https://www.cjoint.com/c/HIuku5yjjCd
Et comme d'hab, d'avance merci!!!!!
Un nouveau problème face à moi, ouppps, un nouveau défi!
Cette fois le soucis est lié au format de mes textbox.
J'ai déjà fais des recherches et essayé des choses avec l'enregistreur de macro mais... toujours bredouille.
Je m'explique, depuis un userform je rentre dans des textbox "les fériés de l'années" (paques etc).
Ces données sont retranscrites en B1 B2 etc..
J'ai besoin que ces données arrive en format "lundi 1 janvier 2018"
Ce besoin est parce 'que ensuite une formule va rechercher ces dates dans la planning (en simple) et si le même format il ne les trouvent pas.
Un fichier joint pour essayer d'être plus clair.
https://www.cjoint.com/c/HIuku5yjjCd
Et comme d'hab, d'avance merci!!!!!
A voir également:
- VBA textbox date
- Airpods 3 date de sortie - Guide
- Jm date désabonnement - Forum Gmail
- Publipostage date inversée - Forum Word
- Exif date changer - Télécharger - Albums photo
- Trier par date excel - Guide
1 réponse
Bonjour,
Tout d'abord, idee aussi sotte que grenue de prendre un format de saisie date: 01.01.20
Mais c'est vous qui voyez...........................
Code pour remettre en etat:
Tout d'abord, idee aussi sotte que grenue de prendre un format de saisie date: 01.01.20
Mais c'est vous qui voyez...........................
Code pour remettre en etat:
Private Sub CommandButton1_Click()
With Sheets("Paramètres")
.Range("B4") = Replace(TextBox2.Value, ".", "/")
.Range("B5") = Replace(TextBox3.Value, ".", "/")
.Range("B6") = Replace(TextBox4.Value, ".", "/")
.Range("B7") = Replace(TextBox5.Value, ".", "/")
.Range("B8") = Replace(TextBox7.Value, ".", "/")
End With
Unload Me
'Unload ferme l'UserForm
End Sub
