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

 

[PascalXLD]

Re : Erreur dans VDA impossible à corriger

Bonjour

Euh on parle de VBA 😉

sinon il te manque un then dans ton if

If Target.Address = "$H$6" Then Range("BD......

 

[danty]

Re : Erreur dans VDA impossible à corriger

Merci, Pour ces 2 corrections 😀

 

[danty]

Re : Erreur dans VDA impossible à corriger

Salut,


Le Then 😀 Bah il ne marche pas 😕


pas zen tout ca 🙁

merci quand meme 😛

 

[PascalXLD]

Re : Erreur dans VDA impossible à corriger

Re

oups j'en avais oublié une autre

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

 

[danty]

Re : Erreur dans VBA impossible à corriger

Re,

Donc je pointe le lien hypertexte, situé sur le resau : I:\....abc.pdf

Le lien se lance dans la BDD, mais au double-click..

Erreur d'exécution 9 l'indice n'appartiens pas à la sélection 😱


On y est presque... Merci à vous 😉

++

 

[danty]

Re : Erreur dans VBA impossible à corriger

Bonjour

ca marche !

merci

++

 

[danty]

Re : Erreur dans VBA impossible à corriger

Bonjour,

Le probleme c'est que ca marche, nikcel 😀
Mais la formule reste accessible...

J'ai verrouillé la cellule, mais je peut plus double clicker 🙁

Une idée 🙂

Merci

 

[danty]

Re : Erreur dans VBA impossible à corriger

Bonjour,

Je souhaite convertir un double click en 1 bouton.

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

Cancel = Cancel

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

End Sub

Private Sub CommandButton1_Click()
????????
End Sub

Une idée 🙁

Merci

Cordialement,

 

[danty]

Re : Erreur dans VBA impossible à corriger

Un petit Up pour un petite idée ?

 

[PascalXLD]

Re : Erreur dans VBA impossible à corriger

re

tu veux lier cela à une cellule ou pas ??

 

[JCGL]

Re : Erreur dans VBA impossible à corriger

Bonjour à tous

Peut-être avec :

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

A+

Edition : Salut Pascal

 

[danty]

Re : Erreur dans VBA impossible à corriger

Salut,

Ca ne marche pas 🙁

L'idée du double click est excellent, mais une fois que le PDF se lance on à accès à la Formule =INDEX.....

Je souhaitais passé par un bouton, afin de cacher la formule.. 🙂

JCGL, la commande ne fonctionne pas 🙁


Cordialement,

 

[PascalXLD]

Re : Erreur dans VBA impossible à corriger

re

essaies

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

 

[danty]

Re : Erreur dans VBA impossible à corriger

Salut,

Non plus... Ca ne marche pas... je click sur le bouton mais rien ne se passe, et ca n'affiche pas d'erreur...
On est pas loin =)

Cordialement,