combobox au format heure minutes

[dudule]

bonjour

je solicite votre aide afin de savoir comment metre l'affichage dans une combobox au format Heure et minute (21:05)
merci d'avance
bonne journée

 

[porcinet82]

Salut Dudule,

Pour changer le format d'une combo, il te suffit de mettre le code suivant dans la procédure Chang de la combo, ce qui donnerai quelque chose du genre :

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, 'hh:mm')
End Sub

@+

 

[Blunet]

Salut dudule, voici cmt faire
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, 'h:m')
End Sub

 

[Robert]

Bonjour Dudule, Porcinet, bonjour le forum,

Autre possibilité :

Private Sub UserForm_Initialize() 'à l'initialisation de l'Userform
For Each cel In Range('A1:A25') 'boucle sur toutes les cellules de la plage (plage à adapter)
ComboBox1.AddItem Format(cel.Value, 'hh:mm') 'ajoute la valeur de la cellule convertie au format horaire
Next cel 'prochaine cellule de la boucle
End Sub

Édition :

Bonjour Blunet on s'est croisés.

Message édité par: Robert, à: 22/06/2006 11:19

 

[Blunet]

Zut j'ai pas actualisé de nouveau...
J'en profite pour expliquer la différence de format que je présente et celui de procinet.
Le format que j'ai appliqué supprime les 0 par exple 09:45 devient 9:45
Tandis que hh:mm laisse intacte 09:45 reste 09:45

 

[PascalXLD]

Bonjour

il y a aussi ceci

ComboBox1.Value = Format(ComboBox1.Value, 'hh:nn')

Bonne journée

 

[TITANIC]

Salut, et pour les formats de date????
Quelqu'un a t'il une info ?
Je me retrouve avec des formats inversé et des numéros de série dans le combobox...
Merci

 

[Blunet]

Salut Titanic,
Plus généralement pour formater, onutilise la fonction Format(Expression ,Format)

TextBox1.Value = Format(TextBox1.Value, 'dd mm yyyy')

Tu pourras trouver plus de détails dans l'aide

Ciao

 

[TITANIC]

Merci bluenet.
La formulation n'est pas acceptée ( je ne comprends pas ) au niveau de mon combobox
il faut dire que ce combo renvoie d'abord unedonnée de date ( via une plage nommée ) et en suite, avec un bouton de rappel, on renvoi la date dans le combo qui alors peut être modifié. Mais d'abord à la perte du focus du combo la date s'affiche en n° de série, et ensuite la nouvelle date est inversée au niveau jour et mois ( ca fait désordre )...Je craque...

 

[PascalXLD]

Re

essaies ainsi

TextBox1.Value = Format(cdate(TextBox1.Value), 'dd mm yyyy')

 

[porcinet82]

re,

Juste pour rajouter qu'il faut rajouter des slash entre dd,mm et yyyy qui n'apparaissent pas sur le forum.

@+

 

[TITANIC]

Salut, mon débogueur apprècie pas !
erreur de compilation, projet ou bibliothèque introuvable !
c'est coton à règler cette histoire, ça fait 1 heure que j'essaie tout ce qui est possible ( ça doit être un truc simpliste que je ne vois pas )
ou alors c'est ingérable..

J'avais mis au dernier essai :

Private Sub ComboBox3_AfterUpdate()
Compbobox3.Value = Format(CDate(ComboBox.Value), 'dd/mm/yyyy')
End Sub

celà est peut être un problème de focus ou de boucle, car la donnée date est d'abord affichée via la colonne dans la base de donnée, et ensuite modifiée dans le même combo ( via liste ) et ensuite ré-injectée dans la base via bouton de validation. Ca coince peut être par là.

 

[porcinet82]

Bonsoir,

Tout cela me semble bien confu, mais peut etre que mes confrères comprendrons mieux que moi. Si ce n'est pas le cas je te propose de mettre un p'ti bout de fichier joint via Cjoint.com

@+

 

[TITANIC]

Salut ( et merci, j'ai un peu squaté le post, mais j'ai sauté sur l'occasion car le problème se rapprochait du mien.)
Bon ben je met sous rapidshare un fichier annexe, qui est un ancien fichier que j'avais uploadé sur le forum, et qui contient encore l'erreur dont je parle ( combobox ). Si quelqu'un à le temps de regarder !!
merci encore, et bonne nuit !!

 

[TITANIC]

Salut ( et merci, j'ai un peu squaté le post, mais j'ai sauté sur l'occasion car le problème se rapprochait du mien.)
Bon ben je met sous rapidshare un fichier annexe, qui est un ancien fichier que j'avais uploadé sur le forum, et qui contient encore l'erreur dont je parle ( combobox ). Si quelqu'un à le temps de regarder !!
merci encore, et bonne nuit !!