Discussion :

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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

Ca devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NEC14]

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

[Krovax]

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

[NEC14]

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