Quelques questions excell / VBA

[Greg]

Bonjour,

Travaillant actuellement sur un projet excel/VBA, j'aurais quelques questions à vous poser :

Voici le code affichant les resukltats de ma macro :

'summary

Sheets("Results").Select

If counter = 2 Then
Range("A3").Select
Else
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
End If

ActiveCell.FormulaR1C1 = CCY
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.Formula = "='19700'!N20"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Formula = "='37300'!K20"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-4]"

'end loop here

counter = counter + 1
CCY = CCYList.Cells(counter, 1)
Loop

Bref mon probleme est que dans le tableau affichant les resultats, ceux-ci sont tous les mêmes lorsque l'option "Calcul" --> "Mode de calcul" est sur automatique (ca marche tres bien en manuel)

Ceci est du au fait qu'en automatique, toutes mes cellules de toutes me lignes affichent = '19700'!N20" (alors que le resultat est different pour chaque ligne). Il va donc mien me chercher la valeur en N20 de la feuille 19700 mais le probleme est qu'il me la repete dans chaque ligne du tableau (donc toutes les lignes du tableau affichent la valeur de la derniere valeur dela cellule N20 de la feuille 19700).

Quelqu un pourrait il m'expliquer comment faire pour empecher ça (a part laisser le mode manuel) ?

De plus, j'aurais aimé savoir comment faire pour faire une somme des valeurs absolues d'une rangée contenant des montants positifs et negatifs ?

Voilà, un grand merci d'avance pour votre aide,

Gregory

 

[Marc]

Pour la première partie de ton problème, je ne comprends pas ce que tu cherches à faire.
_________________________________________________________
Pour la somme de l'absolu de différentes valeurs :

Tu commences pas nommer les valeurs à sommer (valeurs dans mon cas)

Si tu utilises la formule suivante, ça marche


=SOMME.SI(valeurs;">0")-SOMME.SI(valeurs;"<0")

Bonne chance

 

[Monique]

Bonjour,

Réponse hors macro : encore du SommeProd.
La somme des valeurs absolues d'une rangée contenant des montants positifs et négatifs
=SOMMEPROD(ABS(A1:A20))