Bonjour
Mon problème est le suivant, je veux gérer deux événements sur des cellules différentes, mais je n'y arrive pas, le premier événement fonctionne mais quand je passe au deuxième événement, il lance aussi le premier événement.
Voici le code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CellChange As Range
Dim CellChange2 As Range
Set CellChange2 = Range("c9:c9")
Set CellChange = Range("c14:c14")
If Not Application.Intersect(CellChange2, Range(Target.Address)) _
Is Nothing Then
Application.Run "prog2.xlsm!InserImage"
End If
If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then
Application.Run "prog2.xlsm!add_releve"
End If
End Sub
Si quelqu'un peut m'aider merci beaucoup
Mon problème est le suivant, je veux gérer deux événements sur des cellules différentes, mais je n'y arrive pas, le premier événement fonctionne mais quand je passe au deuxième événement, il lance aussi le premier événement.
Voici le code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CellChange As Range
Dim CellChange2 As Range
Set CellChange2 = Range("c9:c9")
Set CellChange = Range("c14:c14")
If Not Application.Intersect(CellChange2, Range(Target.Address)) _
Is Nothing Then
Application.Run "prog2.xlsm!InserImage"
End If
If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then
Application.Run "prog2.xlsm!add_releve"
End If
End Sub
Si quelqu'un peut m'aider merci beaucoup