Mise en forme ComboBox dans UserForm

Version imprimable

22/09/2009, 22h35
Lufia

Mise en forme ComboBox dans UserForm

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!!

Tu peux essayer
Code:

1 2 3 Private Sub TaCombo_Change() TaCombo.Value = Format(TaCombo.Value, "yyyy-mm-dd") End Sub
TaCombo est le nom donné à ta ComboBox

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:

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:

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!! :ccool:

Bonjour

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

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

24/09/2009, 22h23
Lufia
Dans ce cas, je dois tout de même mettre la ligne dans ComboBox_Change et le faire dans chacune des ComboBox??
Code:

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??
25/09/2009, 08h38
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

Pour ma part je commencerais par formater les colonnes concernées
Code:

1 2 Columns("A:A").NumberFormat = "h\hmm;@" 'colonne des heures Columns("B:B").NumberFormat = "yyyy-mm-dd" Colonne des dates
Pour extraire une sélection dans la liste de date ou d'heure, utilise cdate(ComboBox1). Ensuite, au lieu d'utiliser l'événement change, utilise l'événement Click des listes. Dans ce cas-là tu n'auras pas besoin de "format... "
Exemple pour deux combos dans un userform :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub ComboBox1_Click() Dim Heure As Date If ComboBox1 = "" Then Exit Sub ComboBox1.Value = CDate(ComboBox1) Heure = CDate(ComboBox1) MsgBox Heure End Sub Private Sub ComboBox2_Click() Dim LaDate As Date If ComboBox2 = "" Then Exit Sub ComboBox2.Value = CDate(ComboBox2) LaDate = CDate(ComboBox2) MsgBox LaDate End Sub
Bonne journée

Edit
Je crois savoir sans l'avoir testé que le format affiché avec cdate sera celui du pays d'origine (jj/mm/aaaa en français ou yyyy-mm-dd ou yyyy/mm/dd en anglais)

Mon problème reste le même, je dois tout de même inscrire le code dans chaque combobox_click (ce qui, pratiquement parlant, revient au même). Puisque j'ai 20 ComboBox à définir, j'aurais aimé avoir tout d'un bloc comme pour les RowSources

Code:

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
Private Sub Userform_Initialize()
cbxDateDebut.RowSource = "Feuil1!B1:B365"
cbxDateDebutPrevu.RowSource = "Feuil1!B1:B365"
cbxHeureArriveMTCE.RowSource = "Feuil1!A1:A96"
cbxHeureArriveOperateur.RowSource = "Feuil1!A1:A96"
cbxHeureCadenassage.RowSource = "Feuil1!A1:A96"
cbxHeureCadenPrevue.RowSource = "Feuil1!A1:A96"
cbxHeureDebutDemarPrevue.RowSource = "Feuil1!A1:A96"
cbxHeureDebutPrevue.RowSource = "Feuil1!A1:A96"
cbxHeureDebutTravaux.RowSource = "Feuil1!A1:A96"
cbxHeureDecadenassage.RowSource = "Feuil1!A1:A96"
cbxHeureDecadenPrevue.RowSource = "Feuil1!A1:A96"
cbxHeureDemarrage.RowSource = "Feuil1!A1:A96"
cbxHeureFinAutresTravaux.RowSource = "Feuil1!A1:A96"
cbxHeureFinDemarPrevue.RowSource = "Feuil1!A1:A96"
cbxHeureFinPrevue.RowSource = "Feuil1!A1:A96"
cbxHeureFinProd.RowSource = "Feuil1!A1:A96"
cbxHeureFinTravaux.RowSource = "Feuil1!A1:A96"
cbxHeureRemisMTCE.RowSource = "Feuil1!A1:A96"
cbxTempsPrep.RowSource = "Feuil1!C1:C48"
cbxTempsDemarrage.RowSource = "Feuil1!C1:C48"
cbxTempsCadenassage.RowSource = "Feuil1!C1:C48"
cbxTempsDecadenassage.RowSource = "Feuil1!C1:C48"
cbxEquipement.RowSource = "Feuil1!D1:D365"
 
End Sub

Donc tant qu'à avoir ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ComboBox1_Click()
Dim Heure As Date
    If ComboBox1 = "" Then Exit Sub
    ComboBox1.Value = CDate(ComboBox1)
    Heure = CDate(ComboBox1)
    MsgBox Heure
End Sub
 
Private Sub ComboBox2_Click()
Dim LaDate As Date
    If ComboBox2 = "" Then Exit Sub
    ComboBox2.Value = CDate(ComboBox2)
    LaDate = CDate(ComboBox2)
    MsgBox LaDate
End Sub

Je vais conserver ceci :

Code:

1
2
3
4
5
6
7
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

Merci quand même!!!

Tu as une autre solution consistant à créer une collection de tes listes et de n'avoir alors qu'une macro, une seule, pour traiter les heures de tous tes combos des heures et idem pour les dates

Mais en poursuivant avec ton idée, il est un moyen plus simple que de mettre Format(... ) dans chaque click ou change de chaque combo. Consiste à créer une macro unique qui renvoie la donnée. Pour ça tu dois récupérer le nom du contrôle (le combo actif) et paramétrer la macro
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub cbxDateDebut_Change() LaMacroDate Activecontrol.name End sub Private Sub cbxDateFin_Change() LaMacroDate Activecontrol.name End sub Private Sub LaMacroDate (NomDuControle as string) Dim LaDate As Date If Controls(NomDuControle) = "" Then Exit Sub Controls(NomDuControle).Value = CDate(Controls(NomDuControle)) LaDate = CDate(Controls(NomDuControle)) MsgBox LaDate End Sub
Mais c'est juste une idée

Par contre, la collection de combos évoquée au début t'éviterait toutes les macros cbxDate_Gnagna_Change() ;)
Si ça t'intéresse...
A+

Bonjour à toi!

Mon problème était beaucoup plus pour mes nombreux combobox contenant des heures. Pour mes dates j'ai installé des DTPicker. Je défini tout de même mon format de date dans Combobox_change, mais j'ai pu suprimer tous les combobox_change pour le format Heure! Ayant eu un autre problème, Laetitia m'a fourni un code qui simplifie beaucoup tout ce processus!! En passant par AddItem, je peux définir mon format immédiatement!
Code:

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 29 30 31 32 33 34 35 36 37 38 39 40 Private Sub Userform_Initialize() Dim derlig As Long Dim feuilSuivi As Worksheet Dim HeureDef As String, SourceHeure As String Dim Ktrl As Control Dim Cel As Range 'Définition des valeur de date picker par défaut MultiPage1.Value = 0 DTPDatePrevue.Value = Now MultiPage1.Value = 1 DTPDateDebut.Value = Now MultiPage1.Value = 0 ' Définition et mise en forme des items combobox Heures For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxHeure" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 28 End If Next Ktrl ' Définition des rowsources SourceHeure = "Feuil1!A1:A96" cbxTempsPrep.RowSource = SourceHeure cbxTempsDemarrage.RowSource = SourceHeure cbxTempsCadenassage.RowSource = SourceHeure cbxTempsDecadenassage.RowSource = SourceHeure cbxEquipement.RowSource = "Feuil1!b1:b365" ' Récupération du numéro de PostMortem Set feuilSuivi = Sheets("Data suivi Arrets") derlig = feuilSuivi.Cells(65536, 2).End(xlUp).Row + 1 txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value End Sub
Merci pour ta suggestion, je la prend tout de même en note!!
Geneviève