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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lexus92

XLDnaute Nouveau
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
 
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
 
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 ...)
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
836
Retour