Discussion :

[deaqu1]

Bonsoir,
Petit souci VBA Excel
Un petit souci je n'arrive pas à convertir en VBA la fonction precedente:

Code :

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

=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1

Je trouve à chaque fois le mauvais résultat, je craque pourtant ca doit pas etre...
Merci

[SilkyRoad]

bonsoir

As tu essayé d'utiliser la méthode Evaluate?

Code :

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

MsgBox Application.Evaluate("INT(MOD(INT((A1-2)/7)+0.6,52+5/28))+1")

michel

[alsimbad]

hello
en fait, tu dois utiliser formulalocal

Code :

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

Cells(2, 2).FormulaLocal = "=ENT(MOD(ENT((A1-2)/7)+0.6;52+5/28))+1"

et fait atention au séparateur du 0.6 ou 0,6. sur ma bacane, j'ai du le changer, mais la ça marche
voila voila

[SfJ5Rpw8]

Je crois avoir cerné le problème à deaqu1 .. il sagit de la fonction MOD d'excel qui ne donne pas le même résultat que l'opérateur Mod de VBA ...

le code à SilkyRoad en utilisant la méthode Evaluate, utilise la fonction MOD d'excel..et permet de contourner le problème..


vu dans l'aide en ligne VBA :

L'opérateur modulo, ou reste, divise l'argument number1 par l'argument number2 (en arrondissant les nombres à virgules flottantes à des nombres entiers) et ne retourne que le reste dans l'argument result. Par exemple, dans l'expression ci-dessous, A (argument result) est égal à 5.

donc en VBA avec l'opérateur modulo les arguments sont "arrondi" ... d'ou ..
par exemple

Code :

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

 (634.6 Mod 52)

donne 11
comme

Code :

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

 (635 Mod 52)

ce qui n'est pas le cas avec la fonction MOD d'excel qui renvoie 10.6 pour

Code :

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

=Mod(624.6;52)

et 11 avec 635.....



une solution alternative à celle à SilkyRoad .. et d'utiliser "l'équivalent" à la fonction MOD d'excel .. que l'on trouve dans l'aide en ligne :

La fonction MOD peut aussi s'exprimer en utilisant la fonction ENT :
MOD(n, d) = n - d*INT(n/d)

[deaqu1]

J'ai réussi à m'en sortir de la façon suivante...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sheets("Feuil1").Select
 
For j = 1 To 7
 
    Valeur = ActiveSheet.Range("C" & j).Value
 
    n1 = Int((Valeur - 2) / 7) + 0.6
    n2 = 52 + 5 / 28
    n3 = Int(n1 - n2 * Int(n1 / n2)) + 1
    ActiveSheet.Range("f" & j).Value = n3
 
Next

C'est barbare, je sais...
A la rigueur si quelqu'un aune astuce pour tout compresser, c'est pas de refus.

PS: Merci Bbil pour tes petits cours...

[unparia]

Bonjour

Un petit souci je n'arrive pas à convertir en VBA la fonction precedente:
Code : Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1

J'ai réussi à m'en sortir de la façon suivante...

Sheets("Feuil1").Select

For j = 1 To 7

Valeur = ActiveSheet.Range("C" & j).Value

n1 = Int((Valeur - 2) / 7) + 0.6
n2 = 52 + 5 / 28
n3 = Int(n1 - n2 * Int(n1 / n2)) + 1
ActiveSheet.Range("f" & j).Value = n3

Next

C'est barbare, je sais...
A la rigueur si quelqu'un aune astuce pour tout compresser, c'est pas de refus.

-->>

Code :

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

MsgBox Int((Range("A1").Value - 2) / 7 + 0.6) Mod (52 + (5 / 28) + 1)

En précisant que cela n'est pas une "astuce"