Formule de calcul avec VBA Excel

Bonjour à tous,

J'ai 2 TextBox dans un formulaire. T5 dans laquelle on tape un chiffre. T19 dans laquelle doit se calculer un nombre et voici comment.
T5 représente un nombre de personnes, T19 un nombre de bus à commander selon le nombre inscrit en T5.
Un bus comporte 55 places, donc si T5 est supérieur à 55 donc dans T19 il doit être inscrit 2. Entre 56 et 110 (2 bus), entre 111 et 165 (3 bus) et ainsi de suite. Dans T19 il doit toujours y avoir un nombre entier.
Voici le code que j'ai mis en place, mais le résultat n'est pas un entier.

Code:

---

1 2	T19.Value=(T5.Value/55)

---

Pouvez-vous m'apporter vos lumières s'il vous plait ?
Merci par avance

Bonjour,
Un peu de math ca change de l'algo et du code :D

Code:

---

1 2 3 4 5 6 7 8 9

Dim i As Long i = 111   If i Mod 55 <> 0 Then Debug.Print (i \ 55 + 1) Else Debug.Print i / 55 End If

---

\ est la division entière

si i n'est pas un multiple de 55 il te fau i\55 bus plus 1 pour le reste
si i est un multiple de 55 (i mod 55=0) alors il te faut i/55 bus

Bonjour krovax et merci

Voici ce que j'ai fait mais cela ne fonctionne pas. Je n'ai certainement pas compris ta formule.
Dans le code ci-dessus, lorsque je clique sur Ch1 (CheckBox) le résultat doit apparaître dans T19.
Mais T19 reste vide

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Ch1_Click() Dim I As Long I = 111 If I Mod 55 <> 0 Then Debug.Print (I \ 55 + 1) Else Debug.Print I / 55 End If

---

Techniquement mon code était juste un teste a adapter pas un code tout pret a incorporer... je lit un variable i en dure et j'ecrit le résultat dans la fenêtre d'exécution.

Pour la version toutes prête pas de besoin de travailler les autre font le boulot :mrgreen:

Ca devrait fonctionner

Code:

---

1 2 3 4 5 6 7 8

Private Sub Ch1_Click() Dim I As Long I = T5.Value If I Mod 55 <> 0 Then T19.Value=(I \ 55 + 1) Else T19.Value=I / 55 End If

---

Merci pour ta réponse. C'est dur dur en ce moment et je n'avais pas tout saisi sur le moment.
Avant de lire ta réponse j'avais modifié le code.
Encore merci

Y a pas de problème si j'avais mis le code brut c'est parce que je savais que tu pourrais l'adapter sans trop de problème ;), j'ai déjà suivit avec intérêt plusieurs de tes interventions.
Après c'est mon coté taquin qui a repris le dessus désole :oops:

Pas de problème. C'est moi qui te dois des excuses.
Merci:ccool: