macro : calculs pondérés

[regis]

bonjour

je viens vers vous pour un problème qui me tracasse depuis qq temps.

on va dire que dans la feuille 2, j'ai des valeurs numériques dans deux colonnes (disons B et C) et le nb de ces valeurs est variable.

J'aimerais pouvoir calculer la différence entre la dernière valeur de la colonne B à la valeur précédente et ainsi de suite jusqu'à la première valeur en B1.
Idem pour la colonne C.

Sachant que B1>B2>B3>...dernière val
idem pour C

Enfin cerise sur le gâteau, je voudrais copier ces valeurs disons à partir de e1.

Si quelqu'un a une idée pour me mettre sur la voie et me donner une piste ce serait super

merci par avance
Régis

 

[porcinet82]

Salut Regis,

Bon je commencerai par te dire que ca ne sert a RIEN de poster plusieurs fois le meme post!!! Le premier se trouve a l'adresse suivante : Lien supprimé

Bon comme je ne suis pas rencunier, je te propose une petite solution, enfin si j'ai bien compris ton problème. Par contre je te laisse quand meme le soin de l'adapter pour plusieur colonnes, puisque là, la macro ne fonctionne que pour la colonne B.

Sub calcul()
Dim i As Integer, j As Integer, num As Integer

j = 1
Application.Goto Sheets('feuil1').Range('B1')
Selection.End(xlDown).Select
lig = ActiveCell.Row
num = lig
For i = lig To 2 Step -1
    Cells(j, 5).Value = (Cells(num, 2).Value - Cells(num - 1, 2).Value)
    j = j + 1
    num = num - 1
Next i
End Sub

Bon courage pour la suite

@+

 

[regis]

Bon damned je suis découvert. En tout cas cela prouve le sérieux des membres de ce forum et je te remercie pour ta réponse car tu m'enlève une sérieuse épine du pied

Régis