Macro à partir d'une cellule

[Aurelien]

Bonjour,

Je souhaiterai lancer une macro en cliquant sur une cellule.

Est-ce possible?

Merci.

Aurélien

 

[globinours]

Pourquoi ne pas créer un bouton qui prendrait lieu et place de ta cellule?

 

[dg62]

Bonjour le fil

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
inserer le code ici
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
inserer le code ici
End Sub

reste le bouton (cf globinours)

 

[Aurélien]

Bonjour et Merci Didier,

Etant grand débutant sur visual basic, je ne comprends pas tout et en l'occurence, ce que tu viens de me montrer.
Peut être qu'en précisant pour un exemple plus concret, je comprendrai un peu mieux:
je souhaite que lorsque je sélectionne ma cellule A1 de ma feuille 1, je lance ma macro A...

MErci

Aurélien

 

[_Thierry]

Bonsoir Aurélien, Didier, Globinours

Alors bienvenu dans le monde merveilleux des développeurs, petits ou grands, en VBA...

Pour commencer par le commencement, il te faut une macro évènementielle que tu trouveras en cliquant à droite lrsque tu pointe sur un Onglet de Feuille, dans le menu Contextuel tu choisis 'Visualiser le Code'

Dans le Private Module de Feuille qui va ainsi aparaître, tu va avoir des action évènementielles (Accessible de la même maniere que dans le Gif ci-dessous qui concerne 'ThisWorkBook' mais c'est pratiquement Idem :



Une fois là tu jouera avec les menus comme ci-dessus...

Pour ta question, donc dans le Private Module de Feuille tu places ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case 'A1': Macro1
        Case 'A2': Macro2
        Case 'A3': Macro3
    'etc
    End Select
End Sub

Et dans un module standard (Module1 par exemple) tu places ceci :

Sub Macro1()
MsgBox 'Macro1 appelée par A1'
End Sub

Sub Macro2()
MsgBox 'Macro2 appelée par A2'
End Sub

Sub Macro3()
MsgBox 'Macro1 appelée par A3'
End Sub

Et voilà le tour est joué, si j'ai bien compris...

Bonne Soirée
@+Thierry

 

[dg62]

re


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
inserer le code de ta macro entre le Sub et end sub
End Sub

code a integrer dans un module de feuille

quand tu feras un double clic sur une cellule ton code sera lancé.

Message édité par: dg62, à: 25/07/2005 18:41

 

[Aurélien]

Merci beaucoup,

c'est bon j'ai réussi...

Merci à tous les trois, et je suis sur à très bientôt...
Car ce sont mes premiers pas vers le visual basic!!!

Aurélien