Transformer une cellule en bouton cliquable

[Smint]

Salut à tous,

Je suis heureux de vous recroiser à l'occasion de cette question:

Est-il possible de transformer une cellule en bouton cliquable? Si oui, comment faire et comment lui affecter une macro...

Merci de me faire partager vos lumières,
cordialement....

Message édité par: smint, à: 08/03/2006 10:21

Message édité par: smint, à: 08/03/2006 12:35

 

[JC de Lorient]

salut
dans cet exemple le fait de cliquer ds la cellule K2 te ramène a la feuille Menu
a mettre ds la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('K2')) Is Nothing Then
Sheets('Menu').Select
End If
End Sub

JC

 

[Smint]

Salut JC et merci,

J'ai testé ton code. Le clic sur la cellule déclenche bien le code, mon seul souci est qu'il doit déclencher une macro. Si nous appelons celle-ci 'MACRO A EXECUTER', voudrais-tu, stp, modifier ton code en conséquence, je ne sais pas le faire... (La macro étant enregistrée dans 'ce classeur')

Merci beaucoup d'avance...

 

[JC de Lorient]

re

c tout simple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('K2')) Is Nothing Then
Call MACRO A EXECUTER
End If
End Sub

JC

 

[Smint]

Ca fonctionne....

Merci beaucoup, bonne continuation!!