Suite arithmétique de différence sous VBA???
Bonjour à tous,
je souhaite créer une "suite arithmétique de différence"
Je m'explique:
1/01 2/01 3/01 4/01
325 340 305 190
Je souhaite faire la différence 340-325. Stocker ce résultat X. Faire la différence 190-305. Ajouter le nouveau résultat Y à X. et ainsi de suite...
Pour ce petit tableau, le résultat serait : (340-325)+(190-305) = -100.
Je voudrais obtenir la somme des différences tous les 6 mois pour une longue durée...
Je suis débutant en VBA..
Merci d'avance pour votre précieuse aide!
Bonjour et bienvenue sur le forum
Tu devrais joindre ton fichier avec les valeurs sur 6 mois...
Bye !
Oups, c'est corrigé!
Bonjour gmb!
C'est exactement ce que je cherchais : merci beaucoup!!
J'ai une question à te poser: Si je souhaitais faire une macro semblable sauf qu'au lieu de faire la somme des B-A je voulais faire la somme des (B-A)/A, c'est-à-dire des pourcentages d'évolution. Il faudrait que je change simplement ce passage dans la macro:
For j = 2 To UBound(tabloV, 2) Step 2
v = v + tabloV(i, j) - tabloV(i, j - 1)
tabloR(i - 1, 0) = v
en
For j = 2 To UBound(tabloV, 2) Step 2
v = v + (tabloV(i, j) - tabloV(i, j - 1))/tabloV(i, j - 1)
tabloR(i - 1, 0) = v
?
Par ailleurs, si je voulais compiler les résultats pour les 6 derniers mois, c'est-à-dire du 1er janvier au 1er juin dans la colonne A puis du 1er février au 1er juillet dans la colonne B et ainsi de suite. vaut-il mieux que je passe par une macro ou que j'utilise des formules?
Je te remercie encore pour ton aide précieuse!
senordondiego a écrit :. Il faudrait que je change simplement ce passage dans la macro ....:
En principe oui. Mais....fais le test sur des périodes facilement vérifiables.
si je voulais compiler les résultats ...
Moi et les formules, ce n'est pas le grand amour : elles me boudent ! Va savoir pourquoi !
En revanche, avec cette nouvelle adaptation, tu vas pouvoir faire autant de compilation que tu veux, elles se mettront à la suite.
OK ?
Bye !
La nouvelle macro est pile ce que je cherchais gmb
Je vais compiler les résultats pour 2000 à 2016 et créer un classeur récapitulatif qui fera référence à chaque résultat pour faire plus propre
Bonne après-midi
Re bonjour à tous,
Je cherche un moyen de montrer en bloc (sans bouton) les résultats de la macro précédente pour chaque mois. Une colonne A pour les résultats de janvier, une colonne B pour les résultats de févriers etc.
Je pensais à cette macro:
Sub Calcul()
Dim I As Integer, C As Range, Ligne As Long, J As Long
Ligne = Cells(Rows.Count, 1).End(xlUp).Row
For J = 7 To Ligne
For I = 3 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
If Month(Cells(5, I)) = 1 Then
Cells(J, "IS") = Cells(J, "IS") + Cells(J, I) - Cells(J, I - 1)
Else
Cells(J, "IT") = Cells(J, "IT") + Cells(J, I) - Cells(J, I - 1)
End If
Next I
Next J
End Sub
Ca me permet d'afficher les résultats de janvier en colonne IS et le reste en colonne IT. L'une des solutions est d'enchaîner les IF, THEN jusqu'à décembre mais je cherche un autre moyen plus pratique pour le faire.. Redondance, boucle, etc. Je patauge un peu.
D'autre part, si je souhaitais montrer les résultats de janvier 2000 et de janvier 2001 séparément quelle doit être ma syntaxe?
Bon weekend à tous!
Merci gmb
La macro elle fonctionne parfaitement pour tous mes tests!
Bonne journée.