Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Evenement chage pour une plage bien definie

2 réponses
Avatar
magic-dd
bonjour

comment interpreter Worksheet_SelectionChange(ByVal Target As Range)

si un changement dans a1:c30 then macros1

si changement dans d1:h30 then macro2

etc

merci

2 réponses

Avatar
JB
Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1:C30], Target) Is Nothing Then
macro1
End If
If Not Intersect([D1:H30], Target) Is Nothing Then
macro2
End If
End Sub

Sub macro1()
MsgBox "xx"
End Sub

Sub macro2()
MsgBox "yy"
End Sub

JB


On 8 mar, 14:22, magic-dd wrote:
bonjour

comment interpreter Worksheet_SelectionChange(ByVal Target As Range)

si un changement dans a1:c30 then macros1

si changement dans d1:h30 then macro2

etc

merci


Avatar
magic-dd
merci JB

toujours aussi rapide