evenement change

W

wxc

Guest
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
 
V

Valérie

Guest
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
 

Discussions similaires

Réponses
3
Affichages
173

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon