Format date dans userform

[bellous]

bonjour,

Retraité, débutant, peu doué mais très motivé.

J'ai une ligne de dates au format joursemaine/jour/mois/année.
J'ai créé un userform avec liste déroulante :
1er pb : je ne parviens pas à prendre pas les références horizontales. J'ai donc créé une liste verticale. Impec.
Lors de la sélection de ma date dans la liste déroulante, la transcription sur la combobox se fait en chiffre et non en format date. Idem lors du collage dans une cellule.
De plus si j'essaie de modifier la cellule réceptrice en modifiant format/cellule/nombre etc....... la modification ne se fait pas.
Si je fais, avec une macro, la comparaison entre la cellule réceptrice de la combobox et la bonne date sur ma ligne de référence, l'égalité des deux cellules n'est pas reconnue.
C'est ma première demande sur un forum et vous voudrez bien m'excuser si je suis touffu dans mes explications et pas au courant des us et coutumes.
Merci de votre aide

 

[Staple1600]

Re : Format date dans userform

Bonjour et bienvenue


Peux-tu poster un fichier exemple (zippé) , stp,




PS: Pour ce qui concerne les us et coutumes, je t'invite à lire la Charte:
Lien supprimé

 

[JNP]

Re : Format date dans userform

Bonjour Bellus, Stapple 🙂,
Pour ton format de date, tu peux adater ce code :

Private Sub UserForm_Initialize()
TextBox1 = Format(Cells(1, 1), "dddd dd mmmm yyyy")
End Sub

Pour ta comparaison, attention, suivant comment tu gères tes variables et cellules, l'heure fait en principe parti du contenu date de la cellule et de la variable. Il faut en tenir compte dans ta comparaison en macro.
Bon WE 😎

 

[bellous]

Re : Format date dans userform

un fichier zippé ??????????

 

[bellous]

Re : Format date dans userform

merci jpn

J'ai essayé :

Private Sub ComboBox1_change()
ComboBox1 = Format(Cells(1, 1), "dddd dd mmmm yyyy")
[b5] = UserForm3.ComboBox1
Unload UserForm3
End Sub

mais cela ne marche pas
Bon WE

 

[bellous]

Re : Format date dans userform

Voici le fichier

 

[petchy]

Re : Format date dans userform

salut
pourquoi tu ne te sert pas du controle DTPicker,

 

[petchy]

Re : Format date dans userform

voila ton fichier avec le controle
aprés tu modifi le code

 

[bellous]

Re : Format date dans userform

Super le calendrier mais je ne voudrai que les dates qui sont dans ma ligne

 

[petchy]

Re : Format date dans userform

désolé je ne comprends pas se que tu veut !!!!
"Super le calendrier mais je ne voudrai que les dates qui sont dans ma ligne "

 

[bellous]

Re : Format date dans userform

Merci petchy,

Si la sélection de la date dans ma ligne n'est pas possible, comment modifier pour avoir le même calendrier avec les jours de la semaine lundi, mardi etc..........cette précision étant indispensable.
encore merci je suis baba devant la proposition

 

[bellous]

Re : Format date dans userform

Je ne voudrai selectionner dans l'userform que les dates qui figurent dans les cellules A1 à C1 et non tous les jours de la semaine, du mois etc...........
Suis-je suffisament clair ?

 

[petchy]

Re : Format date dans userform

sinon tu rajoute des textbox pour récupérer les dates

Private Sub UserForm_Initialize()
TextBox1 = Range("A1")
End Sub

 

[petchy]

Re : Format date dans userform

tu récupere bien la date dans ton combobox en mettan le code de JNP
Private Sub UserForm_Initialize()
ComboBox1 = Format(Cells(1, 1), "dddd dd mmmm yyyy")
TextBox1 = Range("A1")

End Sub

 

[bellous]

Re : Format date dans userform

non, petchy cela ne fonctionne pas