Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("B17").Address Then Exit Sub 'ta macro End Sub
Cordialement. Daniel "Gerard" a écrit dans le message de news: 433af08f$0$17210$
Bonsoir je voudrai executer une macro, uniquement si la cellule B17 change, merci beaucoup gege
LSteph
Bonjour gg, clic droit onget de la feuille v code
Coller ceci et fermer vbe:
'*** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, [B17]) If Not iSect Is Nothing Then MsgBox "Ma cellule préférée a été modifiée" End If End Sub '***
Mais attention > je voudrai executer une macro si ta macro appelle elle même un changement dans la feuille
'*** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, [B17]) If Not iSect Is Nothing Then Application.enableeventsúlse Call mamacro Application.enableevents=true
End If End Sub '***
'lSteph
"Gerard" a écrit dans le message de news: 433af08f$0$17210$
Bonsoir je voudrai executer une macro, uniquement si la cellule B17 change, merci beaucoup gege
Bonjour gg,
clic droit onget de la feuille
v code
Coller ceci et fermer vbe:
'***
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, [B17])
If Not iSect Is Nothing Then
MsgBox "Ma cellule préférée a été modifiée"
End If
End Sub
'***
Mais attention > je voudrai executer une macro
si ta macro appelle elle même un changement dans la feuille
'***
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, [B17])
If Not iSect Is Nothing Then
Application.enableeventsúlse
Call mamacro
Application.enableevents=true
End If
End Sub
'***
'lSteph
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
433af08f$0$17210$8fcfb975@news.wanadoo.fr...
Bonsoir
je voudrai executer une macro, uniquement si la cellule B17 change,
merci beaucoup
gege
'*** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, [B17]) If Not iSect Is Nothing Then MsgBox "Ma cellule préférée a été modifiée" End If End Sub '***
Mais attention > je voudrai executer une macro si ta macro appelle elle même un changement dans la feuille
'*** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, [B17]) If Not iSect Is Nothing Then Application.enableeventsúlse Call mamacro Application.enableevents=true
End If End Sub '***
'lSteph
"Gerard" a écrit dans le message de news: 433af08f$0$17210$
Bonsoir je voudrai executer une macro, uniquement si la cellule B17 change, merci beaucoup gege
