evenement change

[wxc]

je travaille avec worksheet change j emploie "valprec "(valeur precedente) je sais avec une cellule mais j ai besoin d une solution pour une centaine de cellules differentes merci d avance


Public ValPrec

Private Sub Worksheet_Calculate()
Vérif
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Vérif
End Sub

Private Sub Vérif()
If VarType(Range("A1")) = VarType(ValPrec) Then _
If ValPrec = Range("A1") Then Exit Sub
MsgBox "Cellule A1 passe de " & CStr(ValPrec) & _
" vers " & CStr(Range("A1"))
ValPrec = Range("A1")
End Sub

' Dans le module de code ThisWorkbook :

Private Sub Workbook_Open()
Feuil1.ValPrec = Feuil1.Range("A1")
End Sub
merci

 

[Valérie]

Salut wxc

Faut pas Lien supprimé comme ça, tu nous imposes de lire 2 fois la même chose.

Pour ton soucis pourquoi ne pas faire une copie masquée de la feuille et tu compares autant de cellules que tu le souhaites. Si cela ne te convient pas tiens nous au courant pour que l'on cherche autre chose

@+
Valérie

 

[wxc]

desole pour la relecture. pour la solution du probleme j ai besoin d une
autre idee car pour l instant je rame merci
wxc