Autres Code VBA

[yazidioubi]

Je veux transformer la formule dans le classeur excel ci-joint en code VBA?
quelqu'un peut m'aider?
merci d'avance à tous.

 

[job75]

BONJOUR yazidioubi,

En VBA vous pouvez utiliser la formule telle qu'elle est affichée dans la barre de formule.

Il suffit d'utiliser [D5].FormulaLocal = "=XXXX" pour l'entrer en D5.

A+

 

[Dudu2]

Bonjour,

MsgBox Evaluate([D5].Formula)

affiche 32.
Attention: .Formula est la formule en anglais:
=IF((97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30<97,(97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30,IF(AND(97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30>97,((97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30-97),97))

Donc:

Dim S As String
S = "=IF((97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30<97,(97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30,IF(AND(97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30>97,((97-MOD((((89*7)+(15*99999)+(3*B1))),97))+30-97),97))"
MsgBox Evaluate(S)

affiche 32.

 

[job75]

En fait le vrai problème c'est que la formule en D5 n'a pas de sens.

Si l'on définit le nom X par la formule =97-MOD((((89*7)+(15*99999)+(3*B1)));97)

la formule en D5 s'écrit =SI(X+30<97;X+30;SI(ET(X)+30>97;(X+30-97);97))

ET(X) ça ne va pas...

Salut Dudu2.

 

[Dudu2]

Salut Job75,
Belle analyse !

 

[yazidioubi]

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

 

[yazidioubi]

Voila le fichier corrigé; que je cherche toujours le code VBA;
j'ai reçu une réponse de
sylvanu (je le remercie)
mais ça n'a pas marché comme il faut. par example dans le cas ou le numero de compte est:
6465981, je veut le résultat 32. mais le code m'as donné -65