determiner et forcer des valeurs en des multiples d'une valeur initiale

Bonjour,

j'ai un userform composé de plusieurs textbox (on prendra 3 textbox pour l'exemple).
Dans chaque textbox se trouve des quantités et j'aimerais que ces quantités soient toutes des multiples de la première quantité qui correspond à la condition initiale.

Cependant, l'utilisateur peut ne pas connaitre tous les multiples de la CI. Je voudrais donc qu'après que l'utilisateur est rentré sa quantité, qu'elle soit modifiée en un multiple de la CI au plus proche de la valeur annoncée par l'utilisateur.

Quantités	Utilisateur	après modif
CI	900	900
Q2	2000	1800
Q3	4000	3600

Pour l’évènement de chaque textbox, je pensais lancer le code du multiple le plus proche de la valeur utilisateur lorsque l'on passe au textbox suivant.

j'espère que vous allez pouvoir m'aider pour ce casse-tête ^^
Merci d'avance.
Karl

Bonjour,


tu peu faire cela avec Round..:

Code:

---

1 2 3 4 5 6

' 'Fonction arrondi au multiple le plus proche de rViniale ' Function ArrondiProche(rUtilisateur As Double, rVinitiale As Double) ArrondiProche = Round(rUtilisateur / rVinitiale, 0) * rVinitiale End Function

---

Exemple d'utilisation :

Code:

---

1 2 3 4 5 6

' Sub MonTest() MsgBox " 900 => " & ArrondiProche(900, 900) & vbCrLf & _ "1800 => " & ArrondiProche(1800, 900) & vbCrLf & _ "4000 => " & ArrondiProche(4000, 900) & vbCrLf End Sub

---

Super, c'est exactement le genre de fonction que je recherchais.
Je te remercie, à bientôt.
Karl