Autres Code VBA

job75

XLDnaute Barbatruc

• 12 Mai 2020

• #2

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+

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mai 2020

• #3

Bonjour,

VB:

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:

VB:

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.

 

Dernière édition: 12 Mai 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Mai 2020

• #4

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.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mai 2020

• #5

Salut Job75,
Belle analyse !

 

Vote positif 0 Vote négatif

Y

yazidioubi

XLDnaute Nouveau

• 13 Mai 2020

• #6

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

 

Vote positif 0 Vote négatif

Y

yazidioubi

XLDnaute Nouveau

• 13 Mai 2020

• #7

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

 

Pièces jointes

• rip.xlsx

  9.4 KB · Affichages: 4

Vote positif 0 Vote négatif