Recuperer Valeur avant entree et execution

Version imprimable

31/10/2010, 17h33
laskachien

Recuperer Valeur avant entree et execution

Bonjour
Dans ma feuil VBA j ai la commande WkSheet change qui sur un OnKey RETURN traite par macro la nouvelle valeur entree dans une Cell.OK parfait
Mais,je voudrai recuperer l ancienne Val avant d entrer la nouvelle.J ai pense preceder WkShett_Change par WkShett_SelectionChange,mais cela me semble lourd,et je me mefie de SelectionChange!Merci pour votre reponse.
31/10/2010, 18h11
babaothe

salut

A moins qu'une seule cellule ou un nombre très restreint (et il te faudra alors utiliser un tableau ndynamique) des cellules de ta feuille ne soit concerné par ce que tu veux mettre en place, l'utilisation de l'évènement Worksheet_SelectionChange me parait inévitable puisque c'est le seul qui nbte permet de lire, avant de le modifier, le contenu de la cellule où tu te rends !

Bonjour,

Si la valeur est rentrée au clavier, l'ancienne valeur est inscrit en A1.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewVal, Rg As Range
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        NewVal = Target.Value
        Set Rg = ActiveCell
        .Undo
        Range("A1") = Target.Value
        Target.Value = NewVal
        Rg.Activate
        .EnableEvents = True
        .ScreenUpdating = True
        Set Rg = Nothing
    End With
End Sub

ctac

Fuseau horaire GMT +2. Il est actuellement 18h59.