Discussion :

[laskachien]

Bonjour
j utilise

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

pour entrer une val et la macro s execute et enregistre cette val.Mais je voudrai recuperer l ancienne avant de taper la nouvelle qui efface l ancienne.On ne peut agir sur la sub ci dessus car elle ne se declanche qu apres un Return cad oldval effacee!!
Autrement dit il me faudrait
une sub qui recupere oldval l ors du choix de la cell
une sub qui inscrit newval sur un Return dans cette cell
Merci

[Theze]

Bonsoir,

Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
'à typer si toujours le même sinon, laisser en Variant
'peu être mis dans un module standard ou laisser dans le
'module de la feuille en Public et l'appeler de cette façon :
'MsgBox Feuil1.AncienneValeur
Public AncienneValeur
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("A1")) Is Nothing Then
 
        Application.EnableEvents = False
 
        AncienneValeur = Target.Value
        Target.Value = 10 'nouvelle valeur
 
        Application.EnableEvents = True
 
    End If
 
End Sub

Hervé.