Discussion :

[seiryujay]

Bonjour,

Existe-t-il un évènement déclenché juste avant la modification d'une cellule?
Ce serait pour récupérer la valeur de la cellule quand on passe en mode édition.

J'ai pensé au SelectionChange, mais ce n'est pas vraiment ça (et si on modifie 2 fois de suite la même cellule, la sélection n'a pas changé entre temps, donc ça ne sauvegardera pas la valeur il me semble).

J'utilise le Worksheet_Change() mais ça me donne la valeur une fois la modification réalisée et moi je veux celle avant la modif.

Si quelqu'un a une idée, ça me dépannerai.
Merci d'avance!

[dadavyvy]

Et en combinant les 2 ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private rAddr As Variant
Private rVal As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.AddressLocal = rAddr Then
        MsgBox "Avant changement : " & rVal & vbCrLf & "Apres changement : " & Target.Value
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    rAddr = Target.AddressLocal(True, True)
    rVal = Target.Value
End Sub

[seiryujay]

Le problème est que si l'utilisateur :
1) sélectionne la case à modifier
2) modifie son contenu
3) remodifie son contenu

On ne stockera pas la valeur intermédiaire comme il faut.
C'était pour pouvoir remplacer la 1ère valeur par la seconde dans toute la feuille.
Mais c'est bon, je n'ai plus besoin de cette méthode : on est parti sur un autre fonctionnement.

Merci quand même.

[dadavyvy]

Autant pour moi, il manquait une ligne :

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
Private rAddr As Variant
Private rVal As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.AddressLocal = rAddr Then
        MsgBox "Avant changement : " & rVal & vbCrLf & "Apres changement : " & Target.Value
        rVal = Target.Value
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    rAddr = Target.AddressLocal(True, True)
    rVal = Target.Value
End Sub

[alsimbad]

c'est pas mal ton code, je cherchais ça il n'y a pas longtemps, pour déclencher une macro seulementsur le changement d'une seule cellule. je n'avais pas eu de réponse satisfaisante. merci