Discussion :

[daniel200666]

Bonjour à tous

je cherche à pouvoir convertir des formules Access en formule Excel car je suis beaucoup plus à l'aise avec ce dernier logiciel; de plus j'ai l'impression que les formules Access sont en anglais...bref tout pour me plaire !!!

quelqu'un aurait-il l'amabilité de m'indiquer s'il existe de manière assez simple un logiciel ou un site en ligne pour les convertir
sinon, s'il existe une âme bien charitable sur ce forum, je mets les formules en ligne ci après
Merci beaucoup et par avance à mon ou mes sauveurs !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
IIF(TBL_FLUX_LEAS_RC.CODE_FLUX='FG_GEST',TBL_FLUX_LEAS_RC.[MT_FLUX] * val(NPM),
(((TBL_FLUX_LEAS_RC.[MT_FLUX]/ ((1+[TX_REFI_NOM]/ ([NPA]*100)))^ (iif(not [DT_FLUX_1] is null and not [DATE_MEF] is null,Jours360([DATE_MEF],[DT_FLUX_1]),0)/360*[NPA]))*(1-(((1+[TX_REFI_NOM]/ 
([NPA]*100)))^-iif(TBL_FLUX_LEAS_RC.CODE_FLUX='LOY_RELOC_NUM_FLUX',NZ(NB_RELC,0),iif(TBL_FLUX_LEAS_RC.CODE_FLUX like 'FG_*',val(NZ(NB_RELC,0))+val(NPM),IIF(TBL_FLUX_LEAS_RC.CODE_FLUX='LOYER',([NPM])-1,[NPM]))))))/ ([TX_REFI_NOM]/ ([NPA]*100)))*(1+ ([TX_REFI_NOM]/([NPA]*100))))
 
((([MT_FLUX]/ ((1+[TX_PREFI]/ ([NPA]*100)))^ (iif(not [DT_FLUX] is null and not [DATE_MEF] is null,Jours360( [DATE_MEF],[DT_FLUX]),0)/360*[NPA]))*(1-(((1+[TX_PREFI]/ ([NPA]*100)))^-1)))/ ([TX_PREFI]/ ([NPA]*100)))*(1+ ([TX_PREFI]/([NPA]*100)))

[EricDgn]

Bonjour,

Ceci devrait vous permettre de faire la "traduction":

IIF(x,y,z) correspond à SI(x;y;z)

NZ(x,0) ou NZ(x,"") dans le cas où la valeur x est manquante (Null), affecte la valeur 0 (nombre) ou "" (chaine texte vide). A remplacer par SI(ESTNA(x);0;x) ou SI(ESTNA(x);"";x), ou encore SI(ESTVIDE(x);0;x) ou SI(ESTVIDE(x);"";x)

VAL(x) convertit une valeur texte (string) en nombre, soit CNUM(x)

NOT correspond à NON

x is null correspond à ESTNA(x) ou ESTVIDE(x)

Bon amusement!

[User]

Bonjour,

Pour la fonction Jours360, il vous faut référencer "Microsoft Excel XX.X Object Library" sous Access.

Ensuite créer une fonction VBA personnalisée dans un module standard, cette fonction va appeller la fonction Excel, car ce type de fonction n'est pas gérée sous Access :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function NbJours360(DateDebut As Date, DateFin As Date)
    NbJours360 = WorksheetFunction.Days360(DateDebut, DateFin, 0)
End Function

Voir cette discussion :

https://www.developpez.net/forums/d5...tion-jours360/