Exécution macro à partir d'un clic cellule

[GGPS]

Bonjour,
Je désire lancer une macro à partir dun clic sur une cellule donnée.
J'ai pu récupérer les instructions ci-dessous sur le forum, mais rien à faire cela ne fonctionne pas.
Quelqu'un pourrait-il me dire si j'ai commis une erreur ou s'il y a une astuce pour que cela fonctionne SVP.

D'avance merci de votre aide.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('C1:C6')) Is Nothing Then Exit Sub
ExecuteExcel4Macro ('Demande.xls!TEST()')
End sub

 

[jepi67]

Bonjour le forum,
Bjr GGPS,

As-tu bien mis le code dans la feuille concernée de Vbaproject ?

Et ta macro à lancer est-elle dans un module ou s'agit-t-il bien d'une macro Xl4 ?

Je l'ai essayé chez moi le code fonctionne, j'ai juste remplacé
ExecuteExcel4Macro ('Demande.xls!TEST()')
par
Application.Run 'nom de fichier.xls!nom de macro'

à+

 

[fifi]

hello moi non plus ca marchait pas avec cette déclaration mais j'ai mis cela et ca marche nikel

[/code]Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range('A1:Q30')) Is Nothing Then
With Target
ton code
end with
End If

voilou

 

[fifi]

lol j'ai pas du tout comprends pour mettre le code en bbcode