XL 2010 Créer Un Code VBA

[yazidioubi]

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.

 

[Hasco]

Bonjour,

j'ai posté hier un problème similaire, mais la formule était erronée.

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.

cordialement

 

[sylvanu]

Bonsoir le fil,
Ca pourrait donner ça :

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.

 

[Hasco]

Je persiste : tout ça n'est pas très respectueux de ceux qui se sont donnés du mal hier.

 

[sylvanu]

Bonsoir le fil,
Il faut que yazidioubi mette un texte de renvoi sur son post d'hier.
Disons que c'est pour le moins maladroit.

 

[yazidioubi]

je demande pardon pour les gens qui ont répondu sur ma question d'hier
car la formule que j'ai mis dans le classeur excel était erronée

 

[yazidioubi]

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

 

[sylvanu]

Essayez celle ci :

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 !

Mod, opérateur - Visual Basic

En savoir plus sur : Opérateur Mod (Visual Basic)

docs.microsoft.com

MOD, fonction - Support Microsoft

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

support.office.com

 

[sylvanu]

Et maintenant que MOD est contourné, on peut simplifier :

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

 

[sylvanu]

Et 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.

 

[yazidioubi]

Et maintenant que MOD est contourné, on peut simplifier :

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 sylvanu

 

[yazidioubi]

Et 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.

c'est juste pour atteindre la clé des compte courant bancaire

 

[sylvanu]

La macro marche ou ne marche pas ?

 

[yazidioubi]

La macro marche ou ne marche pas ?

ça marche; Merci beaucoup Monsieur

 

[sylvanu]

Une fonction avec les trois paramètres Code, Agence, N°Cpt