combobox au format heure minutes

porcinet82

XLDnaute Barbatruc

• 22 Juin 2006

• #2

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 22 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Juin 2006

• #4

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

Cliquez pour agrandir...

Édition :

Bonjour Blunet on s'est croisés.

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

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 22 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 22 Juin 2006

• #6

Bonjour

il y a aussi ceci

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

Bonne journée

 

Vote positif 0 Vote négatif

T

TITANIC

Guest

• 22 Juin 2006

• #7

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

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 22 Juin 2006

• #8

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

 

Vote positif 0 Vote négatif

T

TITANIC

Guest

• 22 Juin 2006

• #9

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 22 Juin 2006

• #10

Re

essaies ainsi

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 22 Juin 2006

• #11

re,

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

@+

 

Vote positif 0 Vote négatif

T

TITANIC

Guest

• 22 Juin 2006

• #12

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à.

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 22 Juin 2006

• #13

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

@+

 

Vote positif 0 Vote négatif

T

TITANIC

Guest

• 23 Juin 2006

• #14

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

 

Vote positif 0 Vote négatif

T

TITANIC

Guest

• 23 Juin 2006

• #15

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

 

Vote positif 0 Vote négatif