Erreur dans VBA impossible à corriger

[danty]

Bonjour, le Forum, XLD, et les fans 😀


J'ai une erreur dans VDA, sur le feuillet CHoix...

Le but est de double-clicker sur H6, afin d'ouvrir le lien qui se trouve dans la BDD.(D2-D1000)

Code VDA :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = False
If Target.Address = "$H$6" Range("BDD!D2:D1000").Find(ActiveCell.Value).Hyperlinks(1).Follow NewWindow:=True, AddHistory:=False
End Sub

Erreur de Syntaxe ?

Je ne comprend pas, auriez vous une solution alternative?

Cordialement

 

[Danix]

Re : Erreur dans VBA impossible à corriger

Bonjour Danty, Le Forum,

Et en désactivant la modification directe dans la cellule, cela te permet de double cliquez sans entrer en modification de la formule et celle-ci ne s'affiche plus, je pense qu'il faudra mettre ce bout de code dans l'ouverture du classeur et aussi dans la fermeture du classeur

Ouverture
Application.EditDirectlyInCell = False
Fermeture
Application.EditDirectlyInCell = True

Bonne journée à tous

Danix

 

[wilfried_42]

Re : Erreur dans VBA impossible à corriger

bounjour à tous

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

[B][COLOR="Red"]Cancel = true[/COLOR][/B]

If Target.Address = "$H$6" Then Sheets("BDD").Range("D2:D1000").Find(ActiveCell.Value).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End Sub

cancel = abandon : le mettre à true, force l'abandon de l'action normal du double click soit l'edition de la cellule

 

[danty]

Re : Erreur dans VBA impossible à corriger

Bonjour,


Merci =)
Tout marche 😀

Cordialement,