thordek | bonjour à toutes et à tous,
Le code suivant permet (devrait permettre) d'activer le lien de la cellule "Cells(i,7)". Pour toute l'histoire, je selectionne la ligne que je veux dans une listbox (ListBox1) et retrouve cette ligne dans mes cellules contenant des liens. Mon problème est donc d'activer le lien.
Voyez-vous des erreurs ? Quelles-sont-elles ?
Merci.
Code :
- Private Sub CommandButton1_Click()
- Dim LigneSelectionnée, n As String
- Dim i As Integer
- LigneSelectionnée = resultat.ListBox1.Value
- For i = 6 To 809
- If CStr(Cells(i, 7).Value) = LigneSelectionnée Then
- Cells(i, 7).Select
- 'ActiveCell.Hyperlink.Follow NewWindow:=True
- 'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 8).Value, TextToDisplay:=Cells(i, 7).Value
- 'Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True
- 'n = "G" & CStr(i)
- 'MsgBox n
- Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
- 'Range(n).Hyperlinks(1).Follow
- 'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 8).Value
- 'Range(n).Select
- 'Range(n).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
- End If
- Next i
- End Sub
|
|
