Discussion :

[Lufia]

Bonjour à vous tous!

Après plusieurs recherches dans le forum et après avoir consulté le tutoriel sur les controles dans les UserForm, je me tourne vers vous!

J'ai un formulaire dans le lequel il y a des ComboBox qui ont leur rowsources dans feuil1. C'est ComboBox sont pour choisir la date et l'heure. Les données sources dans feuil1 sont formatées selont le format heure 13 h 30 et le format date 2009-09-23.

Dans mon UserForm, lorsque je clic pour dérouler la liste "heure", les heures sont bien affichées selon le format 13 h 30, mais lorsque j'en sélectionne une, l'affichage passe en mode "Standard" et me revoit une série de chiffre (39814,5624999999 pour 13 h 30). Même problème pour la date.

Comment puis-je définir que je veux que la donnée inscrite dans les Combobox de mon UserForm utilisent le format 13 h 30 pour l'heure et le format 2009-09-23 pour la date?

Merci à l'avance!!

[mercatog]

Tu peux essayer

Code :

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

1
2
3
Private Sub TaCombo_Change()
TaCombo.Value = Format(TaCombo.Value, "yyyy-mm-dd")
End Sub

TaCombo est le nom donné à ta ComboBox

[Lufia]

excellent!! C'était vraiment simple et à force de chercher je m'éloignais de la solution!

Merci beaucoup!!!

Y a-t-il une façon de faire pour faire la mise en forme des mes ComboBox toute dans le même bloc (une à la suite de l'autre). Où doit-je l'inscrire? J'ai testé dans Userform Initialize, mais ça ne fonctionne pas.

J'aimerais avoir:

Code :

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

1
2
3
4
cbxDateDebut.Value = Format(cbxDateDebut.Value, "yyyy-mm-dd")
cbxDateDebutPrevu.Value = Format(cbxDateDebutPrevu.Value, "yyyy-mm-dd")
cbxHeureArriveMTCE.Value = Format(cbxHeureArriveMTCE.Value, "hh:mm")
cbxHeureArriveOperateur.Value = Format(cbxHeureArriveOperateur.Value, "hh:mm")

Plutôt que d'avoir:

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
Private Sub cbxDateDebut_Change()
cbxDateDebut.Value = Format(cbxDateDebut.Value, "yyyy-mm-dd")
End Sub
 
Private Sub cbxDateDebutPrevu_Change()
cbxDateDebutPrevu.Value = Format(cbxDateDebutPrevu.Value, "yyyy-mm-dd")
End Sub
 
Private Sub cbxHeureArriveMTCE_Change()
cbxHeureArriveMTCE.Value = Format(cbxHeureArriveMTCE.Value, "hh:mm")
End Sub
 
Private Sub cbxHeureArriveOperateur_Change()
cbxHeureArriveOperateur.Value = Format(cbxHeureArriveOperateur.Value, "hh:mm")
End Sub

Sa semble peut-être banal, mais j'ai beaucoup de ComboBox et je trouve beaucoup plus simple de retrouver la bonne au besoin en les ayant dans un seul bloc.

Merci encore de partager votre savoir!!

[jfontaine]

Bonjour

Tu peux utiliser une procedure de mise forme en passant ta combobox par reference

Code :

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

1
2
3
4
5
6
7
Private Sub cbxDateDebut_Change()
formatDate cbxDateDebut
End Sub
 
Sub formatDate(ByRef Cbo As ComboBox)
Cbo.Value = Format(Cbo.Value, "yyyy-mm-dd")
End Sub

[Lufia]

Dans ce cas, je dois tout de même mettre la ligne dans ComboBox_Change et le faire dans chacune des ComboBox??

Code :

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

1
2
3
Private Sub cbxDateDebut_Change()
formatDate cbxDateDebut
End Sub

Il n'y a pas moyen de mettre cette ligne pour chaque ComboBox dans le userform Initialize ou un truc du genre comme pour assigner les RowSources??

[jfontaine]

Il n'y a pas d'evenement commun a toutes les combobox

A mon sens, le mieux serait de mettre en forme au chargement des combobox