Discussion :

[dgwww]

Bonjour,
J'ai besoin pour mon développement de sauvegarder la valeur d'une cellule juste avant le changement, de sorte que si la nouvelle valeur vaut 0 par exemple, je puisse la remplacer par l'ancienne et déclencher un message d'avertissement. Je suis passer pour le moment par _change() de la Feuil, mais a la deuxième modification la sauvegarde ne ce fait pas.

Existe-t-il un moyen d'annuler une modification de cellule d'une feuil ?
Existe-t-il une fonction beforeChange() ? (Pas a ce que j'ai pu voir)

Merci par avance

[casefayere]

Bonjour,

Existe-t-il un moyen d'annuler une modification de cellule d'une feuil ?

ben...., ici

[bboy-eazy]

Bonjour,

Existe-t-il un moyen d'annuler une modification de cellule d'une feuil ?

voir du coté de

Code :

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

application.undo

Pour sauvegarder la valeur d'une cellule il y a plusieurs moyens
déclarer dans un module en public une variable qui prendra la valeur de la cellule avant changement
mettre à jour la variable dans l'évenement open du classeur ou dans l'évenement selection change de la feuille par exemple

mettre la condition sur l'évenement change de la feuille:

dans un module:

Code :

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

public VAL as STRING

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If ThisWorkbook.Worksheets("test").Cells(1, 1).Value = "b" Then ThisWorkbook.Worksheets("test").Cells(1, 1).Value = VAL
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
VAL = ThisWorkbook.Worksheets("test").Cells(1, 1).Value
End Sub

[dgwww]

Merci pour votre réponse je teste ça et je vous dit