XL 2010 Cherche comment faire un type macro

[pompier83]

Bonjour à tous je cherche une macro particulier sans utilisé la fonction

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A4:L1054")) Is Nothing Then
Mon_USF.Usf
End If
End Sub

je recherche une macro à integrer à un bouton qui :
si une des Cellule A3 : D1042 est détecter sélectionner lancer Macro1
si une des Cellule E3 : H1042 est détecter sélectionner lancer Macro2
si une des Cellule I3 : L1042 est détecter sélectionner lancer Macro2

à intégrer dans un module

merci d'avance pour votre aide

 

[Yurperqod]

Bonjour le forum

Cette macro fonctionne sur mon PC.
Dans le code la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Boolean, b As Boolean, c As Boolean
a = Not Intersect(Target, Range("A3:D1042")) Is Nothing
b = Not Intersect(Target, Range("E3:H1042")) Is Nothing
c = Not Intersect(Target, Range("I3:L1042")) Is Nothing
If Target.Row >= 3 Then
Application.Run "Macro" & (a * -1) + (b * -2) + (c * -3)
End If
End Sub

Dans un module standard

Sub Macro1()
MsgBox "Lancement Macro1"
End Sub
Sub Macro2()
MsgBox "Lancement Macro2"
End Sub
Sub Macro3()
MsgBox "Lancement Macro3"
End Sub

 

[Paf]

Bonjour à tous,

plus classique:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("A3:D1042")) Is Nothing Then Macro1
  If Not Intersect(Target, Range("E3:H1042")) Is Nothing Then Macro2
  If Not Intersect(Target, Range("I3:L1042")) Is Nothing Then Macro3
End Sub

A+

 

[pompier83]

merci à vous la solution de yurperqod me conviens finalement tres bien un grand merci à tous pour vos competence