j'ai posté hier un problème similaire, mais la formule était erronée.
Function Calcul(N)
If ((97 - (1500608 + 3 * N)) Mod 97) + 30 > 97 Then
V = ((97 - (1500608 + 3 * N)) Mod 97) + 30 - 97
Else
V = ((97 - (1500608 + 3 * N)) Mod 97) + 30
End If
Calcul = Format(V, "00")
End Function
Function Calcul(N)
A = (97 - (89 * 7 + 15 * 99999 + 3 * N))
B = (A - 97 * Int(A / 97)) + 30
If B > 97 Then
V = B - 97
Else
V = B
End If
Calcul = Format(V, "00")
End Function
Function Calcul(N)
A = -1500705 - 3 * N
V = (A - 97 * Int(A / 97)) + 30
If V > 97 Then
V = V - 97
End If
Calcul = Format(V, "00")
End Function
Merci beaucoup sylvanuEt maintenant que MOD est contourné, on peut simplifier :
Code:Function Calcul(N) A = -1500705 - 3 * N V = (A - 97 * Int(A / 97)) + 30 If V > 97 Then V = V - 97 End If Calcul = Format(V, "00") End Function
c'est juste pour atteindre la clé des compte courant bancaireEt si vous nous donniez la formule de calcul et le but à atteindre , ce ne serait il pas plus simple que de jouer au chat et à la souris.
ça marche; Merci beaucoup MonsieurLa macro marche ou ne marche pas ?