Pb ListBox et ComboBox dates

Hulk · 6 Avril 2010

Hello tout le monde,

Désolé pour le titre du fil, mais pas évident à titrer.

Avec un Usf et des ComboBox je souhaîte amener les valeurs dans une ListBox, ça joue avec la ComboBox où il y a du texte, mais ça ne joue pas avec des dates

Pas évident à expliquer comme ça, le mieux est de jeter un coup d'oeil au fichier joint.

Par avance un grand merci à tous ceux qui me viendront en aide !

Fo_rum · 6 Avril 2010

Re : Pb ListBox et ComboBox dates

Salut

et ainsi ?

Code:

Private Sub ComboDates_Change()

    UserForm1.ListBox1.Clear
    
    With Sheets("Feuil1")
        .Range("I16").Value = [B]CDate(ComboDates)[/B]
        ListBox1.List() = .Range("J16:M" & .Range("M65536").End(xlUp).Row).Value
    End With
    
End Sub

Paritec · 6 Avril 2010

Re : Pb ListBox et ComboBox dates

Bonjour Hulk Fo_rum, le forum
voilà ton fichier en retour, tu n'auras même pas à te fâcher ni casser ta chemise
a+
papou

fhoest · 6 Avril 2010

Re : Pb ListBox et ComboBox dates

bonsoir a tous
juste le temps de prendre un repas et voila deja d'autres solution
voici la mienne

Code:

Private Sub ComboDates_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

ComboDates = Format(ComboDates, "mm/dd/yyyy")
    UserForm1.ListBox1.Clear
    
    With Sheets("Feuil1")
        .Range("I16").Value = ComboDates.Value
        ListBox1.List() = .Range("J16:M" & .Range("M65536").End(xlUp).Row).Value
    End With
End Sub

A+

Hulk · 6 Avril 2010

Re : Pb ListBox et ComboBox dates

Hello,

Merci pour vos réponses Messieurs !

C'est la solution à Fo_rum qui est la bonne

Merci encore à tous et bonne soirée !

Pb ListBox et ComboBox dates

Hulk

XLDnaute Barbatruc

Pièces jointes

Fo_rum

XLDnaute Accro

Paritec

XLDnaute Barbatruc

Pièces jointes

fhoest

XLDnaute Accro

Hulk

XLDnaute Barbatruc

Discussions similaires