Discussion :

[kaglaborn]

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

[SfJ5Rpw8]

Bonjour,


tu peu faire cela avec Round..:

Code :

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

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 :

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

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

[kaglaborn]

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