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

 

[petchy]

Re : Format date dans userform

Re

qu'est ce qui ne fonctionne pas ?
parce que dans le fichier que tu as zippé,je récupere bien la date dans le combo avec le code si dessus
sinon envoi ton code

 

[bellous]

Re : Format date dans userform

exact, mais sous forme de chiffre et non sous format date comme la cellule source. Et pour la comparaison il ne reconnait pas ce format

 

[petchy]

Re : Format date dans userform

Tu la bien mis dans UserForm_Initialize
parce que la je ne voit pas pourquoi ça ne fonctionne pas chez toi

 

[bellous]

Re : Format date dans userform

Je te réenvoie le fichier zippé

 

[ninbihan]

Re : Format date dans userform

Bonjour à tous,

D'aprés ce que j'ai compris...
Je ne sais pas bien si le but de l'UF est:
- Nommer début liste
- Inscrire le choix en B5
- Sélectionner la cellule contenant la date choisie

Du coup, çà fait les trois,
plus besoin non plus de réécrire les dates en vertical

A tester,

Bon après midi

Ninbihan

 

[bellous]

Re : Format date dans userform

pardon, c'était pas le bon

 

[bellous]

Re : Format date dans userform

SUPER, Ninbihan

C'est exactement ce que j'espérais. Un gros merci.

Merci à toi aussi Petchy de m'avoir consacré du temps et de la matière grise.

 

[MJ13]

Re : Format date dans userform

Bonjour

je me permet de me glisser dans ce post pour une petite question de VBA.

Ninbihan dans une macro écrit.

Sub Macro1()
'         Range("a1").Name = "début_liste_horizontale"
'         Range("a1").Name = "début_liste"
'         Range("e5").Name = "début_liste_verticale"
'         Range("début_liste_horizontale").Copy
'         Range("début_liste_verticale").Select
'         ActiveSheet.Paste
'10       Range("début_liste_horizontale")(1, 2).Select
'         ActiveCell.Name = "début_liste_horizontale"
'         ActiveCell.Copy
'         Range("début_liste_verticale")(2, 1).Select
'         ActiveCell.Name = "début_liste_verticale"
'         ActiveSheet.Paste
'      If Range("début_liste_horizontale") = 0 Then GoTo 30
'    GoTo 10
'30       UserForm3.Show
'         Range("b5").Name = "date_demande"
'40    If Range("début_liste") = Range("date_demande") Then GoTo 50
'         Range("début_liste")(1, 2).Select
'         ActiveCell.Name = "début_liste"
'    GoTo 40
'
'50
 
        UserForm3.Show
        Range("a1").Name = "début_liste"
        Range("a1").Select
10        If Range("début_liste") = Range("B5") Then Exit Sub
        Range("début_liste")(1, 2).Select
        ActiveCell.Name = "début_liste"
        GoTo 10
End Sub

Or je ne pensais pas que l'on pouvait numéroter en ligne comme dans GWbasic par exemple (c'est la première fois que je le vois).
Pouvez vous m'éclairer?

 

[JNP]

Re : Format date dans userform

Bonjour le forum, Michel 🙂,
Pour Michel : tu noteras que toutes les lignes numérotées par notre ami Ninbihan sont précédées d'une cote, donc seront analysées comme commentaire et donc ne seront pas exécutées. Il reste un 10 et un GoTo 10. Dans la nomenclature conseillée, l'application GoTo renvoie sur une étiquette qu'il est souhaitable (a priori pas obligatoire) de faire suivre de 2 points ( : ), mais il est vrai que c'est aussi ce qui sert pour séparer 2 instructions dans la même ligne. Du fait, l'instruction fonctionne même s'il est discutable d'utiliser une étiquette 10 plutôt qu'une étiquette Dix: qui sera plus lisible et ne risquera pas de poser problème dans l'identification.
Bon WE 😎

 

[MJ13]

Re : Format date dans userform

Bonjour et merci JNP

Mais je ne savais pas qu'on pouvait le faire.