Bonjour .......
Je sais, mon titre n'est pas clair. D'ailleurs je ne pense avoir compris moi-même
Je m'explique. Je suis en train de créer un useform avec " entre autres " 2 combobox devant recevoir la même liste; une liste d'heure. De 8:00 à 18:30.
Pour la première j'ai donc appliqué ces codes:
' Application du format heure au combobox4
Private Sub ComboBox4_Change()
ComboBox4.Value = Format(CDate(ComboBox4.Value), "hh:nn")
End Sub
' Application de la liste au combobox4
Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Sheets("Liste").Range("E2:E128")
ComboBox4.AddItem c.Text
Next c
End Sub
Pour ce combobox, pas de problême. Par contre je ne parviens pas à appliquer le même processus pour le combobox5
' Application du format heure au combobox5
Private Sub ComboBox5_Change()
ComboBox5.Value = Format(CDate(ComboBox4.Value), "hh:nn")
End Sub
La suite ..... je ne comprend plus
Comment faire pour que la même liste soit appliquée au combobox5?
J'ai essayé:
Dim d As Range
For Each d In Sheets("Liste").Range("E2:E128")
ComboBox5.AddItem d.Text
Next d
Mais a part erreur sur erreur ..... rien. Je ne sais pas où placer ce code sans créer une erreur.
Merci à l'avance pour toute personne me venant en aide " Je suis sous excel 2003"
Je sais, mon titre n'est pas clair. D'ailleurs je ne pense avoir compris moi-même
Je m'explique. Je suis en train de créer un useform avec " entre autres " 2 combobox devant recevoir la même liste; une liste d'heure. De 8:00 à 18:30.
Pour la première j'ai donc appliqué ces codes:
' Application du format heure au combobox4
Private Sub ComboBox4_Change()
ComboBox4.Value = Format(CDate(ComboBox4.Value), "hh:nn")
End Sub
' Application de la liste au combobox4
Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Sheets("Liste").Range("E2:E128")
ComboBox4.AddItem c.Text
Next c
End Sub
Pour ce combobox, pas de problême. Par contre je ne parviens pas à appliquer le même processus pour le combobox5
' Application du format heure au combobox5
Private Sub ComboBox5_Change()
ComboBox5.Value = Format(CDate(ComboBox4.Value), "hh:nn")
End Sub
La suite ..... je ne comprend plus
Comment faire pour que la même liste soit appliquée au combobox5?
J'ai essayé:
Dim d As Range
For Each d In Sheets("Liste").Range("E2:E128")
ComboBox5.AddItem d.Text
Next d
Mais a part erreur sur erreur ..... rien. Je ne sais pas où placer ce code sans créer une erreur.
Merci à l'avance pour toute personne me venant en aide " Je suis sous excel 2003"
Dernière édition: