Probleme de macro chargement d'heure dans combobox

[creolia]

Bonjour,à tous

J'ai tenter utilisé cette macro pour charger une combobox avec des Heures.

With Sheets("Parametre")

    Dim C As Range
For Each C In Range("K2:K25")
UserForm1.Combobox1.AddItem C.Text
Next C
   End With

mais elle semble incompatible avec ma nouvelle macro recement ajouter recement car ma combobox reste vide.

 Public MyParent As Worksheet
Property Set Parent(pParent)
    Set MyParent = pParent
End Property


Private Sub UserForm_Initialize()
With Liste
    .ColumnHeaders.Clear: .View = lvwReport: .FullRowSelect = True: .Gridlines = True
    For Each x In Array("NOM", "TH", "G24", "G12", "NV"): .ColumnHeaders.Add , , x, 50: Next x
End With
'Format(CDate(M3.Value), "hh:nn:ss")

End Sub


Private Sub UserForm_Activate()
RemplirComboZone
End Sub
Function RemplirComboZone()

For Each cell In MyParent.Rows(8).SpecialCells(xlCellTypeConstants)
    If cell <> "" Then ComboZone.AddItem cell
Next cell

End Function
Private Sub ComboZone_Change()
Liste.ListItems.Clear
For Each l In MyParent.Range("A10").Resize(MyParent.Range("A" & 2 ^ 16).End(xlUp).Row - 9, 1)
   Set a = Liste.ListItems.Add(Text:=l)
    For i = 2 To Liste.ColumnHeaders.Count: a.ListSubItems.Add Text:=l.Offset(, MyParent.Rows(8).Find(what:=ComboZone).Offset(1).Resize(1, Liste.ColumnHeaders.Count - 1).Find(what:=Liste.ColumnHeaders(i)).Column - 1): Next i
Next l
End Sub

Private Sub CommandButton2_Click()
Set f = New UserForm1: Set f.Parent = ActiveSheet
f.Show: Set f = Nothing
End Sub

aurais t'il une autre solution pour charger ma combobox avec mes heures s'il vous plait merci

 

[phlaurent55]

Re : Probleme de macro chargement d'heure dans combobox

Bonjour creolia,

avec ceci:

UserForm1.ComboBox1.AddItem Format(C, "hh:mm:ss")

à condition que les cellules K2:K25 soient au format hh:mm:ss

voir fichier joint

à+
Philippe

 

[creolia]

Re : Probleme de macro chargement d'heure dans combobox

Bonjour malheureusement sa ne fonctionne pas j'ai fais un petit fichier joint avec les deux macro la combobox reste vide tout de meme.

 

[phlaurent55]

Re : Probleme de macro chargement d'heure dans combobox

Re,

voir fichier joint en ce qui concerne uniquement le remplissage de ComboBox

à+
Philippe

 

[creolia]

Re : Probleme de macro chargement d'heure dans combobox

Re bonjour Phlaurent merci pour ta solution que j'ai appliquer à mon fichier mais je suis confronter au meme probleme seul ma combobox est remplie mais avec ma macro de listview le combobox1 reste vide donc sa resoud pas mon probleme malheureusement.

 

[creolia]

Re : Probleme de macro chargement d'heure dans combobox

Re bonjour à tous j'ai résolue mon probleme comme ceci

With Sheets("PARAMETRE")
    For Each cell In .Range("K2:K" & .Range("K65536").End(xlUp).Row)
        If cell <> "" Then Combobox1.AddItem Format(cell.Offset(0, 0), "hh:mm:ss")
       Next
End With

merci Phlaurent pour ton aide

à bientot