Evenement chage pour une plage bien definie

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5232461
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
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


magic-dd
Le #5232441
merci JB

toujours aussi rapide
Publicité
Poster une réponse
Anonyme