Lancement d'une macro à partir d'une cellule

Le
fredo
Bonjour

Je sais lancer une macro en cliquant sur un bouton, sur une image,
Mais est t'il possible de lancer une macro en cliquant sur une cellule un
peu comme une lien hypertexte

Merci de votre aide

Fredo
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4863901
Bonjour.
Macros à mettre dans le code de la feuille concernée :
En cliquant sur A1, à condition de ne pas être déjà positionné en A1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
test 'ici, le nom de ta macro
End Sub

Sinon, avec un double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address <> "$A$1" Then Exit Sub
Cancel = True
test 'ici, le nom de ta macro
End Sub

Cordialement.
Daniel
"fredo"
Bonjour

Je sais lancer une macro en cliquant sur un bouton, sur une image,
Mais est t'il possible de lancer une macro en cliquant sur une cellule un
peu comme une lien hypertexte

Merci de votre aide

Fredo


Philippe.R
Le #4863881
Bonjour,
Une piste possible :
dans un module standard ta macro comme par exemple :
Sub messs()
MsgBox "coucou"
End Sub

et dans le module de la feuille :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
messs
End Sub

si tu veux limiter l'action à une plage donnée (ici la colonne A) :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
messs
End If
End Sub

--
Philippe.R
"fredo" news:
Bonjour

Je sais lancer une macro en cliquant sur un bouton, sur une image,
Mais est t'il possible de lancer une macro en cliquant sur une cellule un
peu comme une lien hypertexte

Merci de votre aide

Fredo


fredo
Le #4863351
Super daniel

Merci bcp


Bonjour.
Macros à mettre dans le code de la feuille concernée :
En cliquant sur A1, à condition de ne pas être déjà positionné en A1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
test 'ici, le nom de ta macro
End Sub

Sinon, avec un double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address <> "$A$1" Then Exit Sub
Cancel = True
test 'ici, le nom de ta macro
End Sub

Cordialement.
Daniel
"fredo"
Bonjour

Je sais lancer une macro en cliquant sur un bouton, sur une image,
Mais est t'il possible de lancer une macro en cliquant sur une cellule un
peu comme une lien hypertexte

Merci de votre aide

Fredo







Publicité
Poster une réponse
Anonyme