Copier la valeur d'une cellule avant qu'elle soit modifiée

[lexus92]

Bonjour à toutes et à tous,

Tout d'abord, merci une fois de plus pour toute l'aide que vous, membres de ce forum m'avez apporté.

Aujourd'hui, je suis de nouveau face à un problème.

J'aimerais copier la valeur d'une cellule avant qu'elle soit modifiée. Je m'explique:

Exemple:
A1= Somme(A2:A4)=6
Supposons je modifie une des celulles de la somme, j'obtiens A1= somme(A2:A4)=10
Ce que je souhaite, c'est qu'en A5, je puisse faire 10-6=4, soit NouveauA1 - AncienA1 et ansi de suite, si j'ai un nouveau A1=13, j'aimerais que en A5=13-10=3 et ainsi de suite.
J'ai essayer la formule décaler, mais c'est pas concluant.


Si ce n'est pas clair, n'hésitez pas à me demander.

Merci d'avance,

Alexandre

 

[mutzik]

Re : Copier la valeur d'une cellule avant qu'elle soit modifiée

bonjour,

les chiffres que tu indiques se rajoutent à la liste ou est-ce que tu modifies les nombres existants (dans ce cas, il n'y a que l'option VBA)

 

[lexus92]

Re : Copier la valeur d'une cellule avant qu'elle soit modifiée

Bonjour,

Je ne garde que les deux derniers chiffres pour faire une soustraction entre le nouveau A1 et le dernier ancien A1. Si je reprend mon exemple, j'ai modfié A1 trois fois: A1 = 6 puis A1=10 puis A1=13. Ce que je souhaites, c'est qu'en A5, j'obtienne uniquement 13-10=3. Le tout premier A1, A1=6, ne me sers plus, et ainsi de suite.

Cordialement,

Alexandre

 

[mutzik]

Re : Copier la valeur d'une cellule avant qu'elle soit modifiée

re,

voici le code à mettre dans le module de ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
[C12] = [C12] - [C10]
End If

End Sub

je te laisse essayer et adapter les cellules pour que tu comprennes le fonctionnement
( à essayer dans un classeur vide avant, peut-être ...)

 

[lexus92]

Re : Copier la valeur d'une cellule avant qu'elle soit modifiée

Bonjour,

Merci dans l'idée, c'est ça. Mais je me demandais, comment appliquée cette macro à toute la colonne Y, et non seulement C$10$.

Merci d'avance,

Cordialement,

Alexandre

 

[lexus92]

Re : Copier la valeur d'une cellule avant qu'elle soit modifiée

Peut être que tu pourrais m'aider sur ce point. En reprenant ta macro, j'aimerais faire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
[C12] = Valeur de C10 avant modification
End If

End Sub

Du coup, je pourrais Obtenir la forme suivante:

C10=10
C12=0

Si je modifie

C10=15
C12=10

Puis

C10=54
C12=15

Etc Etc

Merci beaucoup

Cordialement

Alexandre