Capturer la valeur d'une cellule avant changement

Bonjour,

J'ai un tableau qui calcule mon objectif de chiffre d'affaire journalier en fonction de mes résultats.

Dans la colone AN j'affiche le chiffre du jour, et dans la colonne AO, la moyenne qui était calculée le jour précédent est remplacée par le chiffre du jour.

J'aimerai que la moyenne du jour précédent se copie en colonne AP et ne soit pas modifiée avec le chiffre du jour.

J'essaie d'être clair...

En AP10, j'ai fait un copier-coller de AO10, ainsi quand je vais remplir la case AN10, la case AO10 va changer, mais pas la AN10 (Cela me permettra d'analyser l'évolution de ma moyenne journalière).

Sauriez-vous remplacer ce copier-coller que je fais tous les jours avant de remplir la colonne AN?

Merci d'avance pour votre aide.

Cordialement,

Manu

Bonjour,

vous pouvez mettre en place une surveillance événementielle "Change" sur la colonne AO, ou bien seulement la cellule AO10, cela déclenchera une macro qui récupère en mémoire la nouvelle valeur de AO10, puis lancera un "Undo" pour revenir en arrière, comme cela le code pourra récupérer la valeur avant changement de AO10, la copiera en AP10, puis remettra la nouvelle valeur en AO10.

Le code :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Temp
    ' si le change à lieu dans la colonne AO ligne 6 à 36
    If Not Intersect(Target, Range("AO6:AO36")) Is Nothing Then
        ' on fige l'application
        Application.EnableEvents = False
            ' on met en mémoire la nouvelle valeur
            Temp = Target.Value
            ' on lance le UNDO pour revenir en arrière
            Application.Undo
            ' on copie en AP la valeur de AO
            Target.Offset(, 1) = Target
            ' on remet la nouvelle valeur en AO
            Target = Temp
        ' on réactive l'application
        Application.EnableEvents = True
    End If
End Sub

@ bientôt

LouReeD

Merci pour ta réponse.

Je vais essayer ta solution et je te dirais si elle fonctionne

A bientôt.

Manu.

Bonjour,

C'est parfait, ça fonctionne.

Un grand merci pour ton aide.

Manu.

Bonjour

Merci pour ce retour et remerciement !

@ bientôt

LouReeD