XL 2019 combobox et textbox

[Seb2128]

Bonjour à tous,

Je suis vraiment désolé d'avance, je sais qu'il y existe de très nombreux sujets concernant cette problématique mais malgré toute mes tentatives, rien ne fonctionne.

Je souhaite faire un code VBA vraiment "simple" :

Tout simple :
J'ai créé une combobox en ajoutant manuellement les valeurs (additem) Matin - Après_midi - journée et horaire posté
Je veux simplement remplir ma textbox par 8H-12H / 13h-16h .... selon le créneaux horaires choisis

l'idée serait de choisir un crénaux horaire pour afficher les horaires dans une textbox et remplir une cellule spécifique

Je bloque sur la partie pour faire le lien entre combobox et textbox pour pouvoir continuer et finir mon travail je vous joins un extrait.



(peut être pour une meilleur compréhension) Au final je voudrais avoir deux textbox pour "heure de début et heure de fin" et faire en sorte que pour le crénaux horaire "posté", je puisse le modifié avec une toupie par exemple l'heure de début et l'heure de fin"


J’espère que j'ai réussi à bien exposé ma demande d'aide

Je vous remercie vraiment d'avance pour votre aide

 

[Seb2128]

Malgré ma longue réflexion avant de vous écrire ( vu le bon nombre de sujet la dessus) je viens d'avoir une idées :

Je pense que je vais plutôt créé 3 combobox
combobox 1 : crénaux horaire

pour incrémenter avec toupie
combobox 2 : heure de début
Combobox 3 : heure de fin

Par contre je ne sais pas non plus comment faire


Suis-je vraiment obligé de créé un tableau ?


Merci

 

[M12]

Bonjour,
Un exemple avec un deuxieme combobox visible pour choix des "posté"

 

[Seb2128]

Bonjour,


Merci beaucoup !!!
Par contre je ne comprend pas pourquoi ma ligne
"if combobox1.value = ""Matin"" then listbox.value = ""8H""
ne marchait pas ... peut être mon End if ...

Bref merci beaucoup, faut juste que je rajoute la toupie pour l'incrémentation

Encore Merci c'est top

 

[M12]

Re,
Par contre je ne comprend pas pourquoi ma ligne
"if combobox1.value = ""Matin"" then listbox.value = ""8H""
ne marchait pas ... peut être mon End if ...
tu as mis
If ComboBox1.Value = "matin" Then

En VBA maj et min ne s'accordent pas, à moins de placer en haut de la macro
Option Compare Text