lancer une macro

[mech']

Bonjour à tous.

Je souhaite lancer une macro à partir d'un clic sur la cellule B12( par exemple),est-ce possible?
Je ne souhaite pas utiliser de bouton pour rendre le lancement 'secret', un bouton est bcp trop visible, alors qu'une cellule quelconque permet de réaliser une protection.

merci de vos réponses.

bonne journée.

 

[Marc_du_78]

Bonjour mech' le forum,

Tu peux effectivement exécuter une macro par double clic, soit dans une plage de cellule, ssoit dans une seule cellule. Si le double clic de fait dans la plage A12:A30

A placer dans la Feuille concernée.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A12:A30')) Is Nothing Then
Call Créer_choix 'appelle la macro Créer_choix
Cancel = True 'évite le mode édition lié au double clic
End If 'fin de la condition
End Sub

Cette plage de cellule peut je pense être changée par la cellule de ton choix (B12) en lieu et place de A12:A30.

PS Je ne suis pas l'auteur de cette macro qui se reconnaîtra sûrement.

Espérant simplement t'avoir rendu service.
M.

 

[Mech']

Merci bcp marc pour le code. J'ai une autre question pour toi.
Dans un soucis de protection toujours,je souhaite retirer les onglets du classeur(Outils/option/affichage.....), et pouvoir les remettre grace à un code????

A tu la solution!

merci
mech'

 

[PascalXLD]

Bonjour

Le plus 'sûr' est peut-être de les cacher par macro et de les faire réapparaitre par macro comme cela tes feuilles seront invisibles par les menus

Exemple

pour cacher

Sheets('Feuil1').visible=xlveryhidden

pour faire apparaître

Sheets('Feuil1').visible=true