Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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 <ciolan...@gmail.com> wrote:
bonjour
comment interpreter Worksheet_SelectionChange(ByVal Target As Range)
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)