Discussion :

[Edouard7522]

Bonjour,

J'ai developpé (ou je suis en train de développé) un fichier qui a l'aide d'une macro va récupérer les données qui m'intéresse dand un autre fichier excel. J'aimerais ajouter dans le fichier qui importe une cellule additionnant par exemple la cellule B12 à elle même... c'est à dire que à chaque fois que je déclanche ma macro ma cellule additionne à chaque déclanchement la nouvelle valeur de la cellule B12 à toutes les anciennes... Je ne sais pas si cela est faisable sur Excel.

Merci d'avance pour vos réponses, et n'hésitez pas à me demander des précisions si je n'ai pas été clair.

Edouard

[Menhir]

ma cellule additionne à chaque déclanchement la nouvelle valeur de la cellule B12 à toutes les anciennes...

J'ai du mal à comprendre ce que tu veux dire par "nouvelle valeur" et "toutes les anciennes".
Si tu expliquais exactement ce que tu mets en B12 et comment tu le renseignes, ça pourrait peut-être aider.

[Edouard7522]

Je vais essayer de donner un exemple.
Je déclanche ma macro, et la valeur 27 apparait dans la cellule B12.
Le lendemain, je délanche ma macro une nouvelle fois, et la valeur 65 apparait dans cette même cellule B12, remplaçant la valeur 27 du jours précédant.
Le jours suivant je déclanche encore cette macro,et cette fois la valeur 36 apparait toujours dans cette même cellule remplaçant cette fois le 65.
etc etc tous les jours...
Je souhaiterais avoir dans la cellule B13 par exemple, une formule qui additionnerait le 27 au 65 puis au 36 etc etc. En gros, faire la somme de toutes les valeurs qui passent par B12.

[Marc-L]

Bonjour,

dans le module de la feuille de calculs, utiliser l'évènement Worksheet_Change.
Si l'adresse de Target correspond à la cellule B12, cumuler alors dans B13 …

Les évènements dans la feuille de calcul Excel …

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Menhir]

Ou bien, dans ta macro, juste après la ligne qui place en B12 la valeur que tu souhaites, tu mets la ligne :

Code :

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

Range("B13").Value = Range("B13") + Range("B12")

[Marc-L]

Effectivement si les modifications manuelles ne sont pas à prendre en compte, c'est mieux !

Du coup comme c'est son code, c'est tellement simple pourquoi poser alors la question ?



_____________________________________________________________________________________________________
Heureux l'étudiant qui, comme la rivière, suit son cours sans quitter son lit …

[Menhir]

Du coup comme c'est son code, c'est tellement simple pourquoi poser alors la question ?

Parfois, quand on est trop plongé dans son problème, on peut manquer de recul pour voir des choses évidentes.

Mais, après tout, ce n'est peut-être pas lui le concepteur du code malgré ce que laisse supposer le premier message.

[Edouard7522]

Oui en fait c'était très simple je n'avais même pas pensé à faire le calcul proposé par menhir eheh. Par contre il faut activer le calcul itératif sinon ça ne marche pas. Merci à tous

[Menhir]

Par contre il faut activer le calcul itératif sinon ça ne marche pas.

Je ne vois pas pourquoi.
Ce serait nécessaire si la formule était dans une cellule.
Etant donné que l'opération est dans une macro, ce n'est pas utile. Ca marche très bien sans.

[Edouard7522]

Ah ok je l'ai testé dans une cellule parce que je n'aurais peut etre pas besoin de l'inclure dans ma macro. Merci de cette précison et pour tes réponses c'est vraiment sympa de recevoir de l'aide aussi rapidement. Bonne journée

[Menhir]

Ah ok je l'ai testé dans une cellule

Pas sûr que ce soit une bonne idée.

parce que je n'aurais peut etre pas besoin de l'inclure dans ma macro

Puisqu'elle existe, autant s'en servir.
C'est la solution la plus simple.

[Edouard7522]

Je reviens sur cette discussion afin d'avoir un petite précision... Ma formule est la suivant:
Sheets("DATA").Select
Range("H1").Value = Range("H1") + Sheets("Import").Range("J2") + Sheets("Import").Range("J89")

Maintenant j'aimerais faire la même chose sur plein de cellules qui se suivent... Exemple:

Sheets("DATA").Select
Range("H1").Value = Range("H1") + Sheets("Import").Range("J2") + Sheets("Import").Range("J89")
Sheets("DATA").Select
Range("H2").Value = Range("H2") + Sheets("Import").Range("J3") + Sheets("Import").Range("J90")
Sheets("DATA").Select
Range("H3").Value = Range("H3") + Sheets("Import").Range("J4") + Sheets("Import").Range("J91")
etc etc

Je suppose qu'il y a possibilité d'écrire une formule qui signifierais ceci sans avoir à écrire toutes les lignes une par une... ça m'aiderais beaucoup

Merci de votre aide

Edouard

[Menhir]

Regarde dans l'aide VBA d'Excel les boucles "For to".

Je te conseille aussi de remplacer les "Range" par des "Cells". C'est plus pratique pour mettre des variables (même si pour les lignes variables, il y a quand même une solution avec les Range).

[Edouard7522]

J'ai essayé de comprendre le for to et de remplacer les "range" par "cells" mais j'ai du faire des erreurs ça ne fonctionne pas... La macro s'execute sans lancer le mode débogage mais rien ne se passe...Voila ma formule:

For i = Sheets("DATA").Cells(1, 8).Value = Cells(1, 8) + Sheets("Import").Cells(2, 10) + Sheets("Import").Cells(89, 10) To Sheets("DATA").Cells(3, 8).Value = Cells(3, 8) + Sheets("Import").Cells(4, 10) + Sheets("Import").Cells(91, 10)
Next