Affecter une condition à un changement de valeur

[Tungstene]

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]

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

 

[jeromegmc]

...


...

Message édité par: jeromegmc, à: 06/10/2005 08:23