Exécution macro à partir d'un clic cellule

G

GGPS

Guest
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

XLDnaute Occasionnel
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'

à+
 
F

fifi

Guest
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
Code:
voilou
 

Discussions similaires

Statistiques des forums

Discussions
312 922
Messages
2 093 644
Membres
105 774
dernier inscrit
Tibenjah