Action en ouvrant un lien hypertexte

bonjour,

j'aimerai active une action en ouvrant un lien hypertexte sur le fichier ci-joint j'ai fait un exemple avec double clique ou "selectionChange mais je souhaiterai pas qu'elle fonctionne en cliquant sur le boutton droit de la souris

merci

babil, le forum,

Désactive la macro "Worksheet_SelectionChange" pour faire un bon test.

Clique droit personnalisé seulement sur la colonne 1.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 1 Then
    Cancel = True
    Range("C" & Target.Row).Value = Date
Else
    Cancel = False
End If
End Sub

LaCéline

bonjour laceline,

je veux que ça fonctionne seulement avec le bouton gauche de la souris et pas avec le bouton droit

merci

babil, le forum,

Je n'ai pas bien lu ta demande, désolée.

Peut-être désactiver le clic droit seulement si la cellule contient un lien hypertext ?

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

If Target.Column = 1 Then
    If Target.Hyperlinks.Count = 1 Then Cancel = True
Else
    Cancel = False
End If
End Sub

LaCéline

salut,

je veux que ça fonctionne juste avec le bouton gauche et quand je clique avec le bouton droit y'aura rien

babil, le forum,

N'est-ce pas ce qui se produit déjà ?

Sinon, je ne comprends pas bien la demande.

LaCéline