Discussion :

[steph7609123]

Bonjour,
Cela fait deux jours que je cherche et je ne trouve pas la solution à mon problème. Je vous expose le sujet :
J'ai réalisé un formulaire dans lequel se trouve un combobox date d'arrivée. Les données de la liste déroulante sont récupérées dans un plage de cellule en colonnes que j'ai nommé. Dans ROWsource, j'ai donc entré le nom de cette plage de cellules. Ces dernières sont formatées sur ma feuille en format date de sorte que dans les cellules j'ai la date complète qui s'affiche (par ex Vendredi 8 mars 2019). Les données apparaissent bien dans la combobox. Malheureusement, lorsque je sélectionne une date, c'est son numéro de série qui s'affiche au lieu du texte "vendredi 8 mars 2019.
Quelqu'un aurait-il déjà rencontré ce problème et pourrait de fait m'indiquer la marche à suivre pour que dans la combobox, une fois la date choisie, ce soit le texte qui s'affiche et nom pas le numéro de série.
Je vous remercie par avance.
Bien cordialement.
Stéphane

[WuKoDLaK]

Bonsoir,

il faudrait que tu présentes le format exact de ta cellule, et le code vba pour récupérer / afficher dans le combobox.

Un exemple de ce que j'utilise, ici il s'agit d'un TEXTBOX.

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
17
18
19
20
21
22
23
24
25
26
27
28
 
'*
'* sInitVariable
'*
'**********************************************
Private Sub sInitVariable()
 
    Dim d_DateLendemain As Date
    '-----------------------------------------
    Set lo_tableauSource = Worksheets("bdd").ListObjects("t_bdd")
 
    ' Date stockée en format Personnalisé, type :  jjjj jj mmmm aaaa
    Me.lblDateJour = format(d_DateDuJour, "dddd dd mmmm yyyy")
 
    Me.lblPeriodeGarde = Worksheets("Main Courante").Range("F3").Value
 
    sInitDonneesJour
 
    Me.txtboxDateDebut = format(d_DateDuJour, "dd/mm/yyyy")
    sheet_MainCourante.Range("G1") = Me.txtboxDateDebut
    Me.txtboxHeureDebut = format("07:30", "hh:mm")
 
    d_DateLendemain = d_DateDuJour + 1 ' date modifiée jusqu'au lendemain.
    Me.txtboxDateFin = format(d_DateLendemain, "dd/mm/yyyy")
    sheet_MainCourante.Range("H1") = Me.txtboxDateFin
    Me.txtboxHeureFin = format("07:29", "hh:mm")
 
End Sub

attention dans certains cas, l'usage de CDATE peut être nécessaire en lieu et place de FORMAT pour contrer le format FRANCAIS/ANGLAIS des dd/mm/aaaa VS mm/dd/aaaa (d pour Day au lieu de j > Jour en vba)

[patricktoulon]

c'est un probleme recurent
par contre c'est pas clair ta demande
"saffiche en numero de serie " OU CA ???? dans la combo dans un textbox dans une cellule

regarde tout de meme ce que fait ceci

Code :

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

1
2
3
4
Sub test()
d = Split("Vendredi 8 mars 2019", " ")
MsgBox DateValue(d(1) & " " & d(2) & " " & d(3))
End Sub

[steph7609123]

Bonjour Patricktoulon et wukodelak
Je vous remercie de vos interventions et je vais essayer de trouver la solution dans vos réponses. Je tiens à m'excuser de ne pas vous avoir répondu plus tôt mais le WE a été chargé.
Je vous tiens informés.
Bien cordialement.
Stéphane