Salut à tous
j'ai posté hier un problème similaire, mais la formule était erronée.
je jeux transformer la formule en cellule A5, dans le classeur excel ci-joint en Code VBA.
je vous très reconnaissant pour votre collaboration.
Merci d'avance.
Comme il n'y a rien de nouveau dans celui-ci, ce n'était pas utile de re-créer une discussion à ce sujet.
Il suffisait de relancer le fil d'hier en y postant votre difficulté. Et en disant à ceux qui vous ont aidé, ce qui n'allait pas dans leurs solutions.
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
Tout du moins cela donne la même valeur pour ce qu'il y a en A1.
je te remercie)
mais ça n'a pas marché comme il faut. par exemple dans le cas ou le numéro de compte est:
6465981, je veut le résultat 32. mais le code m'as donné -65
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
Je viens d'apprendre que MOD en fonction et MOD en VBA ne sont pas les mêmes choses !
Cet article décrit la syntaxe de formule et l’utilisation de la fonction MOD, qui retourne le reste après que le nombre est divisé par diviseur. Le résultat a le même signe que le diviseur