Ajout de temps dans un Combobox

[Calvus]

Bonjour le Forum,

J'ai un Combobox alimenté avec des tranches horaires par pallier de 30 minutes.
Un second, dans lequel j'aimerais incrémenter la valeur choisie + 30 minutes.
Je ne parviens pas à trouver le bon format pour faire fonctionner mon code.

ComboBox3 = ComboBox2 + Format(TimeSerial(0, 30, 0), "hh:mm")

Celui ci est un exemple des nombreux codes essayés, sans succès probant.

Merci

 

[pierrejean]

Bonjour Calvus

A tester:

ComboBox3 = Format(TimeSerial, CDbl(combobox2) + (30 / 1440), "hh:mm")

 

[Jacky67]

Bonjour,
Essaye

Me.ComboBox3.Value = CDate(Me.ComboBox2.Value) + "00:30"

Quel est l'intérêt d'un Combobox pour 1 seule valeur ?

 

[Calvus]

Bonjour PieereJean, Jacky67,

Merci de vos réponses.

Pierrejean, la tienne me donne une erreur, argument non facultatif.

Jacky67, ton code fonctionne comme je le souhaitais.
Pour répondre à ta question, ce combobox est pour des prises de rendez vous dans Outlook, la plupart ayant une durée de 30 minutes, ou un multiple de 30 minutes dépassant rarement 1h30.
Ce combobox est donc déjà alimenté avec des tranches horaires, comme le premier, mais il est plus simple d'ajouter 30 minutes en appuyant sur un bouton que d'aller chercher dans la liste.
Et en ajoutant une condition, j'ai maintenant une incrémentation automatique par pas de 30 minutes à chaque click.
Ça fonctionne donc à merveille maintenant !

Voici l'image des 2 combobox.

Merci et à bientôt.