Récupérer valeur d'une cellule avant modification

Bonjour à toutes et à tous,

j'ai essayé de trouver une solution sur ec forum, mais malheureusement en vain.
Voilà, j'ai un fichier EXCEL (cf PJ) dans lequel je voudrais suivre des OFFRES/COMMANDES. Chaque offre est découpée en plusieurs sous-prix (AVP, PRO, ...). Nos travaux s'étalent sur plusieurs mois voire plusieurs années.
L'idée est de noter dans chaque colonne "A FACTURER" (repérées en jaune exceptionnellement), le montant que je souhaite facturer. Exemple mois M sur N° d'affaire 17-089 (cf PJ, onglet "Avancement Affaires"), je veux facturer 5000 € en "AVP" (donc en T6 je note 5000).
Le mois suivant, je vais encore facturer sur ce poste (T6) mais là que 1000 €, donc je remplace la valeur par 1000, ce qui me fait un cumulé facturé de 5000+1000 soit 6000 €.
Et donc mon problème est comment récupérer, pour chaque colonne jaune, le montant à facturer (potentiellement sur une autre feuille), les répertorier et les additionner au fur et à mesure que le chantier évolue.

Je ne sais pas si j'ai été clair, hésitez pas à me poser des questions, sachant que je suis novice de chez novice en VBA.

Merci d'avance, et encore merci pour tout ce que vous faites.
Pièce jointe 614258
David

Bonjour,

En bref, vous voudriez conserver un historique des montants facturés dans une feuille et avoir les montants totaux actualisés dans le tableau Avancement.

Normal qu'il ait 5 lignes avec le même n° d'offre (21-082), même n° CDE et des montants différents?

Cordialement.

En fait, le problème est que mon client "découpe" parfois 1 commande en plusieurs lignes comptables pour simplifier la vie à leur service, ce qui ne simplifie pas la mienne, mais le client est roi :D

Et oui, sur le fond, ça revient à avoir un historique.

Vous pensez que c'est faisable ? Sinon, je pensais à quelque chose de plus simple (éventuellement), à chaque ouverture du document, une macro s'exécute en arrière plan (donc avant modification) pour me récupérer l'ensemble des valeurs, comme ça j'ai l'ancienne + la nouvelle que je saisie si besoin.

Qu'en pensez-vous ?

8O8O

Bonjour
je ne sais pas si j'ai compris la demande mais pourquoi ne pas penser Excel et sans VBA
je crois une feuille servira comme base de données (pour le saisie) avec les onze premiers colonnes
puis une douzième colonne nommée STATUT pour saisir REVUE DE CONCEPTION, AVP, PRO....ACT, VISA ...........
et éviter toutes ces colonnes
puis insérer un tableau dynamique croisé avec des segments et des filtres

Bonjour,

Une piste: avoir une feuille "Histo" où l'on enregistre tous les changements effectués. Cela étant fait, on peut utiliser un filtre pour retrouver ce qui s'est passé au niveau d'une commande particulière. Ce n'est pas très pratique, c'est plutôt pour retrouver l'origine d'une erreur!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Worksheet_Change(ByVal Target As Range) Dim vSaisie As Variant, r As Range Debug.Print "Worksheet_Change", Target; "" If Target.Count > 1 Or Target.Row < 4 Then Exit Sub '--- hors zone d'application Application.EnableEvents = False vSaisie = Target Application.Undo '==> Target = ancienne valeur, celle avant la saisie If Target = vSaisie Then '--- pas de changement --- ne rien faire Else '--- enregistrer dans Histo Set r = Worksheets("Histo").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) '--- cellule sous la liste r = Now r.Offset(0, 1) = Range("A" & Target.Row) '--- Code XLS r.Offset(0, 2) = Target.Column '--- n° colonne de la cellule modifiée r.Offset(0, 3) = Target '--- valeur avant modification r.Offset(0, 4) = vSaisie '--- valeur après modification End If Target = vSaisie '--- réinscrit la dernière valeur saisie Application.EnableEvents = True Target.Offset(0, 1).Select End Sub

---

Cordialement.