Enchaînement de macros

[Cruz]

Bonjour tout le monde

j'ai une macro de ce style:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range('A1') = 0 Then
Range('B12').Select
ActiveSheet.Pictures.Insert ('C:/Mes Documents/1.bmp')
ElseIf Range('A1') = 1 Then
Range('B12').Select
ActiveSheet.Pictures.Insert ('C:/Mes Documents/2.bmp')
End If
End Sub

J'ai 3 macros de ce genre dans ma feuille, mais chacune est différente: l'une dépend de A1 et insert dans B12, l'autre dépend de A2 et insert dans B14 et la 3e est aussi différente. Mais à chaques fois que l'une de ces macros doit s'enclencher, l'ordinateur m'affiche: 'Erreur SelectionChange'.
Faut-il utiliser un autre mode que SelectionChange pour enchaîner ces trois macros ???Y-aurait-il une faute dans ma macro ????

meri d'avance
a+
cruz

 

[dg62]

Bonjour Cruz


tu dois integrer le code de tes 3 macros dans une seule


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

code pour A1



Code pour A2



code pour ...



end sub

 

[Cruz]

merci
une question: comment on délimite alors les 3 macros ?

merci d'avance a+