Affecter une condition à un changement de valeur

Tungstene

XLDnaute Occasionnel
Salut,

Existe-t-il pour une macro quelquechose qui me permette d'affecter une condition à un changement de valeur.

Je m'explique, l'idée étant :

If Range ('B1').value Change from 'A' to 'B' then

condition....

End if

Merci
 

CBernardT

XLDnaute Barbatruc
Bonjour Tungstene,

Peut-être une macro dans ce style, à mettre dans le module de feuille

Option Explicit
Dim PremVal As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('B1')) Is Nothing Then
If PremVal = 'A' And Range('B1') = 'B' Then
'Mettre ici la macro à exécuter
PremVal = Range('B1')
End If
End Sub

Cordialement

Bernard
 

Discussions similaires

Statistiques des forums

Discussions
312 814
Messages
2 092 340
Membres
105 374
dernier inscrit
kjk