Discussion :

[Carabi]

Bien le bonjour amis du forum

Je dois actuellement effectuer une opération très simple consistant en une différence et un modulo. La différence, pas de problème, vous vous en doutez. Le modulo, par contre, bah ca pique un peu

Je m'explique. Je voudrais faire quelques "Modulo 0.25", ce qui me fait une division par zéro...Bizarre ! (après maintes recherches sur mon ami Google, c'est normal). Comment puis-je faire pour m'en sortir de mes opérations? Une solution à ce problème?

Mon code, dans les grandes lignes :

Code :

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

1
2
 
valeur1 = valeur2 - valeur2 Mod 0.25

C'est simple hein?!

Merci d'avance pour votre aide

[wilfried_42]

le modulo est le reste d'une division

5 mod 2 donne 1
5 - (int(5/2)*2) donne 1

si ca peut t'aider

[pgz]

Bonjour.

Les opérations MOD et \ (division entière) fonctionnent avec des entiers (types octet, entier, entier long). Sinon les opérateurs sont arrondis. Et l'arrondi de 0.25 c'est zéro.

La solution dépend du contexte de ton pb, mais il faudra transformer les variables en entiers.

PGZ

[Carabi]

Merci à vous deux.

Je ne sais pas trop comment faire pour transformer mes variables en entier, sachant qu'il faut que je garde ma valeur de 0.25.

Le modulo d'un nombre par un autre commençant pas 0,... a quand même été prévue dans VBA non? :p

[wilfried_42]

re:

le probleme est qu'une division par un nombre inferieur à zero est en realité une multiplication
100 / 0,25 = 100 * 4 = 400
un modulo (100 , 400) = 100

il est plus souhaitable que tu nous dises ce que tu cherches à faire dans l'ensemble parceque on n'arrive pas à voir où tu veux en venir

[pgz]

Le modulo d'un nombre par un autre commençant pas 0,... a quand même été prévue dans VBA non? :p

Je crois que non.

Quels sont les données de ton pb? C'est toujours 0,25? et Valeur2 est de quel type? Valeur2 peut avoir des décimales, une virgule flottante? Il faut préciser le contexte du pb pour trouver une solution...


PGZ

[Carabi]

Dans mon premier jeu de test, par exemple, le code suivant est exécuté

Code :

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

feuilleDevis.Cells(25, 5) = feuilleChiffrage.Cells(10, 4) - feuilleChiffrage.Cells(10, 4) Mod 0.25

avec feuilleChiffrage.Cells(10, 4) ayant pour valeur 32,64.

Mon problème réel : prendre le nombre étant le multiple de 0.25 le plus proche de ma valeur2, et y étant aussi inférieur ou égal. Vous voyez le souci?

[wilfried_42]

re:

tu n'as pas lu ma reponse ?
=int(32.64/0.25)*0.25 te donnera 32.50

[pgz]

Carabi,

Apparemment tu ne comprends pas ce que je te demande. Alors je fais des hypothèses, tu adapteras à ton pb.
Soit à calculer A Mod B avec
B = 0.25
A = Nombre avec au plus 2 décimales

A Mod B = (100 * A Mod 25)/100

Ce qui donne

Code :

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

feuilleDevis.Cells(25, 5) = feuilleChiffrage.Cells(10, 4) - (100 * feuilleChiffrage.Cells(10, 4) Mod 25)/100

PGZ

[Carabi]

Bon, après réflexion, vos deux propositions sont sensiblement similaires. Je me suis servi des deux, et ça marche parfaitement. Alors un grand merci à vous et désolé pour mon manque de clarté, j'ai fait de mon mieux pourtant

Problème résolu !

++ et merci encore

[pgz]

Carabi,

Par ailleurs
A - A Mod B = Fix(A/B)*B
Expression que tu peux utiliser cette fois avec tout type de variable et qui donne

Code :

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

feuilleDevis.Cells(25, 5) = Fix(feuilleChiffrage.Cells(10, 4) / 0.25)* 0.25

Essaie, pour voir.

PGZ

[Carabi]

J'ai l'honneur de te dire que ça marche parfaitement aussi. Concernant cette méthode, elle ne diffère que d'un mot de celle de wilfried_42, à savoir que lui préfère un "Int" à ton "Fix"

Bravo à vous deux pour votre expertise en tout cas, et bravo à toi PGZ pour ton nouveau grade !