J'ai un petit souci. Je dois faire afficher dans un=20
UserForm, sur une ComboBox pour =EAtre pr=E9cis, des heures=20
(6:32) par exemple.
Je les ai plac=E9 dans les cellules de la colonne T.
Maintenant quand je s=E9lectionne les heures depuis ma=20
ComboBox, il vient s'afficher une valeur dans le style=20
(0.02155555555). J'ai bien mis le format heures depuis=20
Outils -> Options...
Mais rien y fait...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Sabian Avec une plage nommée Plg dans la feuille Feuil1 et qui commence en ligne 1, code à placer dans l'évènement UserForm_Initialize : For i = 1 To Sheets("Feuil1").Range("plg").Cells.Count With Me.ComboBox1 .AddItem (Format(Cells(i, Range("plg").Column).Value, "hh:mm")) End With Next i Cordialement Pascal
"Sabian" a écrit dans le message de news:0a1701c351a8$3be40260$ Salut bonjour...
J'ai un petit souci. Je dois faire afficher dans un UserForm, sur une ComboBox pour être précis, des heures (6:32) par exemple.
Je les ai placé dans les cellules de la colonne T. Maintenant quand je sélectionne les heures depuis ma ComboBox, il vient s'afficher une valeur dans le style (0.02155555555). J'ai bien mis le format heures depuis Outils -> Options... Mais rien y fait...
Au secours please... Merci 1000 fois
Bonjour Sabian
Avec une plage nommée Plg dans la feuille Feuil1 et qui commence en ligne 1,
code à placer dans l'évènement UserForm_Initialize :
For i = 1 To Sheets("Feuil1").Range("plg").Cells.Count
With Me.ComboBox1
.AddItem (Format(Cells(i, Range("plg").Column).Value, "hh:mm"))
End With
Next i
Cordialement
Pascal
"Sabian" <sa@bian.com> a écrit dans le message de
news:0a1701c351a8$3be40260$a001280a@phx.gbl...
Salut bonjour...
J'ai un petit souci. Je dois faire afficher dans un
UserForm, sur une ComboBox pour être précis, des heures
(6:32) par exemple.
Je les ai placé dans les cellules de la colonne T.
Maintenant quand je sélectionne les heures depuis ma
ComboBox, il vient s'afficher une valeur dans le style
(0.02155555555). J'ai bien mis le format heures depuis
Outils -> Options...
Mais rien y fait...
Bonjour Sabian Avec une plage nommée Plg dans la feuille Feuil1 et qui commence en ligne 1, code à placer dans l'évènement UserForm_Initialize : For i = 1 To Sheets("Feuil1").Range("plg").Cells.Count With Me.ComboBox1 .AddItem (Format(Cells(i, Range("plg").Column).Value, "hh:mm")) End With Next i Cordialement Pascal
"Sabian" a écrit dans le message de news:0a1701c351a8$3be40260$ Salut bonjour...
J'ai un petit souci. Je dois faire afficher dans un UserForm, sur une ComboBox pour être précis, des heures (6:32) par exemple.
Je les ai placé dans les cellules de la colonne T. Maintenant quand je sélectionne les heures depuis ma ComboBox, il vient s'afficher une valeur dans le style (0.02155555555). J'ai bien mis le format heures depuis Outils -> Options... Mais rien y fait...
Au secours please... Merci 1000 fois
Sabian
Grazie millllllllle merci et bon week-end (anticipé)
Grazie millllllllle
merci et bon week-end (anticipé)
Grazie millllllllle merci et bon week-end (anticipé)
Ellimac
Bonjour,
Tu peux aussi utiliser le code suivant : Private Sub ComboBox1_Change() UserForm1.ComboBox1 = Format UserForm1.ComboBox1, "h:m") End Sub
Camille
-----Message d'origine----- Salut bonjour...
J'ai un petit souci. Je dois faire afficher dans un UserForm, sur une ComboBox pour être précis, des heures (6:32) par exemple.
Je les ai placé dans les cellules de la colonne T. Maintenant quand je sélectionne les heures depuis ma ComboBox, il vient s'afficher une valeur dans le style (0.02155555555). J'ai bien mis le format heures depuis Outils -> Options... Mais rien y fait...
Au secours please... Merci 1000 fois .
Bonjour,
Tu peux aussi utiliser le code suivant :
Private Sub ComboBox1_Change()
UserForm1.ComboBox1 = Format UserForm1.ComboBox1, "h:m")
End Sub
Camille
-----Message d'origine-----
Salut bonjour...
J'ai un petit souci. Je dois faire afficher dans un
UserForm, sur une ComboBox pour être précis, des heures
(6:32) par exemple.
Je les ai placé dans les cellules de la colonne T.
Maintenant quand je sélectionne les heures depuis ma
ComboBox, il vient s'afficher une valeur dans le style
(0.02155555555). J'ai bien mis le format heures depuis
Outils -> Options...
Mais rien y fait...
Tu peux aussi utiliser le code suivant : Private Sub ComboBox1_Change() UserForm1.ComboBox1 = Format UserForm1.ComboBox1, "h:m") End Sub
Camille
-----Message d'origine----- Salut bonjour...
J'ai un petit souci. Je dois faire afficher dans un UserForm, sur une ComboBox pour être précis, des heures (6:32) par exemple.
Je les ai placé dans les cellules de la colonne T. Maintenant quand je sélectionne les heures depuis ma ComboBox, il vient s'afficher une valeur dans le style (0.02155555555). J'ai bien mis le format heures depuis Outils -> Options... Mais rien y fait...
