Programmation sur Excel grâce à VBA

[Marchel]

Bonjour,
Je suis un débutant confirmé sur Excel. Je tente de mettre en place une petite application de compta.
Mon objectif est de calculer le Résultat comptable d'une société grâce aux variables suivantes: Résultat Comptable (RC), Résultat d'Exploitation (RE), Résultat Financier (RF) et résultat Hors Activités Ordinaires (RHAO).
Je suis bloqué car il faudra que je tienne compte du fait que ces résultats ne seront pas toujours positifs et que par rapport à leur solde (débiteur ou créditeur) il faudra que le logiciel comprenne qu'il s'agit soit d'une addition soit d'une soustraction.
Je vous serai gré de bien vouloir m'apporter une aide.
Merci d'avance.

 

[wilfried]

Salut,

Il te "suffit" de faire un test numerique exemple

If RC>0 then
somme
elseif RC<0 then
soustraction
end if

et idem pour tes trois autre paramètre,

Je voudrais bien t'aider plus mais moi et la compta!!!!!

J'y pige kedal!!!!

Si par exemple tu veux RF=RC-RE su l'insert dans la boucle If..then end if

J'y pense il faut avoir déclarer tes variable en type mumérique

Dim RE as variant
Dim RE as integer
Dim RE as long
Dim RE as decimal

A+
Wilfried

 

[Marchel]

Je vais être un peu plus explicite:

Il y a 4 variables RC, RF, RE et RHAO;

RC est obtenu grâce aux trois autres (RE, RF et RHAO);

On peut avoir plusieurs cas (j'ai compté huit: RE, RF,RHAO > 0; RE < 0,RF et RHAO > 0; RE ,RF < 0 et RHAO > 0...)

Si RE,RF et RHAO>0 alors RC= somme (RE,RF?RHAO);

Si RE<0, RF et RHAO>0 alors RC=(RF+RHAO)-RE;
etc.
Comment puis-je traduire tout ça en VBA, s'il vous plaît...
Merci d'avance pour toute votre disponibilité.

 

[dg]

bonjour,


il suffit de laisser le signe (-)

a + -b = a-b

@+

 

[Marchel]

Bonjour,
Merci les gras, je crois que j'ai trouvé mais c'est un peu confus dans ma tête
A +

 

[Marchel]

Là, je suis compètement perdu!

J'ai opté pour la création d'une fonction dont voici la teneur:

Public Function Essai(RE, RHAO, RF As Integer)
Dim RC As Integer
If RE > 0 And RF > 0 And RHAO > 0 Then
RC = RE + RF + RHAO

ElseIf RE < 0 And RF > 0 And RHAO > 0 Then
RC = (RF + RHAO) - RE

ElseIf RE < 0 And RF < 0 And RHAO < 0 Then
RC = -(RE + RF + RHAO)

ElseIf RE < 0 And RF < 0 And RHAO > 0 Then
RC = RHAO - (RE + RF)

ElseIf RF < 0 And RE > 0 And RHAO > 0 Then
RC = (RE + RHAO) - RF

ElseIf RHAO < 0 And RE > 0 And RF > 0 Then
RC = (RE + RF) - RHAO

ElseIf RHAO < 0 And RE > 0 And RF < 0 Then
RC = RE - (RHAO + RF)

ElseIf RHAO < 0 And RE > 0 And RF > 0 Then
RC = RF - (RE + RHAO)

End If
Essai = RC
End Function

Problème: Je ne sais pas comment l'associer à mon fichier Excel

 

[Michel_M]

Salut Marchel, dg, wilfried,

J'avoue ne pas comprendre la difficulté

pour moi:

Résultat exercice= résultat exploitation+ résultat financier + résultat exceptionnel (ou RHAO)

chaque résultat peut être positif ou négatif (comme souvent le résultat fi en phase d'investissement du fait des intérêts sur empriunts) et non en valeur absolue et comme "+ multiplié par moins donne moins", le Résultat de l'exercice tiendra compte du signe de chaque résultat

Mais je dois me planter...

A+

Michel