Bonjour à tous,
J'ai un petit problème avec le bout de code ci-dessous. Celui-ci est censé me permettre d'activer un lien hypertexte en appuyant sur un bouton de macro. Or quand je clique sur le bouton, ce code me permet uniquement de sélectionner la cellule dans laquelle se trouve le lien sans activer ce dernier.
Lg = Application.Match(ComboBox1.Value,Range("A1:A" & Range("A65000").End(xlUp).Row), 0)
Cells(Lg, 1).Select
For Each Cell In Selection
adresse = Cell.Offset(0, 1).Value
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=adresse
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Je pense qu'il doit manquer une instruction...Merci par avance au temps que vous consacrerez à ma demande...
Benoit T.
J'ai un petit problème avec le bout de code ci-dessous. Celui-ci est censé me permettre d'activer un lien hypertexte en appuyant sur un bouton de macro. Or quand je clique sur le bouton, ce code me permet uniquement de sélectionner la cellule dans laquelle se trouve le lien sans activer ce dernier.
Lg = Application.Match(ComboBox1.Value,Range("A1:A" & Range("A65000").End(xlUp).Row), 0)
Cells(Lg, 1).Select
For Each Cell In Selection
adresse = Cell.Offset(0, 1).Value
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=adresse
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Je pense qu'il doit manquer une instruction...Merci par avance au temps que vous consacrerez à ma demande...
Benoit T.