Ajout de temps dans un Combobox

Calvus · 6 Février 2017

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.

VB:

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 · 6 Février 2017

Bonjour Calvus

A tester:

Code:

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

Jacky67 · 6 Février 2017

Bonjour,
Essaye

Code:

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

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

Calvus · 6 Février 2017

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.

Ajout de temps dans un Combobox

Calvus

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Discussions similaires