Probleme d'activation de liens hypertextes

Probleme d'activation de liens hypertextes - VB/VBA/VBS - Programmation

Marsh Posté le 06-07-2011 à 14:21:31    

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 :
  1. Private Sub CommandButton1_Click()
  2. Dim LigneSelectionnée, n As String
  3. Dim i As Integer
  5. LigneSelectionnée = resultat.ListBox1.Value
  7. For i = 6 To 809
  8.     If CStr(Cells(i, 7).Value) = LigneSelectionnée Then
  9.         Cells(i, 7).Select
  10.             'ActiveCell.Hyperlink.Follow NewWindow:=True
  11.             'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 8).Value, TextToDisplay:=Cells(i, 7).Value
  12.             'Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True
  13.             'n = "G" & CStr(i)
  14.             'MsgBox n
  15.         Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  16.             'Range(n).Hyperlinks(1).Follow
  17.             'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 8).Value
  18.             'Range(n).Select
  19.             'Range(n).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  20.     End If
  21. Next i
  22. End Sub


 

Reply

Marsh Posté le 06-07-2011 à 14:21:31   

Reply

Marsh Posté le 07-07-2011 à 10:38:16    

Bah... Il y a un peu beaucoup d'apostrophes... non ?
Notament les lignes qui créé les liens hypertext, comme la ligne 11


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed